+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Soruları ve Cevapları (https://accesstr.net/forum-visual-basic-net-sorulari-ve-cevaplari.html)
+--- Konu Başlığı: Vb.net Yardım Arama (/konu-vb-net-yardim-arama.html)
Vb.net Yardım Arama - byhuda - 21/04/2017
Try
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=personel\Database.mdb")
Dim ds As New DataSet
Dim da As New OleDbDataAdapter("select * from personel where sicil='" & TextBox1.Text & "'", baglanti)
If da.Fill(ds) Then
Form2.Show()
da.Fill(ds, "sirala")
Form2.DataGridView1.DataSource = ds.Tables("sirala")
Else
Form3.Show()
End If
Catch ex As Exception
MsgBox(ex.Message)
End Tryaranacak kod:197678
aranacak kod:197679
bu ben bu kodu TextBox1_TextChanged içine aranacak kod:197678
aranacak kod:197679
bunları aradıgımızda 19767 tek tek szüyor ben şöyle istiyorum 6 karektere kadar aramasın son karekteri girince arasın
yani veritabanında en son k-veri girince arasın istiyorum
Cvp: Vb.net Yardım Arama - alpeki99 - 21/04/2017
If TextBox1.TextLength = 6 Thenşeklinde metin kutusundaki değerin 6 karakter olup olmadığını kontrol edersiniz.