Ich habe hier noch eine AccessDB rumliegen, die ich gerne auslesen würde. Ich habe allerdings kein MS Office installiert. Jetzt haben wir in der Schule über VBScript auf eine Datenbank zugegriffen und ich würde das gerne auch mit meiner lokalen AccessDB machen:
Code:
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Script : Datenbankzugriff '
' File : 06_01_ADODB_DatenbankZugriff.vbs '
' Date : 2007-03-22 - Last modified: 2007-03-22 '
' '
' Michael Puff - [
url]http://www.michael-puff.de[/
url] '
' '
' Zugriff auf eine Datenbank mit ADODB '
' '
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
const CAPTION = "06_01_ADODB_DBZugriff.vbs"
const CONSTR = "driver=
MySQL ODBC 3.51 Driver;server=10.17.171.200;uid=root;pwd=;database=Benutzerverwaltung2;option=NUM"
Set adoDataCom = CreateObject("ADODB.Connection")
' Datenbankverbindung aufbauen
adoDataCom.open(CONSTR)
'
SQL Statement
Set rs = adoDataCom.execute("SELECT * FROM benutzer")
' Iterieren durch die Ergebnismenge
While not rs.eof
For Each field in rs.fields
s = s & field & ", "
Next
' letzte Komma abschneiden und Zeilenumbruch
s = Left(s, len(s) - 2)
s = s & vbcr
rs.moveNext
Wend
MsgBox s, 0, CAPTION
Jedoch weiß ich nicht, wie ich den ConnectionString aufbauen muss.
Ich habe es jetzt so probiert:
Code:
const CONSTR = "driver=Microsoft
Access Driver;server=127.0.0.1"
, jedoch bekomme ich den Fehler:
Zitat:
Fehler: [Microsoft][
ODBC Driver Manager] Der Datenquellenname wurde nicht gefunden, und es wurde kein Standardtreiber angegeben