VisualStudio
سه شنبه 19 تیر 1386, 18:02 عصر
با سلام خدمت دوستان ، برای برای استخراج داده هام از دیتابیس از این کد استفاده می کنم
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DBPath = System.IO.Directory.GetCurrentDirectory & "\db1.mdb"
OleDbConn = New OleDbConnection("Provider=microsoft.jet.oledb.4.0; data source=" & DBPath & ";Jet OLEDB:Database Password=1234567890;")
OleDbConn.Open()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim LU As String
Dim LP As String
Dim MyDataReader As OleDbDataReader
Dim cmd As New OleDbCommand
cmd.CommandType = CommandType.Text
cmd.CommandText = "SELECT * FROM `Table1` WHERE `Position` = 'Ordinary'"
cmd.Connection = OleDbConn
MyDataReader = cmd.ExecuteReader
While MyDataReader.Read
LU = MyDataReader("Fname".ToString)
LP = MyDataReader("Lname".ToString)
End While
حالا ممکن هست که نتیجه این Query 10 رکورد باشه من میخوام که همه 10 تا رکورد در یک جا خارج از دید کاربر ذخیره بشه ومن بتونم از آن استفاده کنم مثلا :
If LU = "Computer" Then
MsgBob("salam")
End If
اما یک رکررد را نمایش میدهد آیا من باید از Query دیگری استفاده کنم یا از آرایه استفاده کنم
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DBPath = System.IO.Directory.GetCurrentDirectory & "\db1.mdb"
OleDbConn = New OleDbConnection("Provider=microsoft.jet.oledb.4.0; data source=" & DBPath & ";Jet OLEDB:Database Password=1234567890;")
OleDbConn.Open()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim LU As String
Dim LP As String
Dim MyDataReader As OleDbDataReader
Dim cmd As New OleDbCommand
cmd.CommandType = CommandType.Text
cmd.CommandText = "SELECT * FROM `Table1` WHERE `Position` = 'Ordinary'"
cmd.Connection = OleDbConn
MyDataReader = cmd.ExecuteReader
While MyDataReader.Read
LU = MyDataReader("Fname".ToString)
LP = MyDataReader("Lname".ToString)
End While
حالا ممکن هست که نتیجه این Query 10 رکورد باشه من میخوام که همه 10 تا رکورد در یک جا خارج از دید کاربر ذخیره بشه ومن بتونم از آن استفاده کنم مثلا :
If LU = "Computer" Then
MsgBob("salam")
End If
اما یک رکررد را نمایش میدهد آیا من باید از Query دیگری استفاده کنم یا از آرایه استفاده کنم