กำลังพิมพ์ข้อมูลลงโปรแกรม เมื่อกดปุ่ม เพิ่ม ข้อมูลจะโชวที่ Lisbox แต่โชว์ใน DataGridView1 ไม่ขึ้น และขึ้น Error ว่า Incorrect syntax nerar 'LEET'. ไม่แน่ใจว่าผิดตอนเชื่อมตารางหรือเปล่า ช่วยทีนะค่ะ
Private Sub ShowDetails()
If Not (dataSt.Tables("book") Is Nothing) Then
dataSt.Tables("book").Clear()
End If
sql = "SELECT Book.BookID, Book.BookName, Categories.CategoryName, " & _
"Book.UnitPrice, Book.UnitsInstock" & _
"FROM Book LEFT JOIN Categories " & _
"ON Book.CategoryID = Categories.CategoryID " & _
"WHERE Book.SupplierID = " & TextID.Text
command.CommandText = sql
adapter.SelectCommand = command
adapter.Fill(dataSt, "book")
DataGridView1.DataSource = dataSt.Tables("book")
Dim headerText() As String = {"รหัส", "ชื่อหนังสือ", "หมวด", "ราคาขาย", "คงเหลือ"}
For i = 0 To headerText.Count - 1
DataGridView1.Columns(i).HeaderText = headerText(i)
Next
End Sub
VB.Net ไม่สามารถเพิ่มข้อมูลใน Dataset ได้ ช่วยหนูทีนะค่ะ
Private Sub ShowDetails()
If Not (dataSt.Tables("book") Is Nothing) Then
dataSt.Tables("book").Clear()
End If
sql = "SELECT Book.BookID, Book.BookName, Categories.CategoryName, " & _
"Book.UnitPrice, Book.UnitsInstock" & _
"FROM Book LEFT JOIN Categories " & _
"ON Book.CategoryID = Categories.CategoryID " & _
"WHERE Book.SupplierID = " & TextID.Text
command.CommandText = sql
adapter.SelectCommand = command
adapter.Fill(dataSt, "book")
DataGridView1.DataSource = dataSt.Tables("book")
Dim headerText() As String = {"รหัส", "ชื่อหนังสือ", "หมวด", "ราคาขาย", "คงเหลือ"}
For i = 0 To headerText.Count - 1
DataGridView1.Columns(i).HeaderText = headerText(i)
Next
End Sub