为什么?为何不能更新?用参数方式?OleDb.OledbCommand
Dim strSQL As String
Dim resultValue As Boolean
Dim conn As OleDb.OleDbConnection = New OleDb.OleDbConnection(HyIni.DataConnection("MDBofData"))
strSQL = "UPDATE LoanFlat Set Loaner=@Loaner Where LoanID=@LoanID"
Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand(strSQL, conn)
cmd.Connection.Open()
cmd.Parameters.Add(New OleDb.OleDbParameter("@LoanID", OleDb.OleDbType.Integer))
cmd.Parameters.Add(New OleDb.OleDbParameter("@Loaner", OleDb.OleDbType.VarChar))
cmd.Parameters("@LoanID").Value = LoanID
cmd.Parameters("@Loaner").Value = Loaner.Text.ToString
cmd.ExecuteNonQuery()
cmd.Connection.Close()
End Sub
如果strSQL如下
strSQL = "UPDATE LoanFlat Set Loaner='" & Loaner.Text.ToString & "' Where LoanID=@LoanID"
则可,为什么,面且上述方式虽然不提交,但也不报错!
为什么?