我正在尝试编辑列的数据。我将列加载到文本框中并让用户编辑字段。但现在要插入它,我知道我可以删除该列并添加一个新列,但我不能覆盖该列中的数据吗?
谢谢!
'Edit Customer
Dim bllKlant As New bllKlant
Dim objKlant As New Klant
objKlant.KlantNaam = txtNaam.Text
objKlant.KlantBtwNr = txtBtw.Text
objKlant.KlantCode = txtCode.Text
objKlant.KlantAdminLidID = ddlLeden.SelectedValue
objKlant.KlantDealerID = ddlDealers.SelectedValue
'Edit+ checks
bllKlant.bewerkKlant(objKlant)
在 bllKlant 中,我调用函数来插入/更新列。
在 dalKlant 中,我使用该函数并返回一个 bool 值是否更新成功。 Klant = 客户,只是荷兰语。
最佳答案
好的,这就是我解决这个问题的方法。
在 aspx.vb 页面中我执行了以下操作
Dim bllCust As New bllCust
Dim objCust As New Cust
objCust.Custname = txtName.Text
objCust.CustBtwNr = txtBtw.Text
objCust.CustCode = txtCode.Text
objCust.CustAdminUserID = ddlUsers.SelectedValue
objCust.CustDealerID = ddlDealers.SelectedValue
'Edit+ checks
Try
bllCust.EditCust(objCust)
Catch ex As Exception
lblFeedback.Text = ex.Message
End Try
在 bllCust 中:
Public Function EditCust(ByVal objCust As Cust) As Boolean
<!-- I have checks here to see whether the values don't already excist. -->
If dataKlant.EditCust(objCust) Then
Throw New Exception("Customer was edited.")
Return True
Else
Throw New Exception("Customer couldn't be edited, try again.")
Return False
End If
End Function
最后在 dalCust 中:
Public Function EditCust(ByVal objCust As Cust) As Boolean
myconn.Open()
Dim result As New Boolean
Dim SQL As String = "update Cust set CustName= @CustName, CustCode = @CustCode where CustID= @CustID"
Dim cmd As New MySqlCommand(SQL, myconn)
cmd.Parameters.AddWithValue("@CustID", objCust.CustID)
cmd.Parameters.AddWithValue("@CustName", objCust.CustName)
cmd.Parameters.AddWithValue("@CustCode", objCust.CustCode)
result= cmd.ExecuteNonQuery()
myconn.Close()
Return result
End Function
我就是这么做的。我还将荷兰语翻译成英语,以便每个人都能更好地理解。
关于mysql - 使用插入编辑列中的数据?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/7137081/