VBA連接數據庫

VBA連接數據庫（Mysql數據庫）

    1 ODBC方式：

        首先要建立好ODBC數據源（這裏命名myODBC爲例），設置好要連接的DB信息

        Dim myrec as New ADODB.Recordseet

        Dim connString as String

        Dim sql as String

        connString = “Provider = MSDASQL;Data Source = myODBC;”

        sql = "select *  from table"

        myrec.Open sql,connString,adOpenForwardOnly

        While Not myrec.EOF
            Worksheets("Sheet1").Range("A2") = myrec.fields(1)

            myrec.MoveNext
        Wend

        myrec.Close

        set myrec = Nothing

    2  字符匹配串的方式：

       創建連接時直接指定IP，數據庫名，賬號和密碼

       Dim conn AS New ADODB.Connection

       Dim myrec as New ADODB.Recordseet

       Dim connString as String

       Dim sql as String

       sql = "select *  from table"

       connString = "DRIVER={Mysql ODBC 5.1 Driver};SERVER = 127.0.0.1;PORT = 3306;DATABASE = dbname;UID = root；PWD = password"

       conn.ConnectionString = connString

       conn.Open

       myrec.Open sql,conn,adOpenForwardOnly

        While Not myrec.EOF
            Worksheets("Sheet1").Range("A2") = myrec.fields(1)

            myrec.MoveNext
        Wend

        myrec.Close

        conn.Close

        set myrec = Nothing

        set conn = Nothing

        注：當IP和PORT指定爲空時，或指定不合法時，連接會默認爲本地（127.0.0.1）3306端口