Access 不能更新的原因,返回值为 0,但没有任何错误,Help!
Function MyUpdateMethod(ByVal messID As Integer, ByVal messContend As String, ByVal qualified As Integer) As Integer
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=F:\aspx\Data\Ne"& _
"ws.mdb"
Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString)
Dim queryString As String = "UPDATE [Mess] SET [Qualified]=@Qualified, [MessContend]=@MessContend WHERE ([Mess"& _
"].[MessID] = @MessID)"
Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection
Dim dbParam_messID As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_messID.ParameterName = "@MessID"
dbParam_messID.Value = messID
dbParam_messID.DbType = System.Data.DbType.Int32
dbCommand.Parameters.Add(dbParam_messID)
Dim dbParam_messContend As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_messContend.ParameterName = "@MessContend"
dbParam_messContend.Value = messContend
dbParam_messContend.DbType = System.Data.DbType.[String]
dbCommand.Parameters.Add(dbParam_messContend)
Dim dbParam_qualified As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_qualified.ParameterName = "@Qualified"
dbParam_qualified.Value = qualified
dbParam_qualified.DbType = System.Data.DbType.Int32
dbCommand.Parameters.Add(dbParam_qualified)
Dim rowsAffected As Integer = 0
dbConnection.Open
Try
rowsAffected = dbCommand.ExecuteNonQuery
Finally
dbConnection.Close
End Try
Return rowsAffected
End Function