PGlabo

« [VB6.0|Access] ADOで接続 | メイン | [ASP.NET] DataReader からチェックボックスリストへ（ドロップダウンリストと同じ） »

2005年10月11日

[VB6.0|MySQL] MySQLにODBCで接続

'実行時バインディング（参照設定：なし）
Dim OdbcConn As Object
Dim OdbcRS As Object

    Set OdbcConn = CreateObject("ADODB.Connection")

    Set OdbcRS = CreateObject("ADODB.Recordset")

    

    OdbcConn.open "Driver={MySQL ODBC 3.51 Driver};Uid=**;Pwd=**;Database=[DB名]"

    OdbcRS.open [SQL文], OdbcConn

    '終了処理
    OdbcRS.Close
    Set OdbcRS = Nothing
    OdbcConn.Close
    Set OdbcConn = Nothing

2005 / 10 / 11