kod alıştırması yaptığınızı tahmin ettiğimden kurguya hiç dokunmuyorum.
adi = ComboBox2.Value: calisanKodu = ComboBox1.Value: dogumTarihi = ComboBox3.Value
Sql = "select [ADI],count([ADI]) as sayi from [LİSTE] WHERE [CALISAN_KODU] like '" & calisanKodu & "%" & "' AND [DOGUM_TARIHI] like '" & dogumTarihi & "%" & "' group by ADI HAVING ADI like '" & adi & "%" & "' "
Set baglan = CreateObject("adodb.connection")
Set rst = CreateObject("adodb.recordset")
Call baglanti
rst.Open SQL, baglan, 1, 1
Do While Not rst.EOF
lAdi = rst.Fields("ADI")
lsayi = rst.Fields("sayi")
If lAdi = "AHMET" Then TextBox3.Value = lsayi Else If lAdi = "VELİ" Then TextBox2.Value = lsayi Else If lAdi = "ALİ" Then TextBox1.Value = lsayi
rst.movenext
Loop
Set rst = Nothing
İsimlerin Sayısını bulan SQL kodunu kısaltmak.
Bu Konudaki Yorumlar |
İsimlerin Sayısını bulan SQL kodunu kısaltmak. - Yazar: alican60 - 11/01/2013, 21:33
Cvp: İsimlerin Sayısını bulan SQL kodunu kısaltmak. - Yazar: fatih karagöl - 11/01/2013, 22:16
Cvp: İsimlerin Sayısını bulan SQL kodunu kısaltmak. - Yazar: alican60 - 11/01/2013, 22:32
Cvp: İsimlerin Sayısını bulan SQL kodunu kısaltmak. - Yazar: fatih karagöl - 12/01/2013, 00:42
Cvp: İsimlerin Sayısını bulan SQL kodunu kısaltmak. - Yazar: alican60 - 12/01/2013, 01:03
Cvp: İsimlerin Sayısını bulan SQL kodunu kısaltmak. - Yazar: fatih karagöl - 12/01/2013, 02:01
Cvp: İsimlerin Sayısını bulan SQL kodunu kısaltmak. - Yazar: alican60 - 12/01/2013, 10:07
Cvp: İsimlerin Sayısını bulan SQL kodunu kısaltmak. - Yazar: fatih karagöl - 12/01/2013, 17:13
Cvp: İsimlerin Sayısını bulan SQL kodunu kısaltmak. - Yazar: alican60 - 12/01/2013, 17:34
Cvp: İsimlerin Sayısını bulan SQL kodunu kısaltmak. - Yazar: fatih karagöl - 12/01/2013, 19:02
|
Konuyu Okuyanlar: 1 Ziyaretçi