http://jingyan.baidu.com/article/22a299b5185fd29e19376af2.html
dim conn as variant
Dim rs As variant
Set conn = CreateObject("ADODB.Connection")
conn.Open "DSN=ERP;UID=qothpr;PWD=ktron"
Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM UTCRCP",conn
While not rs.eof
Print rs("UTCRDS ").Valuers.movenext
wend
rs.close
Setrs=Nothing '清放连接
本文介绍了一个使用VBA连接ERP数据库并读取特定表中数据的例子。通过创建ADODB.Connection对象和Recordset对象,可以实现与ERP系统的交互,并遍历记录集打印所需字段的值。

492

被折叠的 条评论
为什么被折叠?



