(04/02/2020, 19:47)alicimri yazdı: Çok ilginç !!!!!!!!!!!!!!!!!!
"*" karakteri kullanarak oluşturulan aynı Sql metni; Ado ile seçilen harfleri içeren, Dao ile ise seçilen harflerden oluşan kelimeleri listeliyor.
Ado ile alttaki gibi kod yaptım DAO ile arasında fark olmadı.Sonuç aynı ikisindede.
Private Sub Komut0_Click()
Dim ys2 As New ADODB.Recordset
Liste1.RowSource = ""
metin = Metin3.Text
harf = "a b c ç d e f g ð h i ý j k l m n o ö p r s þ t u ü v y z"
harf = Split(harf, " ")
For i = 0 To UBound(harf)
If InStr(1, metin, harf(i)) = 0 Then
yharf = yharf & harf(i)
End If
Next
sorgu = "Select * From kelime Where F1 Not Like '%[" & yharf & "]%'"
ys2.Open sorgu, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Do Until ys2.EOF
Liste1.AddItem ys2("F1").Value
ys2.MoveNext
Loop
End Sub
Private Sub Metin3_Change()
Komut0_Click
End Sub
ADO ile like.rar
(Dosya Boyutu: 537,32 KB | İndirme Sayısı: 0)