Kod:
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged Dim sql As String Dim Dset As DataSet = New DataSet Dim i As Integer, j As Integer For i = 0 To DataGridView1.Rows.Count - 1 If TextBox1.Text = String.Empty Then sql = "Select TcNo,SicilNo,Adi,Soyadi From VerilerSGK" Else sql = "Select TcNo,SicilNo,Adi,Soyadi From VerilerSGK Where TcNo Like'" & TextBox1.Text & "%" & "'" TextBox2.Text = DataGridView1.Item(1, i).Value '*Textboxlara değeri gondemek istiyorum ancak olmuyor. 'TextBox2.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString '* bu şekillde yazdığımda ise karşılığı olmayan değer cıkarsa 'Nesne başvurusu bir nesnenin orneğine ayarlanmadı. Turunden hata veriyor. TextBox3.Text = DataGridView1.Item(2, i).Value TextBox4.Text = DataGridView1.Item(3, i).Value j = j + 1 End If Next If DataGridView1.Rows.Count - 1 = 0 Then MsgBox("Aradığınız Kayıt Bulunamadı...") End If Dim Ds As OleDbDataAdapter = New OleDbDataAdapter(sql, Baglanti)' 'Sql' değişkenine daha onceden değer atanmış. 'İstisnai durumlarda ya da boş olması halinde referans atayabilir. Tarzında hata veriyor. Ds.Fill(Dset, "VerilerSGK") DataGridView1.DataSource = Dset.Tables(0) End Sub
Arkadaşlar yukarıdaki koddan da anlayacağınız gibi textbox1 e değer girdiğimde datagridviewdeki verileri textboxlara cekmek ancak olmadı yardımcı olabilirseniz sevinirim.
__________________