IranVisual
سه شنبه 28 اسفند 1386, 13:48 عصر
کسی میتونه معادل دستور زیر رو برای بانک اکسس بده
Private Sub LoadDbaseSql()
Dim i As String = UserNumber
Dim objcommand As New SqlCommand
objcommand.Connection = coon
objcommand.CommandText = "select * from School where Kodestiodent='" & i & "'"
coon.Open()
Dim objreader As SqlDataReader
objreader = objcommand.ExecuteReader
objreader.Read()
TextBox1.Text = RTrim(objreader.GetString(0))
TextBox2.Text = RTrim(objreader.GetString(1))
TextBox3.Text = RTrim(objreader.GetString(2))
coon.Close()
End Sub
Private Sub LoadDbaseSql()
Dim i As String = UserNumber
Dim objcommand As New SqlCommand
objcommand.Connection = coon
objcommand.CommandText = "select * from School where Kodestiodent='" & i & "'"
coon.Open()
Dim objreader As SqlDataReader
objreader = objcommand.ExecuteReader
objreader.Read()
TextBox1.Text = RTrim(objreader.GetString(0))
TextBox2.Text = RTrim(objreader.GetString(1))
TextBox3.Text = RTrim(objreader.GetString(2))
coon.Close()
End Sub