คือเราทำโปรเจ็คจบซึ่งทำเอง แล้วมันเกิดปัญหา error แบบนี้อยู่นานมาก แก้มาสองวันแล้วไม่รุ้จะแก้ยังไง ใครพอรู้ช่วยแนะนำหน่อยค่ะ
พอกดปุ่มเพิ่ม บันทึก ลบ แก้ไข ก็จะแจ้งแบบนี้หมดเลยค่ะ แต่พอเข้าไปดูในฐานข้อมูล ข้อมูลก็เข้านะคะ ไม่รู้ว่าเป็นเพราะอะไร T_T
Private Sub UpdateBinding()
For Each ctrl As Control In Me.Controls
ctrl.DataBindings.Clear()
If TypeOf ctrl Is TextBox Then
ctrl.Text = ""
End If
Next
sql = "SELECT * FROM equipment"
command = New SqlCommand(sql, connection)
adapter = New SqlDataAdapter(command)
dataSt = New DataSet()
adapter.Fill(dataSt, "equipment")
ListBox1.DataSource = dataSt.Tables("equipment")
ListBox1.DisplayMember = "equ_name"
ListBox1.SelectedIndex = 0
bindingSrc = New BindingSource()
bindingSrc.DataSource = dataSt.Tables("equipment")
txtIDequ.DataBindings.Add("Text", bindingSrc, "equ_ID")
---// มันแจ้ง error ตรงนี้ ว่า "This causes two bindings in the collection to bind to the same property.Parameter name: binding"
cmbtype.DataBindings.Add("Text", bindingSrc, "equ_type")
txtnameequ.DataBindings.Add("Text", bindingSrc, "equ_name")
txtserial.DataBindings.Add("Text", bindingSrc, "equ_serial")
DateImport.DataBindings.Add("Value", bindingSrc, "equ_date")
cmbstatus.DataBindings.Add("Text", bindingSrc, "equ_status")
End Sub
Updatebinding VB.Net เออเร่อแก้มาหลายวันแล้วค่ะ ไม่ได้สักที T_T
พอกดปุ่มเพิ่ม บันทึก ลบ แก้ไข ก็จะแจ้งแบบนี้หมดเลยค่ะ แต่พอเข้าไปดูในฐานข้อมูล ข้อมูลก็เข้านะคะ ไม่รู้ว่าเป็นเพราะอะไร T_T
Private Sub UpdateBinding()
For Each ctrl As Control In Me.Controls
ctrl.DataBindings.Clear()
If TypeOf ctrl Is TextBox Then
ctrl.Text = ""
End If
Next
sql = "SELECT * FROM equipment"
command = New SqlCommand(sql, connection)
adapter = New SqlDataAdapter(command)
dataSt = New DataSet()
adapter.Fill(dataSt, "equipment")
ListBox1.DataSource = dataSt.Tables("equipment")
ListBox1.DisplayMember = "equ_name"
ListBox1.SelectedIndex = 0
bindingSrc = New BindingSource()
bindingSrc.DataSource = dataSt.Tables("equipment")
txtIDequ.DataBindings.Add("Text", bindingSrc, "equ_ID") ---// มันแจ้ง error ตรงนี้ ว่า "This causes two bindings in the collection to bind to the same property.Parameter name: binding"
cmbtype.DataBindings.Add("Text", bindingSrc, "equ_type")
txtnameequ.DataBindings.Add("Text", bindingSrc, "equ_name")
txtserial.DataBindings.Add("Text", bindingSrc, "equ_serial")
DateImport.DataBindings.Add("Value", bindingSrc, "equ_date")
cmbstatus.DataBindings.Add("Text", bindingSrc, "equ_status")
End Sub