钻石项链图片大全:vba中如何实现取sql数据库数据?

来源:百度文库 编辑:高校问答 时间:2024/04/29 04:16:41
如题,请教

会用vb数据库连接,你在vba种直接使用vb的方式即可
可参考下面的代码
------------------
Public Function ConnectDB()
cs = "Provider=Microsoft.jet.OLEDB.4.0;Data Source="
'conn.ConnectionString = CS & app.Path & "\Score5.mdb"
conn.ConnectionString = cs & "F:\Scview\score4.mdb"
'cs="Provider=SQLOLEDB;Server=JF705;Database=mytest;Uid=sa;pwd=lmlm"
'cs="Provider=SQLOLEDB;Server=JF705\ETSERVER;Database=mytest;Uid=sa;pwd=lmlm"
'cs="Provider=SQLOLEDB;Server=JF705;Database=mytest;Uid=sa1;pwd=lmlm"
'conn.ConnectionString=cs
conn.Open
'response.write conn
'response.end

End Function