my pseudo code:
Code: Select all
Set RS = New ADODB.Recordset
RS.CursorLocation = adUseClient
SQL = "SELECT DB_CARTE.NOMINATIVO, DB_CARTE.IMPORTO, DB_CARTE.NR, DB_CARTE.SPORT, DB_CARTE.CC, DB_CARTE.NDG, DB_CARTE.RAPPORTO, DB_CARTE.CARTA, DB_CARTE.SETT, DB_CARTE.MINDATA, DB_CARTE.MAXDATA, TUTTI_CC_DAILY.ACCE, DB_CARTE.H, DB_CARTE.D, DB_CARTE.NATO FROM DB_CARTE INNER JOIN TUTTI_CC_DAILY ON DB_CARTE.RAPPORTO = TUTTI_CC_DAILY.RAPPORTO" & _
" WHERE Not (DB_CARTE.SETT) Is Null And DB_CARTE.D > 0 And Not (DB_CARTE.NATO) Is Null And DB_CARTE.DATA_RIF Is Null And DB_CARTE.MAXDATA>=#" & Format(DATE1, "MM/DD/YYYY") & "#"
'Debug.Print SQL
RS.Open SQL, CONN, adOpenStatic, adLockReadOnly, adCmdText
Dim strDBRows() As Variant
Sleep (300)
Erase strDBRows()
strDBRows = RS.GetRows()
RS.Close
Set RS = Nothing
....
Code: Select all
If CONN Is Nothing Then
strProvider = "Provider=Microsoft.Jet.OLEDB.4.0;"
If Not (ENVIOR = "SS-72D68331754B" Or ENVIOR = "UTENTE-PC") Then
strSource = "Data Source=\\00058\work\107\GO\DATABASE\T1.mdb;"
Else
strSource = "Data Source=C:\DATABASE\T1.mdb;"
End If
strConnection = strProvider & strSource & "Persist Security Info=False"
Set CONN = New ADODB.Connection
CONN.Open strConnection
End If
All fields with "where" are indexed
The access atabase in over network dir