Set id = Wscript.arguments
 
'DB-connect
set myconn = CreateObject("ADODB.Connection")
'Set 
myconn.Open "DSN=test"
 
'Query 
mySQL = "SELECT * from journal where ID="
mySQL = mySQL & id(0)
SQLPos = "SELECT * from journalpos where ID=" & id (0) & " ORDER BY POSITION"
set myrsj = myconn.execute(mySQL)
set myrspos = myconn.execute(SQLPos)
myrows = myrsj.RecordCount
 
'ausgabe debugging
wscript.echo id(0)
wscript.echo mysql
wscript.echo myrsj.getstring
if not myrsj.eof and not myrsj.bof then
	wscript.echo myrsj.GetRows()
end if
wscript.echo SQLPos
wscript.echo myrspos.getstring
if not myrspos.eof and not myrspos.bof then
	wscript.echo myrspos.GetRows()
end if
 
'AUSGABE
'Word-Applikation instanziie.
 
Set wdApp = CreateObject("Word.Application")
wdApp.Application.Visible=true
 
Set wdDoc = wdApp.Documents.Add(WordVorlage)
'Rechtschreibpruefung aus?
'wdApp.Documents.Add Template:=WordVorlage
 
'RS-Daten ins Dok
'Stammdaten
set rBm = wdDoc.Bookmarks("AZeile2").Range
'wdDoc.Bookmarks("AZeile2").Range.InsertBefore 
'range.Text myrsj.Fields("Name1")
set fv =  myrsj.Fields("NAME1")
 
call feldwerte(fv, rBm)
 
'DB-disconnect
myrsj.Close
myrspos.Close
myconn.Close
 
Public sub feldwerte(wert, platz)
'dim wert, platz ', rBm
	if not IsNull(wert) then '= True Then
			msgbox wert 'hier: Ausnahmefehler aufgetreten Code: 800200009 Quelle: (null) 
			wert = CStr(wert)
		else
			msgbox wert
			wert = "emety"
	end if
 
	platz.InsertBefore(wert)
 
end sub