Arkadaşlar projemde comboları otomatik tamamlama yapmak istiyorum internette arama yaptım aşağıdaki kodları buldum ama işime yaramadı yada ben yapamadım
Private Sub combo1_Change()
Dim i As Long
Dim nSel As Long
If X = True Or Combo1.Text = "" Then
X = False
Exit If
For i = 0 To Combo1.ListCount - 1
If InStr(1, Combo1.List(i), Combo1.Text, _
vbTextCompare) = 1 Then
nSel = Combo1.SelStart
Combo1.Text = Combo1.List(i)
Combo1.SelStart = nSel
Combo1.SelLength = Len(Combo1.Text) - nSel
Exit For
End If
Next
End Sub
yalnız ben combobox icine verileri veritabanından alıyorum ve şu kodları kullandım tam istedigim gibi ama bir de buna otomatik tamamlama istiyorum
Dim sorgu
sorgu = Combo1.Text
Set conn = New ADODB.Connection
With conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.Open App.Path & "\proje.mdb"
End With
Set rst = New ADODB.Recordset
With rst
.ActiveConnection = conn
.Open "SELECT DISTINCT ad,soyad FROM tekser WHERE (ad= '" + sorgu + "') ", conn, adOpenDynamic, adLockBatchOptimistic
End With
Combo2.Clear
While Not rst.EOF()
Combo2.AddItem rst!soyad
rst.MoveNext
Wend
Set rst = Nothing
conn.Close
şimdiden teşekkurler
__________________
VB 6.0 combobox otomatik tamamlama
Programlama0 Mesaj
●29 Görüntüleme
- ReadBull.net
- Programlama ve Yazılım
- Programlama
- VB 6.0 combobox otomatik tamamlama