ExcelでMySQLサーバーへ接続: 常不軽のブログ（アサブロ）

ExcelでMySQLサーバーへ接続

マイクロソフトのOffice製品でMySQLに接続するには、
1.MySQL用のODBC接続ドライバをインストールする。
2.「ODBCデータソースアドミニストレータ」でDNSを作成・設定する。
3.VBAでODBC接続のプログラムを作成する。


Sub MySQL接続()
On Error GoTo errHandler
Dim myCon As New ADODB.Connection 'Connectionオブジェクト

'接続文字列を設定する
myCon.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};" _
& "Server=localhost; Database=kokyaku_kanri; Uid=root; Pwd=1234"'MySQLのIDとパスワード
'Server=localhost;はサーバーの名前、またはIPアドレスを記述。ここでは自分自身を指定している。
'データベースに接続する
myCon.Open
MsgBox "接続しました。"
'※ここにデータベースの処理を記述します。
'接続を切断する
myCon.Close
MsgBox "切断しました。"

procContinue:
Set myCon = Nothing
Exit Sub

errHandler:
'エラーが発生した場合にエラーメッセージを表示する
MsgBox Err.Description
Resume procContinue
End Sub

以上でExcelでMySQLサーバーへ接続が可能になります。
開発事例