5

以下のスクリプトを試しましたが、エラーが発生します。

dim cn, rs

set cn = CreateObject("ADODB.Connection")
set rs = CreateObject("ADODB.Recordset")
cn.connectionstring = "Provider=MysqlProv; Data Source=Adonis; User Id=mysqluser; Password = mysqlpass;"
cn.open
rs.open "select * from Countries", cn, 3
rs.MoveFirst
while not rs.eof
    wscript.echo rs(0)
    rs.next
wend
cn.close
wscript.echo "End of program"

次のエラーが発生します。

C:\mysql.vbs(6, 1) ADODB.Connection: Provider cannot be found. It may not be pro
perly installed.

odbc コネクタをグーグルで検索したところ、odbc 5.1 コネクタをダウンロードできるこのページにたどり着きました。mysql サーバー 5.0 データベースに接続するのにこれで十分かどうか疑問に思っています...?

4

2 に答える 2

7

MySQL Connector/ODBCをインストールし、次のような接続文字列を使用します。

connectionString = "Driver={MySQL ODBC 5.1 Driver};Server=yourServerAddress;" & _
                   "Database=yourDataBase;User=yourUsername;" & _
                   "Password=yourPassword;"
于 2009-09-02T08:58:20.700 に答える
2

上記のスクリプトに小さな変更を加えて、正常に動作しています。

dim cn, rs

i = 0

set cn = CreateObject("ADODB.Connection")
set rs = CreateObject("ADODB.Recordset")

connectionString = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;" & _
                   "Data Source=dsn_hb; Database=TP; User=root; Password=***;"

cn.Open connectionString
rs.open "select * from test.Login", cn, 3
rs.MoveFirst

'msgbox rs(0)'

while not rs.eof
    msgbox rs.Fields(0)
    rs.MoveNext
wend

cn.close

MsgBox "End of program"
于 2012-02-29T10:35:35.683 に答える