حرکت کردن در بین اطلاعات خوانده شده از دیتابیس

[rezabnm]

سلام
از دوستانی که در ارطبات با نحوه پیمایش داده های خوانده شده از دیتابیس و چگونگی نشان دادن آن در یک تکست باکس هم با استفاده از روش دیتارید و دیتا آدابتور(اگر درست تلفظ نوشته نشده شرمنده) میدانند لطفا من رو راهنمای کنن البته اگه دستورات شو نوشته شده بگن ممنون میشم دومین سوال من اینکه چطور میشه از دو تکس باکس اطلاعاتی مثل یوزرنیم و پسورد رو گرفت و در پایگاه داده چک کرد واگر درست بود به کاربر اجازه ورود بدیم اگه به این سوالام جواب بدین ممنون میشم:لبخندساده:

[غلامرضا شریفی]

ابتدا

Imports System.Data
Imports System.Data.OleDb
سپس در يك button

Dim con As New OleDbConnection("provider = microsoft.jet.oledb.4.0; data source=E:\Asrar\Database\asrar.mdb")
Dim strsql As String = "select * from student"
Dim data_a As New OleDbDataAdapter(strsql, con)
Dim data_s As New DataSet
con.Open()
data_a.Fill(data_s, "student")
con.Close()
Do
Me.TextBox1.DataBindings.Add(New Binding("text", data_s, "student.Fname"))
Me.TextBox1.DataBindings.Clear()
'
Me.TextBox2.DataBindings.Add(New Binding("text", data_s, "student.Ffamily"))
Me.TextBox2.DataBindings.Clear()
'
Me.TextBox4.DataBindings.Add(New Binding("text", data_s, "student.Fno"))
Me.TextBox4.DataBindings.Clear()
'
Me.TextBox3.Text = Me.TextBox1.Text.Trim & " " & Me.TextBox2.Text.Trim
'-------------------
If Me.BindingContext(data_s, "student").Position + 1 = Me.BindingContext(data_s, "student").Count Then Exit Do
If Me.BindingContext(data_s, "student").Position < Me.BindingContext(data_s, "student").Count Then Me.BindingContext(data_s, "student").Position += 1
Me.Refresh()
Loop
را بنويس از ابتدا تا انتهاي بانك را در تكس نشان ميدهد