Dim sqlUser As String = "" sqlUser = "SELECT * FROM Product " sqlUser &= " WHERE (ProductID='" & txtProductID.Text & "')" Dim com As New OleDbCommand() Dim dr As OleDbDataReader Dim dt As DataTable With com .CommandType = CommandType.Text .CommandText = sqlUser .Connection = Conn .Parameters.Clear() .Parameters.Add("ProductID", OleDbType.VarChar).Value = txtProductID.Text.Trim() dr = .ExecuteReader() If dr.HasRows Then dt = New DataTable() dt.Load(dr) lblProductName.Text = dt.Rows(0).Item("ProductName").ToString() lblSalePrice.Text = dt.Rows(0).Item("Producttype").ToString() lblNumProduct.Text = dt.Rows(0).Item("SalePrice").ToString() TextBox1.Text = dt.Rows(0).Item("ProductNum").ToString() Else
พี่ค้นใน google เจอเว็บ http://msdn.microsoft.com/en-us/library/979byfca.aspx?cs-save-lang=1&cs-lang=vb#code-snippet-2
พี่เจอโค้ด Public Sub CreateReader(ByVal connectionString As String, _ ByVal queryString As String)
Using connection As New OleDbConnection(connectionString) Dim command As New OleDbCommand(queryString, connection)
connection.Open()
Dim reader As OleDbDataReader = command.ExecuteReader() While reader.Read() Console.WriteLine(reader(0).ToString()) End While reader.Close() End Using End Sub
ดูๆแล้ว connection As New OleDbConnection(connectionString) ของน้องไม่มีใช่หรือเปล่าก็ไม่รู้ ลองทำดู
Dim connectionString As String ="" connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;User Id=admin;Password=;" 'เอาไว้ต่อกับ ms access
Dim sqlUser As String = "" sqlUser = "SELECT * FROM Product " sqlUser &= " WHERE (ProductID='" & txtProductID.Text & "')"
Dim connection As New OleDbConnection(connectionString) Dim com As New OleDbCommand(sqlUser, connection) Dim dr As OleDbDataReader Dim dt As DataTable