มันเพิ่มข้อมูลไม่ได้มันผิดตรงใหน่หรือป่าวคับ#กำลังหัดทำคับ

Question

Imports System.Data
Imports System.Data.OleDb
Public Class Form1
    Public con As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\FanFilm\Desktop\Product.accdb")
    Public cmd As OleDbCommand
    Public da As OleDbDataAdapter
    Public strsql As String


    Sub gridview()
        strsql = "select * from Product"
        da = New OleDbDataAdapter(strsql, con)
        Dim dt As New DataTable
        da.Fill(dt)
        DataGridView1.DataSource = dt
    End Sub

    Sub conn()
        If con.State = ConnectionState.Open Then
            con.Close()
        End If
        con.Open()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        gridview()
        conn()
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        GroupBox1.Enabled = True
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        cmd = New OleDbCommand("insert into product(ID,name,num) valuse ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')", con)
        conn()
        cmd.ExecuteNonQuery()
        MessageBox.Show("บันทึกเรียบร้อย", "แจ้งเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)
        strsql = "select * from Product"
        da = New OleDbDataAdapter(strsql, con)
        Dim dt As New DataTable
        da.Fill(dt)
        DataGridView1.DataSource = dt
    End Sub

End Class

Answer 1

สวัสดีค่ะ
เมื่อทำการดีบั๊ก สามารถแก้ไขตามข้อผิดพลาดที่ปรากฏ

โปรดดูตัวอย่างต่อไปนี้

ขอบคุณค่ะ

---

MSDN Community Support Please remember to click Mark as Answer ,the responses that resolved your issue, and to click Unmark as Answer if not. This can be beneficial to other community members reading this thread. If you have any compliments or complaints to MSDN Support, feel free to contact [e-mail].