Windows 7(x64)+MySQL 5.1+VB6で開発
Windows 7(64bit)版で、MySQLでデータ取得、更新までのあれこれをするまでのメモ。
久々にプログラム開発をしてみた。
まあ言語は何でもよかったんだけど、久々にVisual Basic6.0で。
で、VB6インストールしたんだけど、SP6が入らないでやんの。
まあいいや。SPあたってなくても、さほど困らないし・・。
MySQLのサーバーは別マシンですでに立ってるので、
そこに間借りすることにする。
とりあえず、ODBCドライバを落としてくる。
Windows (x86, 64-bit), MSI Installer
http://www.mysql.com/downloads/connector/odbc/
データベースの作成で文字コードは、
utf8_unicode_ci で作成しておけば良い。
VB6からは以下のコードで接続する。
Dim ConnectionString As String
Dim ADO_Conn As New ADODB.Connection
ConnectionString = “DRIVER={MySQL ODBC 5.1 Driver};” & _
“SERVER=” & DB_SERVER & “;” & _
“PORT=” & DB_PORT_NO & “;” & _
“DATABASE=” & DB_MAME & “;” & _
“USER=” & DB_USER & “;” & _
“PASSWORD=” & DB_PASSWORD & “;”
ADO_Conn.Open ConnectionString
データの取得はこんな感じ
Dim rs As New ADODB.Recordset
rs.Open “SELECT * FROM testdb”, ADO_Conn
Do While Not rs.EOF
Debug.Print rs!id, rs!memo
rs.MoveNext
Loop
Set rs = Nothing
データの書き込みはこんな感じ。
日本語の処理に苦労するとおもったけど・・・
ADO_Conn.Execute “UPDATE testdb SET memo =’ζ*ﾟワﾟ)ζ＜うっうー’ where id=841 ”
phpMyAdminで確認すると、おおすごい！文字化けせず書き込めてる！
昔苦労した記憶があったんだけど、今のODBCドライバが賢いのかな？
とにかくこれでMySQLのデータベースに対し、VB6でアクセスするなんて鬼畜な
社内アプリをゴリゴリ書く準備はできた。
一部のデータはApache+PHPで読み書きさせるんですよ。
どれだけ外道プログラマーなんだかｗ
Popularity: 1% [?]
タグ: ADO, ODBC, VB6, Visual Basic
