Code: Select all
Option Explicit
Public Sub APRI_CON_DBF()
Dim strCnString As String
Set CON = New ADODB.Connection
strCnString = "Driver={Microsoft Visual FoxPro Driver};UID=;SourceDB=" & SBASE & ";SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine"
CON.Open strCnString
End Sub
Sub UNO()
If CON Is Nothing Then
Call APRI_CON_DBF
End If
Dim STRDBROWS() As Variant, I As Long
Set RS = New ADODB.Recordset
SQL = "SELECT AB, AC, AD, AEFROM " & NOME_DBF & " WHERE NOT DATATT IS NULL ORDER BY AB DESC"
RS.Open SQL, CON, adOpenForwardOnly, adLockReadOnly ', adOpenKeyset, adLockPessimistic
'I = RS.RecordCount
RS.MoveFirst
Erase STRDBROWS()
STRDBROWS = RS.GetRows()
RS.Close
Set RS = Nothing
End Sub
NOTE:
The filed DATATT have a Date property