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需要单独配置