2009-09-02 26 views
5

aşağıda senaryo denedim ancak bir hata alıyorum:Saf vbscript kullanarak mysql 5.0 veritabanına bağlanın mı?

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" 

Onun aşağıdaki hatayı veriyor: Ben bir odbc bağlayıcı googled için zaman this sayfaya yere kadar geldi

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

Odbc 5.1 konnektörünü indirebilirim. Bir mysql sunucu 5.0 veritabanına bağlanmak için yeterli olup olmadığını merak ediyorum ...?

cevap

6

MySQL Connector/ODBC kurun ve yukarıdaki senaryoya küçük değişiklikler yaptık ve iyi çalışıyor şu

connectionString = "Driver={MySQL ODBC 5.1 Driver};Server=yourServerAddress;" & _ 
        "Database=yourDataBase;User=yourUsername;" & _ 
        "Password=yourPassword;" 
+0

5.1 konektörü doğru şekilde. – deostroll

+0

Hata mesajı nedir? –

+0

aynı şey ... – deostroll

1

gibi connection string kullanın: hayır bu işe yaramazsa ... Ben yüklemiş

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" 
+0

değişken i ve değişken connectionString tanımlı değil – Tanzeel