(28/03/2020, 10:54)accessman yazdı: [ -> ] (28/03/2020, 10:53)feraz yazdı: [ -> ]Alttaki selectten sonraki yerlere sadece listboxtta gösterilecek alanlar yazılsa daha kısa olmazmı sadece kronik yazmak yada sadece * yazmak yeter bence çünkü bildiğim listboxa additem yöntemi ile veri alınıyor değil mi?
strSQL = "SELECT id, isimler,kronik, firma, bastarih, bittarih
evet doğru
Bence * yapın abey daha sade olur ve önceden dediğim koddaki arr olan yerleri silmediyseniz silin koddan
Taktım bir kere
O arr kısımları eski versiyon listboxa toptan veri yollamak içindi kodları değiştirirken silmeyi unutmuşum yani gereksiz kod olmasın.
(28/03/2020, 10:44)berduş yazdı: [ -> ]Yalniz 12. mesajdaki kodun doğru çalışıp çalışmadığını hâlâ söylemediniz emek harcadık en azından doğru çalışıp çalışmadığını, hatalıysa görünen hatanın ne olduğunu öğrenme hakkımız olduğunu düşünüyorum.
kusura bakmayın 13.mesajda cevapladım diye düşünmüştüm evet sizin yazdığınız
Sql cümlesi tam sonuç veriyor
örnekteki sql2 seçeneğinde sizin
Sql cümlesi var
Siz benimkine çalışıyor dediniz gibi geldi ama sonrasında hep farklı bir kodu yazdığınızdan emin olamadım çalışıp çalışmadığından.
sql i az buçuk bildiğimi düşünüyordum o kadar da bilmiyormuşum daha öğreneceğim çok şey var mesela
Private Sub Komut18_Click()
Dim strSQL As String
If (sqltur.Value = 1) Then
strSQL = "SELECT id, isimler,kronik, firma, bastarih, bittarih FROM Tablo1" & _
" WHERE firma='" & [Metin13] & "'" & _
" AND not isnull(kronik)" & _
" AND (CLng(bastarih)<=" & CLng(Me.sontarih) & ")" & _
" AND (CLng(bittarih)>=" & CLng(Me.ilktarih) & ")"
Else
strSQL = " select * from tablo1 where [id] not in ( select [id] from tablo1 where clng(bastarih)>=" & CLng(Me.sontarih) & _
" or clng(bittarih)<=" & CLng(Me.ilktarih) & ") and Tablo1.firma='" & [Metin13] & "'"
End If
listele strSQL, Me.Liste19, 2
End Sub
buradaki
select * from tablo1 where [id] not in
böyle hiç kullanmamıştım
Dosanın son halinieklerseniz listboxu küçükten büyüğe sıralatmayıda yapalım olmuşken.
15.mesajdaki kod hata verdiği için yazdım.
konuyu taşımışlar açılırsa ekleyeyim