vba连接mysql数据库。

Posted 2023-04-11

根据窗体文本框输入的数值，获取mysql表中符合要求的行粘贴到Excel表中

参考技术A 这个需要用odbc连接追问

废话

追答

现在提问的都这么屌吗？

自己不会还不谦虚

追问

你就是不懂，我还好好跟你说？就像问你厕所怎么去？你回答走路去一样？？有用？你懂什么？不懂就别回。交流都不会，为什么这样回你没点b数吗？问你一句回几个字，你看不懂问什么还是什么都不懂？

VBA连接Oracle12c数据库

1.客户端必须安装对应oracle版本的client

2.excel中按如下操作添加组件

‘请先添加引用：工具－引用－Microsoft ActiveX Data Objects 2.8 ‘Library,Microsoft ActiveX Data Objects Recordset 2.8 Library

 

 

Sub OraLink()

    Dim conn As Object
    Dim rs As Object
    Dim strConn As String
    
    Set conn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.recordset")
  
    strConn = "Provider=OraOLEDB.Oracle.1; user id=joe; password=joe; data source = 192.168.0.118:2001/dbap.com.cn; Persist Security Info=True"

    conn.Open strConn ‘打开数据库
    
    Set rs = conn.Execute("select * from joe.test")
    
    For j = 0 To rs.Fields.Count - 1
      Cells(1, j + 1) = rs.Fields(j).Name
    Next
    
    ‘粘贴结果
    Range("A2").CopyFromRecordset rs
    
  
End Sub