28/07/2023, 13:21
truhi
Merhaba,
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.
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