请高手进来看一下,俺马上就要交课程设计了,关于update 更新数据库记录的问题!
nhwm 2004-06-25 01:05:47 代码如下:
Sub Button1_Click(sender As Object, e As EventArgs)
dim s_no as string ="20017400111"
dim count as integer =15
dim flag as integer= MyUpdateMethod(s_no,count)
response.write(flag)
End Sub
Function MyUpdateMethod(ByVal s_no As String, ByVal count As Integer) As Integer
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=D:\asp.net\desi"& _
"gn\database.mdb"
Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString)
Dim queryString As String = "UPDATE [student_info] SET [已选门数]=@count WHERE ([student_info].[学号] = @s_no)"
Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection
Dim dbParam_s_no As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_s_no.ParameterName = "@s_no"
dbParam_s_no.Value = s_no
dbParam_s_no.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_s_no)
Dim dbParam_count As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_count.ParameterName = "@count"
dbParam_count.Value = count
dbParam_count.DbType = System.Data.DbType.Int32
dbCommand.Parameters.Add(dbParam_count)
Dim rowsAffected As Integer = 0
dbConnection.Open
Try
rowsAffected = dbCommand.ExecuteNonQuery
Finally
dbConnection.Close
End Try
Return rowsAffected
End Function
语句正常执行后,满足条件的数据库记录的 已选门数 字段值无变化!
望高手给出正确的源代码!