ADO ile birden fazla sütundan veri süzerek sorgu yapılabilirmi

Katılım
16 Nisan 2007
Mesajlar
27
Excel Vers. ve Dili
2010 TR
Merhaba,
ADO da RS.Open "SELECT * FROM [veriıtabani] WHERE sutun1, like 'a%' Order by sutun1
komutu ile access veritabanından bir sütundan istenen kritere göre sorgu alabiliyorum. Ama aynı anda tek sorgu ile örneğin sutun1 den like A% değerine göre ve sutun2 like B% değerine göre tek seferde sorgu yapmak mümkün mü. yani Exceldeki veri süz fonksiyonunda olduğu gibi farklı sütunlardaki farklı kriterlere göre süzme yaparak sorgu yaratabilir miyim? Teşekkürler.
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhaba,
ADO da RS.Open "SELECT * FROM [veriıtabani] WHERE sutun1, like 'a%' Order by sutun1
komutu ile access veritabanından bir sütundan istenen kritere göre sorgu alabiliyorum. Ama aynı anda tek sorgu ile örneğin sutun1 den like A% değerine göre ve sutun2 like B% değerine göre tek seferde sorgu yapmak mümkün mü. yani Exceldeki veri süz fonksiyonunda olduğu gibi farklı sütunlardaki farklı kriterlere göre süzme yaparak sorgu yaratabilir miyim? Teşekkürler.
Deneyiniz.:cool:
Kod:
RS.Open "SELECT * FROM [veriıtabani] WHERE sutun1,  like 'A%' and sutun2 like 'B%'Order by sutun1 Order by sutun1
 
Katılım
16 Nisan 2007
Mesajlar
27
Excel Vers. ve Dili
2010 TR
Cevabınız için çok teşekkür ederim sorunum çözüldü.
 
Katılım
10 Haziran 2009
Mesajlar
1
Excel Vers. ve Dili
2003
Selamlar Evren Bey... Ben bir form hazırladım ve bu formda 8 adet ComboBox var. combobox'larda yazan kodu örnek olsun diye aşağıya yazdım. Sorunum şudur. Her bir ComboBox ile sadece bir satırdaki verilere göre "süz"me işlemi yapabiliyorum. 2 ya da daha fazla sütunda çoklu süz yapmak istiyorum. Bunu nasıl yapabilirim...? şimdiden çok teşekkürler.. "veyselhocasavas@hotmail.com"

Private Sub ComboBox8_Change()
Sheets("SOZLU TURKULER").Select
ListBox1.Clear

Dim i As Integer
say = WorksheetFunction.CountA(Sayfa1.Range("H:H"))
s = 0
For i = 1 To say
If Range("H" & i) = ComboBox8.Value Then

ListBox1.AddItem Sayfa1.Range("A" & i)

End If
Next i
Label1.Caption = ListBox1.ListCount & " Adet Kayıt Var."

End Sub
 
Üst