• 主页
  • VBS
  • .NET技术
  • VBA
  • VB网络编程
  • VB多媒体
  • VB数据库
  • VB控件
  • VB COM/DCOM
  • VB基础类
  • VB API

Access更新问题,看看有没有朋友遇上过

mostone 2006-06-14 05:30:30
使用oleDB连接Access97数据库,下面两条执行:
?dbcommon.ExecuteNoQuery("update (select * from vendor where cVenCode=@cVenCode) set cvenname=@cVenName",new OleDbParameter(){new OleDbParameter(commonconst.PARA_CVENCODE,strcode),new OleDbParameter(commonconst.PARA_CVENNAME,strname)},me.objImportConnection,me.objImportTransaction)
1
?dbcommon.ExecuteNoQuery("update vendor set cvenname=@cVenName where cVenCode=@cVenCode",new OleDbParameter(){new OleDbParameter(commonconst.PARA_CVENCODE,strcode),new OleDbParameter(commonconst.PARA_CVENNAME,strname)},me.objImportConnection,me.objImportTransaction)
0

一个返回更新了一条,一个返回更新了零条,怪了说....
...全文
135 点赞 收藏 6
写回复
6 条回复
mostone 2006年06月16日
不是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
回复 点赞
lyfer 2006年06月16日
NND=nai nai de,楼主误会我了
回复 点赞
lyfer 2006年06月15日
NND.ado.net就是麻烦.楼主看看是不是字段类型和写入的值不对
回复 点赞
amandag 2006年06月15日
这语句看的真累
回复 点赞
bitpolar 2006年06月14日
写的这么复杂 看不懂艾
回复 点赞
ch00549476 2006年06月14日
郁闷中成长 UP
回复 点赞
发动态
发帖子
VB
创建于2007-09-28

1.1w+

社区成员

11.0w+

社区内容

VB技术相关讨论,主要为经典vb,即VB6.0
社区公告
暂无公告