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;
0 件のコメント:
コメントを投稿