[MICROSOFT][ODBC VISUAL FOXPRO DRIVER]SYNTAX ERROR
Olá pessoal,
Preciso de uma ajuda sobre esse erro, estou acessando arquivos DBF's via conexão FoxPro e quando faço um select por data ocorre esse erro.
Eu preciso filtrar por data.
Alguém sabe me dizer o que está errado?
Essa é a string:
Sql = _
[Ô]SELECT b09_dhemi, doc_capa, e04_xnome, w16_vnf, cstat, chnfe, b11_tpnf [Ô] & _
[Ô]FROM [capa] [Ô] & _
[Ô]WHERE b11_tpNF = [ô][Ô] & IIf(cmbOperacao.Text = [Ô]1-SaÃda[Ô], [Ô]1[Ô], [Ô]0[Ô]) & [Ô][ô] And [Ô] & _
[Ô]cStat LIKE [ô][Ô] & IIf(cmbStatus.Text = [Ô]Pendentes[Ô], [Ô][Ô], [Ô]%[Ô]) & [Ô][ô] And [Ô] & _
[Ô]data Between #[Ô] & Format(dtpIni, [Ô]yyyy/mm/dd[Ô]) & [Ô]# And #[Ô] & Format(dtpFim, [Ô]yyyy/mm/dd[Ô]) & [Ô]#[Ô]
Set rs = CreateObject([Ô]adodb.recordset[Ô])
rs.CursorLocation = adUseClient
rs.Open Sql, cnn
Se tiro a linha da data funciona sem problema.
A conexão:
Public cnn As New ADODB.Connection
Public rs As New ADODB.Recordset
cnn.Open [Ô]DRIVER={Microsoft Visual Foxpro Driver};SourceDB=[Ô] & vLocalRetaguarda & [Ô]; SourceType=DBF;DBQ=[Ô] & vLocalRetaguarda & [Ô];Exclusive=yes[Ô]
Preciso de uma ajuda sobre esse erro, estou acessando arquivos DBF's via conexão FoxPro e quando faço um select por data ocorre esse erro.
Eu preciso filtrar por data.
Alguém sabe me dizer o que está errado?
Essa é a string:
Sql = _
[Ô]SELECT b09_dhemi, doc_capa, e04_xnome, w16_vnf, cstat, chnfe, b11_tpnf [Ô] & _
[Ô]FROM [capa] [Ô] & _
[Ô]WHERE b11_tpNF = [ô][Ô] & IIf(cmbOperacao.Text = [Ô]1-SaÃda[Ô], [Ô]1[Ô], [Ô]0[Ô]) & [Ô][ô] And [Ô] & _
[Ô]cStat LIKE [ô][Ô] & IIf(cmbStatus.Text = [Ô]Pendentes[Ô], [Ô][Ô], [Ô]%[Ô]) & [Ô][ô] And [Ô] & _
[Ô]data Between #[Ô] & Format(dtpIni, [Ô]yyyy/mm/dd[Ô]) & [Ô]# And #[Ô] & Format(dtpFim, [Ô]yyyy/mm/dd[Ô]) & [Ô]#[Ô]
Set rs = CreateObject([Ô]adodb.recordset[Ô])
rs.CursorLocation = adUseClient
rs.Open Sql, cnn
Se tiro a linha da data funciona sem problema.
A conexão:
Public cnn As New ADODB.Connection
Public rs As New ADODB.Recordset
cnn.Open [Ô]DRIVER={Microsoft Visual Foxpro Driver};SourceDB=[Ô] & vLocalRetaguarda & [Ô]; SourceType=DBF;DBQ=[Ô] & vLocalRetaguarda & [Ô];Exclusive=yes[Ô]
Qual é o erro?
Putz, pelos meus cálculos abandonei 100% o Foxpro em 2003. Não lembro um ovo.
Meu principal sistema
CESC v1.0 em Foxpro DOS - Perdi os fontes - Abandonei em 1996 se não me engano
CESC v2.0 em Foxpro Windows - Perdi os fontes - Abandonei em 2003
CESC v3,0 em VB6 e Access - abandonei em 2009, mas ainda faço manutenção
CESC v4.0 em VB.NET e SQL Server - desde 2009, levei 4 anos refazendo em vb.Net (130 forms, 250 reports, 3 bancos de dados com 105 tabelas, 80 mil linhas de códigos)
Meu principal sistema
CESC v1.0 em Foxpro DOS - Perdi os fontes - Abandonei em 1996 se não me engano
CESC v2.0 em Foxpro Windows - Perdi os fontes - Abandonei em 2003
CESC v3,0 em VB6 e Access - abandonei em 2009, mas ainda faço manutenção
CESC v4.0 em VB.NET e SQL Server - desde 2009, levei 4 anos refazendo em vb.Net (130 forms, 250 reports, 3 bancos de dados com 105 tabelas, 80 mil linhas de códigos)
Citação::
Qual é o erro?
Bom dia Damasceno,
O erro era o assunto (SYNTAX ERROR) depois que postei descobri que usando [Ô]{[Ô] do lugar do [Ô]#[Ô] não da mais o erro, porém me retorna sempre EOF=True, sendo que teria que apresentar 18 registros, se eu faço o mesmo select sem a condição da data me retorna EOF=False, porque não consigo filtrar por data?
Obrigado
olha esse link
https://support.microsoft.com/pt-br/kb/229854
https://support.microsoft.com/pt-br/kb/229854
Citação::
olha esse link
https://support.microsoft.com/pt-br/kb/229854
Obrigado Damasceno ...
Tópico encerrado , respostas não são mais permitidas