ComboBox da seçilen ALAN ismine göre, MDB veritabanındaki O alanda Arama yapabileyim.

[ybilgin]

ÖRNEK DOSYA EKLENMİŞTİR.

Arkadaşlar Merhaba,
Bir ComboBox umuz var.
Bir adet TextBox umuz var.
Bir Adet ListBox umuz var.
Bir adet CommandButton Var.
Userform Intialize ile ComboBox'a veri alıyorum.
ComboBox içine aldığım bu veriler, Kullandığım Access Veri tabanında kayıtlı bir tabloda Sorgurgulama yapmak istediğim ALAN isimleridir.

ComboBoxALANSEC.AddItem "STOKKODU"
ComboBoxALANSEC.AddItem "STOKACIKLAMASI"
ComboBoxALANSEC.AddItem "MARKASI"
ComboBoxALANSEC.AddItem "PLAKASI"
ComboBoxALANSEC.AddItem "TEDARIKCI"
ComboBoxALANSEC.AddItem "TEREK"
ComboBoxALANSEC.AddItem "SEHIR"

ComboBox ile seçtiğim değer, aşağıda sorgu için kullandığım kodlarda KIRMIZI Renk ile işaretlediğim ALAN ismini değişken olarak tanımlayabilmek.
Yani Comboboxtan hangi ALANI seçersem O alana bağlansın ve o alan üzerinde TEXTBOX A yazdığım değeri arama yada filtreleme yapabileyim. Umarım anlatabilmişimdir.
iki gündür nette bakmadığım yer kalmadı kafayı yemek üzereyim.
Yardımcı olabilecek arkadaşlara şimdiden çok teşekkür ederim.

Not( Aslında veritabanındaki ALAN adını değişken olarak tanımlamadan,
İlgili alanları optionButton lara bağlayarak arama sonucunu gerçekleştirebiliyorum. Ama böyle olunca Sürekli IF kullanımından dolayı kodlar uzayıp gidiyor.)

RS.Open "select * from [VEHICLE] WHERE [VEHICLE].STOKKODU LIKE '%" & TextBox1.Text & "%'", baglan, 1, 1

Private Sub CommandSearch_Click()
On Error GoTo hata
ListBox1.clear
Set baglan = CreateObject("adodb.connection")
Set RS = CreateObject("adodb.recordset")
Call baglanti
RS.Open "select * from [VEHICLE] WHERE [VEHICLE].STOKKODU LIKE '%" & TextBox1.Text & "%'", baglan, 1, 1
With ListBox1
.RowSource = Empty
.ColumnCount = 15
.ColumnWidths = "35;35"
.Column = RS.GetRows
End With
RS.Close
Set RS = Nothing

hata:
If Err = 3021 Then
Exit Sub
End If
End Sub

 

[Taruz]

Merhaba..

Açılan kutuyu sorgu içerisinde bu şekilde tanımlayabilirsiniz..:

    RS.Open "select * from [VEHICLE] WHERE " & ComboBox1 & " LIKE '" & TextBox1.Text & "%'", baglan, 1, 1

 

[ybilgin]

Merhaba..

Açılan kutuyu sorgu içerisinde bu şekilde tanımlayabilirsiniz..:

    RS.Open "select * from [VEHICLE] WHERE " & ComboBox1 & " LIKE '" & TextBox1.Text & "%'", baglan, 1, 1

Teşekkür Ederim İşe yaradı.