- 博客(0)
- 资源 (6)
- 收藏
- 关注
vba连接sql server再联oraclep实例.xlsm
vba连接sql server再联oracle实例读取到EXCLE表中中,带where 条件
Private Sub CommandButton1_Click()
Dim i, j, k, r, b As Long
Dim str
'固定语法
Dim cnn As Object, sql$, Mypath$, MyFile$, n%
Set cnn = CreateObject("adodb.connection")
Set rs = CreateObject("ADODB.RecordSet")
'单元格的内容清除掉
Sheet7.Range("A3:K60000").ClearContents
'输入服务器ip,端口,SQL库名称,用户名,密码
cnn.Open "provider=SQLOLEDB;Data Source=IP,端口;Initial Catalog=库名;User ID=sa;Password=123456;"
'输入sql语句
str = "SELECT * FROM ....."
注释:sql server再联oracle需要单独配置
2024-01-11
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人