Soru Access veri tabanından 3 kriterli sorgu yapılabilirmi?

[s.savas]

Merhaba arkadaşlar.
Aşağıdaki sorgu kriterini genişletmek istiyorum.

Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Call BAGLANTI

rs.Open "select * from [abone_listesi] WHERE [abone_listesi].abone_no='" & TextBox1.Text & "';", baglan, 1, 1
If rs.RecordCount >= 1 Then
ElseIf Not rs.RecordCount >= 1 Then
MsgBox "Kayıtlı abone değil", vbInformation, "UYARI"
Exit Sub
End If
rs.Close

Burada fatura girişi yapılırken abone numarasını veri tabanındaki abone listesinden sadece abone_no'ya bakıyor kayıt var ise devam ediyor yoksa uyarı verip sonlanıyor.
Ben istiyorum ki sadece abone no'dan kontrol etmesin aynı zamanda abone_listesi alanındaki birim_adi ve abone_adi alanlarına da baksın.
Misal ' Bakırköy ilçesinde İSKİ de bu abone kaydı yoktur" şeklinde kontrol edilsin.
Yardımcı olacak arkadaşlara teşekkür ederim.

 

[Haluk]

where kriter1 and kriter2 and kriter3

gibi olması lazım....

.

 

[s.savas]

where kriter1 and kriter2 and kriter3

gibi olması lazım....

.

Maalesef beceremedim hocam.

rs.Open "select * from [abone_listesi] WHERE [abone_listesi].abone_no='" & TextBox1.Text & "';", baglan, 1, 1
rs.Open "select * from [abone_listesi] WHERE [abone_listesi].birim_adi='" & ComboBox1.Text & "';", baglan, 1, 1
rs.Open "select * from [abone_listesi] WHERE [abone_listesi].abone_adi='" & ComboBox2.Text & "';", baglan, 1, 1

Bu üç sorgu metninin tek satırda toparlayamadım.

 

[Zeki Gürsoy]

@s.savas, Temel Sql derslerini inceleyin...

SQL 04: AND ve OR İşleçleri |

.

 

[s.savas]

@s.savas, Temel Sql derslerini inceleyin...

SQL 04: AND ve OR İşleçleri |

.

Zeki hocam çok teşekkür ederim. Önerdiğiniz derslerdeki yöntem ile sorun çözüldü.
Sorunun çözülmesi yeterli değildir elbet. İlgili makaleleri güzelce okuyup alıştırma yapmak görevimdir.

Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Call BAGLANTI

rs.Open "select * from [abone_listesi] WHERE [abone_listesi].abone_no='" & TextBox1.Text & "' and [abone_listesi].birim_adi='" & ComboBox1.Text & "' and [abone_listesi].abone_adi='" & ComboBox1.Text & "';", baglan, 1, 1
If rs.RecordCount >= 1 Then
ElseIf Not rs.RecordCount >= 1 Then
MsgBox ComboBox1.Value & " 'NE AİT " & ComboBox2.Value & " ABONELİKLERİNDE " & TextBox1 & " NUMARALI BİR ABONE KAYDI BULUNMAMAKTADIR.", vbInformation, "UYARI"
Exit Sub
End If
rs.Close

 

[Erdem Akdemir]

Başlangıç seviyesi SQL için aşağıdaki siteyi öneririm.

SQL kodları nasıl kullanılır? SQL kodları ile ilgili Türkçe kaynak sitesi

SQL kodları nasıl kullanılır? SQL kodları ile ilgili Türkçe kaynak sitesi

www.sqlkodlari.com