ABRI ARQUIVO DBASE

USUARIO.EXCLUIDOS 11/05/2004 11:55:46
#24091 Resposta escolhida

Ex:

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,