5,174
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
cdc 2002-09-02
- 打赏
- 举报
谢谢，可是我找不到给分的按钮
supershot 2002-09-02
- 打赏
- 举报
VBA还可以直接调用COM
fengqiang 2002-09-01
- 打赏
- 举报
Samples.xls中有
Sun_JF 2002-09-01
- 打赏
- 举报
Access里VBA操作数据据的主要是用ADO，以前是DAO，要不VBA作用就有限多了。至于使用方法，就像楼上的大头哥说的那样。
kaidu 2002-09-01
- 打赏
- 举报
微软做的，当然是无缝连接了
Penies1 2002-08-30
- 打赏
- 举报
可以的。
只要在Reference中添加ActiveX Data Access Library即可。
只要在Reference中添加ActiveX Data Access Library即可。
hhjjhjhj 2002-08-28
- 打赏
- 举报
先插入一个用户窗体，>>工具>>附加控件>>
具体操作与VB基本相同.
具体操作与VB基本相同.
deldelmeme979 2002-08-28
- 打赏
- 举报
可以的。参考一下我原来写的例子，在Word中连接SQL Server：
Sub SQLS()
Set MyDoc = ActiveDocument
Set MyRange = MyDoc.Range(Start:=0, End:=0)
Set cnn = CreateObject("ADODB.Connection")
cnn.connectionstring = "Driver={SQL Server};server=192.168.5.72;uid=sa;pwd=;database=db1"
cnn.Open
Set rs = CreateObject("ADODB.recordset")
rs.Open "select subject from detail", cnn, 0
rs.movefirst
While Not rs.EOF
MyRange.InsertAfter Text:=rs(0).Value
rs.movenext
Wend
cnn.Close
Set cnn = Nothing
Set rs = Nothing
End Sub
Sub SQLS()
Set MyDoc = ActiveDocument
Set MyRange = MyDoc.Range(Start:=0, End:=0)
Set cnn = CreateObject("ADODB.Connection")
cnn.connectionstring = "Driver={SQL Server};server=192.168.5.72;uid=sa;pwd=;database=db1"
cnn.Open
Set rs = CreateObject("ADODB.recordset")
rs.Open "select subject from detail", cnn, 0
rs.movefirst
While Not rs.EOF
MyRange.InsertAfter Text:=rs(0).Value
rs.movenext
Wend
cnn.Close
Set cnn = Nothing
Set rs = Nothing
End Sub
