SELECT EM ARQUIVO .DBF

ELUCIMAR 10/05/2004 15:13:31
#23939
Boa Tarde a todos!

Caros colegas estou com um pequeno problema ao fazer um select em um arquivo .DBF com o VB. Vejam só o Codigo:

Dim cnn As ADODB.Connection
Dim Rs As ADODB.Recordset

Private Sub CmdConsultar_Click()

Set cnn = New ADODB.Connection
Set Rs = New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Softs\BancoBrasil\BBCheque;Extended Properties=DBASE IV"

Rs.Open ("Select * from [OldCheq#DBF] Where Agencia like '0116' "), cnn, adOpenKeyset, adLockPessimistic

rs.close
Set Rs=nothing
cnn.close
Set Cnn=nothing

Está dando erro de sintese, se alguma colega puder me ajudar, desde já agradeço.
USUARIO.EXCLUIDOS 10/05/2004 21:43:39
#23993 Resposta escolhida
Pra mim parece ok. O campo agência é caracter ??? Se não for está aí o erro.

Abraços
USUARIO.EXCLUIDOS 11/05/2004 07:45:12
#24014
Pode ser problema com o like, pq tb nunca utilizei com o DBF.

Bom já que vc tem o valor correto da agência, não precisa usar o like, pode usar o =.
Deve funcionar.

O like serviria se vc tivesse somente parte da agência como 011

então usaria like 011%

Abraços,
USUARIO.EXCLUIDOS 11/05/2004 09:55:45
#24053
Olha meu código similar ao teu e q funciona

Dim ConexaoDBF As ADODB.Connection
Dim rsEdifDBF As ADODB.Recordset

Set ConexaoDBF = New ADODB.Connection
ConexaoDBF.Open "provider=Microsoft.Jet.OLEDB.4.0;" & _
"data source=" & DirMes & ";" & _
"extended properties=""dbase iii;"";"

Set rsEdifDBF = New ADODB.Recordset
rsEdifDBF.CursorLocation = adUseClient
rsEdifDBF.Open "SELECT * FROM [CADED#DBF] ORDER BY CODED", ConexaoDBF, adOpenDynamic, adLockOptimistic

Abraços.
Tópico encerrado , respostas não são mais permitidas
Voltar