Code: Select all
RST0.Close
Set RST0 = Nothing
Set RST0 = New ADODB.Recordset
SQL = "SELECT DT FROM L0_SI WHERE (INT>0 OR ERO>0) GROUP BY DT"
With RST0
.CacheSize = 500
.Source = SQL
.ActiveConnection = CONN3
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockReadOnly
DoEvents
.Open Options:=adCmdText
Y = .RecordCount
Do While Not .EOF
Me.DT4.AddItem .Fields(0).Value
.MoveNext
Loop
End With
- i use adojet and access databasde