İsimlerin Sayısını bulan SQL kodunu kısaltmak. - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: İsimlerin Sayısını bulan SQL kodunu kısaltmak. (/konu-isimlerin-sayisini-bulan-sql-kodunu-kisaltmak.html) Sayfalar:
1
2
|
İsimlerin Sayısını bulan SQL kodunu kısaltmak. - alican60 - 11/01/2013 Aşağıdaki kod ile combobox1-2-3 teki süzme durumuna göre textbox1-2-3 e Ali-Veli-Ahmet isimlerinin sayılarını alrıyorum.Bu kod gittikçe uzuyor ve satır sayısı artıyor,bunu daha kestirme yoldan yapabilirmiyiz. Kod:
Sub SAY() Cvp: İsimlerin Sayısını bulan SQL kodunu kısaltmak. - fatih karagöl - 11/01/2013 örnek eklerseniz kısaltabilir düşüncesindeyim.salt kodlardan hareket edersek parçalar eksik kalıyor. Cvp: İsimlerin Sayısını bulan SQL kodunu kısaltmak. - alican60 - 11/01/2013 Cvp: İsimlerin Sayısını bulan SQL kodunu kısaltmak. - fatih karagöl - 12/01/2013 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 Cvp: İsimlerin Sayısını bulan SQL kodunu kısaltmak. - alican60 - 12/01/2013 Fatih Bey Allah razı olsun zaman harcamışsınız ellerinize sağlık,yalnız bir sorun var.Comboboxlardan sırasıyla süzme yaparken sayı adeti veren textboxlarda sayı adetlerri doğru çıkmıyor. Cvp: İsimlerin Sayısını bulan SQL kodunu kısaltmak. - fatih karagöl - 12/01/2013 rica ederim. Sql kodunda bir sıkıntı görünmüyor. Sorgunun başına bu satırı ilave edin. Eski değerleri göründüğünden hatalı sonuç getirmiş gibi görünüyor. Düzelmezse kodu gözden geçirim TextBox1.Value = "": TextBox2.Value = "": TextBox3.Value = "" |