Vbscript から Mysql に接続する

Vbscript またはVBAから Mysql に接続するには、まず　Connector/ODBC をダウンロードしてインストールしておきます。次に例えば以下のようなコードを使用します。Connector/ODBCは5.2.4ansiをダウンロードしました。




 Set conn = CreateObject("ADODB.Connection")
 Set rs = CreateObject("ADODB.Recordset")
 
  conn.Open "Driver={MySQL ODBC 5.2a Driver};server=192.168.xx.xx;" & _
            "database=stock_db; uid=xxxx; pwd=xxxx;"
 
    rs.Open "select * from stock", conn
 
    rs.MoveFirst

    MsgBox "--" & rs.Fields(0)
    MsgBox "--" & rs.Fields(1)
    MsgBox "--" & rs.Fields(2)
    MsgBox "--" & rs.Fields(3)

    rs.MoveNext
    MsgBox "--" & rs.Fields(0)
    MsgBox "--" & rs.Fields(1)
    MsgBox "--" & rs.Fields(2)
    MsgBox "--" & rs.Fields(3)

    rs.Close
    conn.Close
 
msgbox "end"



-----------------------------------------------------------------------

以下は、MySQL上にテーブルを作成するためのSQL文ですが、この時に最期の行にENGINE=InnoDB DEFAULT CHARSET=sjis　という文言を入れないと日本語データを入力した時に文字化けします。


CREATE TABLE log_rec (
  id` int(11) NOT NULL auto_increment,
  access_date date default NULL,
  access_time time default NULL,
  agent varchar(255) default NULL,
  path varchar(100) default NULL,
  ip_address varchar(50) default NULL,
  PRIMARY KEY  (id)
) ENGINE=InnoDB DEFAULT CHARSET=sjis;