Tablodan Veri Çekerken Kriter Eklemek

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.

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
28/07/2023, 13:44

berduş

verileri alırken filtreli alsanız
Kod:
set objRecordset =CurrentDb.OpenRecordset(Name:="select * from CUSTOMERS2 where [il]='adana'", Type:=RecordsetTypeEnum.dbOpenDynaset)
gibi
28/07/2023, 14:10

truhi

(28/07/2023, 13:44)berduş yazdı: verileri alırken filtreli alsanız
Kod:
set objRecordset =CurrentDb.OpenRecordset(Name:="select * from CUSTOMERS2 where [il]='adana'", Type:=RecordsetTypeEnum.dbOpenDynaset)
gibi

Hocam teşekkürler,
[il]='adana'"

[il] alanında boş olanları nasıl belirtebiliriz?
28/07/2023, 22:02

berduş

aşağıdaki 2 koddan biri kullanılabilir
 "select * from CUSTOMERS2 where [il]<>''"
yada
"select * from CUSTOMERS2 where [il] is Null" 
28/07/2023, 22:12

truhi

(28/07/2023, 22:02)berduş yazdı: aşağıdaki 2 koddan biri kullanılabilir
 "select * from CUSTOMERS2 where [il]<>''"
yada
"select * from CUSTOMERS2 where [il] is Null" 

çok teşekkürler, iyi ki varsınız!
28/07/2023, 22:35

berduş

rica ederim