lapielda16
21.09.2007, 18:11
slm arkadaslar yıne bır dorum olacak ben bı tablodan textboxa sadece 1 alandakı verıyı cekmek ıstıyorum bunu nasıl yapabılırım mesela kullanıcı adını bı textboxa gırecem o verı tabanında bu kullanıcıyı arayacak ve baska bır textboxa bu kısının sıfresını yazacak bunu nasıl yapabılırım yaredımcı olursanız sevınırım
ben bole bısı yaptım
Dim x As Boolean
x = False
Dim b As New OleDb.OleDbConnection
b.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=d:\kasa\kasa.mdb"
b.Open()
Dim k As New OleDb.OleDbCommand
k.Connection = b
k.CommandType = CommandType.Text
k.CommandText = "select sifre from giris where kullanici_adi=('" & TextBox1.Text & "') and sorusu=('" & TextBox2.Text & "') and cevabi=('" & TextBox3.Text & "')"
adap.SelectCommand = k
Dim ds As New DataSet
adap.Fill(ds, "giris")
Dim dr As OleDb.OleDbDataReader
dr = k.ExecuteReader
Do While dr.Read
x = True
TextBox4.Visible = True
Label5.Visible = True
TextBox4.Text =[COLOR=red] burasını bulamadım/COLOR]
Loop
dr.Close()
ben bole bısı yaptım
Dim x As Boolean
x = False
Dim b As New OleDb.OleDbConnection
b.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=d:\kasa\kasa.mdb"
b.Open()
Dim k As New OleDb.OleDbCommand
k.Connection = b
k.CommandType = CommandType.Text
k.CommandText = "select sifre from giris where kullanici_adi=('" & TextBox1.Text & "') and sorusu=('" & TextBox2.Text & "') and cevabi=('" & TextBox3.Text & "')"
adap.SelectCommand = k
Dim ds As New DataSet
adap.Fill(ds, "giris")
Dim dr As OleDb.OleDbDataReader
dr = k.ExecuteReader
Do While dr.Read
x = True
TextBox4.Visible = True
Label5.Visible = True
TextBox4.Text =[COLOR=red] burasını bulamadım/COLOR]
Loop
dr.Close()