' Uebersetzungstabelle Deutsch = Englisch im Infofenster anzeigen
' ===============================================================

Const adLockOptimistic = 3
Const adOpenKeyset = 1

Dim sql

Set objApp		= CreateObject("CT.Application")			'Objekt für E3
Set objDBcon	= CreateObject("ADODB.Connection")			'Datenbankverbinung erzeugen

' Programm
' ======== 
objDBcon.Provider = "Microsoft.Jet.OLEDB.4.0"				'mit Jet OLE DB
objDBcon.ConnectionString = "Data Source = " & GetDatabasePath & "languages.mdb"
objDBcon.Open

Set objDBrec = CreateObject("ADODB.Recordset")
sql = "SELECT * FROM Languages"								'Abfrage definieren

objDBrec.Open sql, objDBcon, adOpenKeyset, adLockOptimistic
For i = 0 To objDBrec.RecordCount-1
	objApp.PutInfo 0, objDBrec( "Deutsch" ) & " = " & objDBrec( "English" )
	objDBrec.MoveNext
Next


objDBcon.close
WScript.quit

' ===== Funktionen ===== 
' ======================
Function GetDatabasePath
Dim ScriptPath
	path = WScript.ScriptFullName
	path = Left(path, InStrRev(path, "\"))
	GetDatabasePath = Replace(path,"Scripte", "cdb")
End Function