+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html)
+--- Konu Başlığı: 3. Kritere göre sorgulama (/konu-3-kritere-gore-sorgulama.html)
3. Kritere göre sorgulama - sedat76 - 20/02/2013
Dim Kriter As String
Adodc4.Refresh
If Kriter = "" Then
Kriter = "Tarih >= '" & CDate(ilktarih.Value) & "' and Tarih <= '" & CDate(sontarih.Value) & "'"
Else
Kriter = Kriter & " And Tarih >= '" & CDate(ilktarih.Value) & "' and Tarih <= '" & CDate(sontarih.Value) & " 'and VSFlexGrid11.TextMatrix(0, 20)= '" & (Combo11.Text) & "'"
End If
With Adodc4.Recordset
.Filter = Kriter
If .RecordCount > 0 Then .Update
End With
Set VSFlexGrid11.DataSource = Adodc4
Call Kolonlari_Ayarla(VSFlexGrid11)
Bu iki tarih arasında listeliyor 3. bir kriter eklemek istersem ne yapmam lazım ?
Cvp: 3. Kritere göre sorgulama - alpeki99 - 20/02/2013
VBA tagları arasında yazınca ne kadar rahat okunur oldu
Bir kriter daha eklemek istiyorsunuz. Bu kriteri Else If olarak mı yoksa Sql kodu olarakmı soruyorsunuz?
Cvp: 3. Kritere göre sorgulama - ogulcan92 - 20/02/2013
Sn:sedat76
Örneği aldığınız yerde sadece bir kritere göre listeleme yapmaktadır.Yani sadece iki tarih arasınını listeler.Eğer çoklu kriter eklemeniz gerekirse İf / Else arasına istediğiniz kadar kriter belirliyebilirsiniz.Aşağıdaki Kodları inceleyip kendinize göre uyarlarsınız.
Dim Kriter As String
Adodc1.Refresh
'Birinci Kriter Adı ve Soyadına göre arama yapar.
If Kriter = "" Then
Kriter = "Adi_Soyadi='" & txtadisoyadi.Text & "'"
Else
Kriter = Kriter & " And Adi_Soyadi='" & txtadisoyadi.Text & "'"
End If
End If
'İkinci Kriter Tc Kimlik Nosuna göre arama yapar.
If txtkimlikno.Text <> "" Then
If Kriter = "" Then
Kriter = "Tc_Kimlik_No='" & txtkimlikno.Text & "'"
Else
Kriter = Kriter & " And Tc_Kimlik_No='" & txtkimlikno.Text & "'"
End If
End If
'Üçüncü Kriter Bulunduğu Şehire göre arama yapar.
If txtsehir.Text <> "" Then
If Kriter = "" Then
Kriter = "Sehir='" & txtsehir.Text & "'"
Else
Kriter = Kriter & " And Sehir='" & txtsehir.Text & "'"
End If
End If
With Adodc1.Recordset
.Filter = Kriter
If .RecordCount > 0 Then .Update
End With
Set VSFlexGrid1.DataSource = Adodc1Public Function Suz()
[TC_KIMLIK_NO] like '" & TxtKimlik.Text & "%' and [EGITIM_YILI] like '" & TxtYil.Text & "%' and [DONEM] like '" & TxtDonem.Text & "%' and [SINIF] like '" & TxtSinif.Text & "%'"
If LblSorgu.Caption = "Kursiyer" Then
Call Kursiyer
AdodcKursiyer.RecordSource = "Select * From TBL_KIMLIK where [ADI] like '" & TxtAd.Text & "%' and [SOYADI] like '" & TxtSoyad.Text & "%' and [TC_KIMLIK_NO] like '" & TxtKimlik.Text & "%'"
AdodcKursiyer.Refresh
ElseIf LblSorgu.Caption = "Egitimci" Then
Call Egitimci
AdodcEgitimci.RecordSource = "Select * From TBL_KIMLIK where [ADI] like '" & TxtAd.Text & "%' and [SOYADI] like '" & TxtSoyad.Text & "%' and [TC_KIMLIK_NO] like '" & TxtKimlik.Text & "%'"
AdodcEgitimci.Refresh
ElseIf LblSorgu.Caption = "Yonetici" Then
Call Kursiyer
AdodcKursiyer.RecordSource = "Select * From TBL_KIMLIK where [ADI] like '" & TxtAd.Text & "%' and [SOYADI] like '" & TxtSoyad.Text & "%' and [TC_KIMLIK_NO] like '" & TxtKimlik.Text & "%' and [EGITIM_YILI] like '" & TxtYil.Text & "%' and [DONEM] like '" & TxtDonem.Text & "%' and [SINIF] like '" & TxtSinif.Text & "%' and [EGITIM_TURU] like '" & TxtEgitimturu.Text & "%'"
AdodcKursiyer.Refresh
ElseIf LblSorgu.Caption = "Ders" Then
Call Ders
AdodcDers.RecordSource = "Select * From TBL_DERS where [ADI] like '" & TxtAd.Text & "%' and [SOYADI] like '" & TxtSoyad.Text & "%' and [TC_KIMLIK_NO] like '" & TxtKimlik.Text & "%'"
AdodcDers.Refresh
End If
End FunctionCvp: 3. Kritere göre sorgulama - sedat76 - 21/02/2013
Vaov teşekkürler bunu hiç düşünememiştim :/