3.2w+
社区成员
- 主页
- 基础类
- 应用实例
- 新技术前沿
连接远程SQLSERVER服务器，开启事务报错！！！
Conn连接的是远程服务器
执行到 Conn.BeginTrans 提示“未设置对象变量或With Block变量”
但是连接本机SQLSERVER数据库没有问题
但是用查询分析器连接远程服务器，执行Begin Tran 也可以正常执行。不提示错误
我用的VB，望高手给予指点！
...全文
请发表友善的回复…
发表回复
wdwd05 2007-04-20
Connstr = "provider=sqloledb;data source=218.224.XXX.XXX,1433;User ID=CC;pwd=1234;Initial Catalog=aa"
Public Function fun_ConnJoin(aConn As ADODB.Connection, Connstr As String, CommandTimeOut As Integer) As String
On Error GoTo Err_Conn
If aConn Is Nothing Then Set aConn = Nothing
Set aConn = New ADODB.Connection
aConn.ConnectionString = Connstr
aConn.CursorLocation = adUseClient
aConn.CommandTimeOut = CommandTimeOut
aConn.Open
fun_ConnJoin = "OK"
Exit Function
Err_Conn:
fun_ConnJoin = Err.Description
'释放连接
Call sub_LogoutConnection(aConn)
End Function
这是连接的代码，我保证肯定连接上服务器
Public Function fun_ConnJoin(aConn As ADODB.Connection, Connstr As String, CommandTimeOut As Integer) As String
On Error GoTo Err_Conn
If aConn Is Nothing Then Set aConn = Nothing
Set aConn = New ADODB.Connection
aConn.ConnectionString = Connstr
aConn.CursorLocation = adUseClient
aConn.CommandTimeOut = CommandTimeOut
aConn.Open
fun_ConnJoin = "OK"
Exit Function
Err_Conn:
fun_ConnJoin = Err.Description
'释放连接
Call sub_LogoutConnection(aConn)
End Function
这是连接的代码，我保证肯定连接上服务器
wdwd05 2007-04-20
不可能没连接上，去掉CONN。BEGINTRANS 执行没有任何问题
leo_lesley 2007-04-20
是不是没有连接上远程的服务器啊~~~~~
CathySun118 2007-04-20
未设置对象变量或With Block变量。这句话明显是vb的错误，是不是conn没有连接