不是NND.ado.net
dbcommon.ExecuteNoQuery是自己写的一个方法
'******************************************************************************
'* 概要 ： 执行SQL,返回影响行数
'* 参数 ： (i)strSQL 查询语句
'* (i)objParas() 参数数组
'* (i)objConn 数据库连接
'* (i)objTran 数据库事务
'* 返回值 ： 影响记录条数
'* 说明 ： 如果没有参数，objParas()请使用Nothing
'* 作成日 ： 2006/05/12
'* 作成者 ：
'******************************************************************************
Public Shared Function ExecuteNoQuery(ByVal strSQL As String, _
ByVal objParas() As OleDbParameter, _
ByVal objConn As OleDbConnection, _
Optional ByVal objTran As OleDbTransaction = Nothing) As Integer
Dim objCommand As OleDbCommand
Dim intRows As Integer
' 创建SelectCommand
objCommand = objConn.CreateCommand()
Try
' 设置查询SQL语句
objCommand.CommandText = strSQL
' 判断参数是否存在
If Not objParas Is Nothing AndAlso objParas.Length > 0 Then
' 如果参数存在，向SelectCommand中添加所有参数
For Each objPara As OleDbParameter In objParas
objCommand.Parameters.Add(objPara)
Next
End If
' 判断是否存在事务
If Not objTran Is Nothing Then
' 如果事务存在，设置SelectCommand的事务
objCommand.Transaction = objTran
End If
' 执行SQL语句
intRows = objCommand.ExecuteNonQuery()
Finally
' 执行清除处理
objCommand.Dispose()
End Try
' 返回影响记录行数
Return intRows
End Function
