Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim s As String
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Then
MsgBox("ใส่ข้อมูลให้ครบ", MsgBoxStyle.Information, "ผลการทำงาน")
Exit Sub
End If
s = "insert into s_product(ID_product,n_product,n_number,n_pice) values ("
s += "'" & TextBox1.Text & "',"
s += "'" & TextBox2.Text & "',"
s += "'" & TextBox3.Text & "',"
s += "'" & TextBox4.Text & "'"
s += ")"
ExecuteSQL(s)
MsgBox("บันทึกข้อมูล", MsgBoxStyle.Information, "ผลการทำงาน")
End Sub