โจทย์มันมีอยู่ว่า
เมื่อคลิกปุ่มเพิ่มข้อมูลให้บันทึกข้อมูลลงในตาราง PRODUCT
ถ้าสำเร็จให้ไปยังหน้าหลักโดยอัตโนมัต
ถ้าไม่สำเร็จให้มีข้อความว่าไม่สำเร็จ
ข้อมูลแผนกต้องนำมาจากตาราง DEPARTMENT
คือว่าผมจะบันทึกข้อมูลลงในฐานข้อมูลในตาราง PRODUCT แต่ตรงComboBox1เป็นข้อมูลแผนกต้องนำมาจากตาราง DEPARTMENTแล้วพอกดบันทึกข้อมูลแผนกในตาราง DEPARTMENT มันก็มาบันทึกช่องของDEPT_IDซึ่งช่องนี้ต้องเป็นรหัสแต่มันกลับนำ ตัวหนังสือที่อยู่ในแผนกมาใส่แทนมีวิธีแก้ไงครับและถ้าทำให้มันขึ้น MessageBox เวลาบันทึกไม่สำเร็จด้วยครับช่วยที
Imports System.Data.OleDb
Imports System.Data
Public Class insert
Public conn As New OleDbConnection
Private Sub connectdata() Handles MyBase.Load
'TODO: This line of code loads data into the 'ROBINSONDataSet.DEPARTMENT' table. You can move, or remove it, as needed.
Me.DEPARTMENTTableAdapter.Fill(Me.ROBINSONDataSet.DEPARTMENT)
conn = New OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:/ROBINSON.mdb;Persist Security Info=False;")
conn.Open()
End Sub
Public Function ExecuteSQL(ByVal prmSQL As String) As Boolean
connectdata()
Dim Addcom As New OleDbCommand
With Addcom
.CommandType = CommandType.Text
.CommandText = prmSQL
.Connection = conn
.ExecuteNonQuery()
End With
ExecuteSQL = True
End Function
Private Sub insert() Handles Button1.Click
If ExecuteSQL("INSERT INTO PRODUCT(PROD_ID,PROD_NAME,PROD_PRICE,DEPT_ID)VALUES (' " & TextBox1.Text & " ',' " & TextBox2.Text & " ',' " & TextBox3.Text & " ',' " & ComboBox1.Text & " ') ") Then
Close()
End If
End Sub
End Class
Load balance : Server 05
