作者：绿色风
分类：
时间：2022-08-18
浏览：142
楼主
G_avin |
Q:如何利用SQL建立EXCEL之间的联系
A：EXCEL 与 SQL（任一版本）的数据访问连接建立，只须对应修改
mydara, user_new, pass_new, iP_new
以上四个变量内容即可
备注：在建立连接前，请确保 EXCEL VBE工程中以引用Microsoft ActiveX data Objects * 工程 其中*为版本号- Public conn As New ADODB.Connection
- Public rs As New ADODB.Recordset
- Sub ado()
- Dim mydara, user_new, pass_new, iP_new
- mydata = "数据库名称"
- user_new = "数据名用户名"
- pass_new = "用户密码"
- iP_new = "127.0.0.1" '数据库位置，若本机可以直接用127.0.0.1或本机计算机名代替，若局域网内计算机可直接用对应的主机IP或计算机名代替，若是互联网可以用SQL设置的外网IP代替
- Set conn = New ADODB.Connection
- Set rs = New ADODB.Recordset
- cnnstr = "provider=sqloledb;" _
- & "user id = " & user_new & ";" _
- & "password = " & pass_new & ";" _
- & "data source =" & iP_new & ";" _
- & "initial catalog =" & mydata
- conn.ConnectionString = cnnstr
- On Error Resume Next
- conn.Open
- If conn.State <> adStateOpen Then MsgBox "数据库连接失败", 16, "数据库连接"
- End Sub
|
2楼
lnt1231 |
努力学习中. |
3楼
LOGO |
向楼主学习如何建立EXCEL与SQL数据库连接，谢谢楼主的分享。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一