Office中国论坛/Access中国论坛

标题: 代码报错，问题出哪了？ [打印本页]

作者: sxgaobo 时间: 2015-6-23 18:16
标题: 代码报错，问题出哪了？
本帖最后由 sxgaobo 于 2015-6-23 18:26 编辑

Set r = CurrentDb.OpenRecordset("表名表")
While Not r.EOF
   strConn = "ODBC;DRIVER=SQL Server;SERVER=192.168.1.1;UID=sa; PWD=123456;DATABASE=2"
   DoCmd.TransferDatabase acLink, "ODBC", strConn, acTable, r.名称, r.名称
   r.MoveNext
Wend

这个运行正常

Set r = CurrentDb.OpenRecordset("表名表")
While Not r.EOF
   strConn = "ODBC;DRIVER=SQL Server;SERVER=" & r.IP & ";DATABASE=" & r.数据库 & ";UID=" & r.用户 & "

WD=" & r.密码
DoCmd.TransferDatabase acLink, "ODBC", strConn, acTable, r.名称, r.名称
r.MoveNext
Wend

这个报错，帮忙看看问题在哪了？！

作者: tmtony 时间: 2015-6-23 18:32
你可打印 strConn 出来看看与上面那个有什么不同之点
用debug.print strconn

作者: 盗梦 时间: 2015-6-24 08:58
下个断点，逐个调试

作者: roych 时间: 2015-6-24 10:51
本帖最后由 roych 于 2015-6-24 10:53 编辑

如果我没猜错的话，r应该是一个记录集，那么这句可能有问题：

strConn = "ODBC;DRIVER=SQL Server;SERVER=" & r.IP & ";DATABASE=" & r.数据库 & ";UID=" & r.用户 & "WD=" & r.密码 ";PWD=" & r.密码

可以改为下面的语句再试试：
strConn = "ODBC;DRIVER=SQL Server;SERVER=" & r("IP") & ";DATABASE=" & r.数据库 & ";UID=" & r("用户") & "WD=" & r("密码")&";PWD="&r("密码")

作者: sxgaobo 时间: 2015-6-25 08:24
{:soso_e183:}谢谢各位了！搞定了。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)