关于VBA操作SQLSERVER

ah2005

最近一直在关注这个问题。。

用公司的销售软件数据库测试了下，感觉用VBA读取数据没什么问题，但是在写入数据上会速度很慢，不知道是为什么，服务器用的是XP,。不知道用2003怎么样。。

看了下论坛的相关帖子，个人觉得就是ADO操作数据库的一个过程，不知道有哪些前辈是用VBA+SQLSERVER做的系统。现身交流一下。还有，一旦网络出现问题，ADO是否有相关处理机制呢？

赵国辉

目前只会用excel备份还原数据库，进行简单的查询、更新、新增的操作
至于速度，那就和具体代码有关了
至于意外情况？暂时没遇到过（估计遇到也不会处理，因为sql数据库的管理之能力，还差太远）
坐个sf等高人来指点

ah2005

晚上去看了下VB中ADO连接SQLSEVER2000的实例，感觉VBA应该能实现。目前公司办公搬到工厂外面，需要广域网连接，不知道和局域网一样不。

赵国辉

链接外网sql数据库，很麻烦
别说外网了，前天连了半小时局域网，都失败了
环境：
tb无线路由
sql服务器为台式机vista系统
客户端为ibm笔记本xp系统
ping ip和服务器名都通
端口默认1433
至今没找到原因

dzy123

原帖由 赵国辉 于 2010-2-1 22:26 发表
目前只会用excel备份还原数据库，进行简单的查询、更新、新增的操作
至于速度，那就和具体代码有关了
至于意外情况？暂时没遇到过（估计遇到也不会处理，因为sql数据库的管理之能力，还差太远）
坐个sf等高人来指 ...

mytabel = "insert into  表1 (姓名,科目) value('赵','数')"
  Dim rs As ADODB.Recordset
  Set rs = New ADODB.Recordset
  rs.Open mytabel, cnn, adOpenKeyset, adLockBatchOptimistic
这个新增不行能帮忙看下不

赵国辉

原帖由 dzy123 于 2010-2-2 10:40 发表

mytabel = "insert into  表1 (姓名,科目) value('赵','数')"
  Dim rs As ADODB.Recordset
  Set rs = New ADODB.Recordset
  rs.Open mytabel, cnn, adOpenKeyset, adLockBatchOptimistic
这个新增不行能帮 ...

看语法没问题，cnn连接上了么？

lb_bn

估计问题出在连接上了。