您的位置：程序门 -> vb -> 基础类

为什么用ado无法更新sybase库的数据,巨慢,会死锁

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

为什么用ado无法更新sybase库的数据,巨慢,会死锁

发表于：2007-09-29 07:44:30 楼主

为什么用ado更新sybase库的数据,巨慢,会死锁

private sub command1_click（)
'////////////第一种方案开始/////////////////////
sybase_ad.recordset.activeconnection.ＥＸＥＣute = "update lib set 卡号=" & val（trim（t_ka.text)) & "where 借书证号='" & trim（t_js.text) & "'"

'////////////第一种方案结束/////////////////////

'////////////第二种方案开始/////////////////////
'dim myconn as new adodb.connection
'dim mycommand as new adodb.command
'dim caffected as long

'myconn.provider = "asaprov"
' myconn.connectionstring = _
' "data source=cyz_sybase"
' myconn.open

' mycommand.commandtext = _
'"update lib set 卡号=" & val（trim（t_ka.text)) & "where 借书证号='" & trim（t_js.text) & "'"

'set mycommand.activeconnection = myconn
'mycommand.ＥＸＥＣute caffected

'myconn.close
'////////////第二种方案结束/////////////////////

msgbox "卡号更新成功!"
t_js.setfocus '最后执行
t_js.text = ""
ts.caption = "提示:"
ts.caption = ts.caption & "请输入借书证号!"
end sub

这个就是处理代码，本人用了两种方案，但结果都是一样.
注:sybase用的是9.0试用版,os为win server 2003,开发工具为vb6.0企业版