Aşağıdaki sorguda bir tablodan veri çekerken kriteri nasıl ekleyebiliriz?
"MyField2" alanı boş olanları almak için nasıl bir düzenleme yapmak gerekir?
teşekkürler,
iyi Çalışmalar.
Kod:
Sub Example2()
Dim objRecordset As ADODB.Recordset
Set objRecordset = New ADODB.Recordset
Dim i As Integer
Dim arrValues(1 To 100) As Variant
'initated recordset obejct
objRecordset.ActiveConnection = CurrentProject.Connection
objRecordset.Open ("MyTable1")
i = 1
'
While objRecordset.EOF = False
arrValues(i) = objRecordset.Fields.Item(1)
i = i + 1
objRecordset.MoveNext
Wend
End Sub