Veritabanından 2 Değişkenli arama yapmak

ofbayoglu

Altın Üye
Katılım
24 Aralık 2020
Mesajlar
65
Excel Vers. ve Dili
excel 2010
Arkadaşlar Merhaba göndermiş olduğum kodlarda tek değişkenle birlikte arama yapabiliyorum. Fakat 2 değişkenle arama yapmak istiyorum bu konuda yardımcı olabilirmisiniz.
--------------------------------------------------------------------------------------------
Sub siparislistesi()
Dim baglan As New Connection
Dim rs As New Recordset

On Error Resume Next


baglan.Open "Provider=Microsoft.Ace.Oledb.12.0;data source=\\BAYOGLU\SipPro\master.accdb;"
rs.Open "select kimlik,sirano,tarih,firma,urun,miktar,ozel_fiyat,Toplam_tutar,Durumu,Uretim_planlama from siparis order by kimlik desc", baglan, adOpenKeyset, adLockPessimistic


With siparis.ListBox1
.ColumnCount = 10
.ColumnWidths = "0;30;50;110;150;40;40;50;80;80"
.Column = rs.GetRows

End With


rs.Close
baglan.Close
--------------------------------------------------------------------------------------------
End Sub225523
 

akd

Destek Ekibi
Destek Ekibi
Katılım
14 Ağustos 2004
Mesajlar
1,057
Excel Vers. ve Dili
2003
Merhabalar, bu kodlara bakılırsa çalışmanız vb. veri tabanınız access. bu soruyu vb. sayfasına sormanız daha yerinde olur sanırım.
 

ofbayoglu

Altın Üye
Katılım
24 Aralık 2020
Mesajlar
65
Excel Vers. ve Dili
excel 2010
arkadaşlar şu şekilde çözdüm bilginiz olsun herhangi bir yardım alamadım ama yinede eeği geçenlere teşekkür ederim

Private Sub ComboBox6_Change()
Dim baglan As New Connection
Dim rs As New Recordset

ListBox1.Clear

On Error Resume Next

t1 = Me.ComboBox6.Text
t2 = Me.TextBox16.Text

baglan.Open "Provider=Microsoft.Ace.Oledb.12.0;data source=\\BAYOGLU\SipPro\master.accdb;"
rs.Open "select kimlik,sirano,tarih,firma,urun,miktar,ozel_fiyat,Toplam_tutar,Durumu,Uretim_planlama from siparis where firma=('" & t1 & "') and durumu=('" & t2 & "')", baglan, adOpenKeyset, adLockPessimistic

With siparis.ListBox1
.ColumnCount = 10
.ColumnWidths = "0;30;50;110;150;40;40;50;80;80"
.Column = rs.GetRows

End With

rs.Close

baglan.Close
End Sub
 

akd

Destek Ekibi
Destek Ekibi
Katılım
14 Ağustos 2004
Mesajlar
1,057
Excel Vers. ve Dili
2003
Maalesef dat.net de c# üzerinde uğraşıyorum, c# olsaydı yardımcı olmaya çalışırdım, zaten sende çözmüşsün , nette çok fazla bilgi var, mutlaka çözerdin zaten, iyi çalışmalar...
 

ofbayoglu

Altın Üye
Katılım
24 Aralık 2020
Mesajlar
65
Excel Vers. ve Dili
excel 2010
teşekkür ederim
 
Üst