Hallo Leute,
da mein erster Thread - "zugegebenerweise" - zu diessem Thema einfach zu ungenau war, möchte ich meine Frage an euch etwas präzisieren:
Ich versuche mit dem folgenden "Code - Snippet" eine bereits existierende txt-Datei zeilenweise auszulesen und den Inhalt dieses Textstreams in eine ACCESS - DB (Tabelle "inbox" in das Feld "Body" Typ: Memo) wegzuschreiben...hier der Code:
'Erzeugen eines FSO Objektes für das Auslesen einer Textdatei
'************************************************************
Set objFSO=Server.CreateObject("Scripting.FileSystemObject")
Set objStream=objFSO.OpenTextFile("D:\dev\progtest\email.txt", 1, True)
'Erzeugung der Datenbankverbindung
'*********************************
dbPath = "d:\dev\progtest\mail.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath
'Zeilenweise auslesen und wegschreiben
'*************************************
DO while not objStream.AtEndOfStream
strLineText=objSTream.ReadLine
Set rs = Server.CreateObject("ADODB.recordset")
rs.open "insert into inbox (Body) values (strLineText)",Conn
Loop
Nach der Ausführung dieser Zeilen bekomme ich folgende Fehlermeldung:
Kompilierungsfehler in Microsoft VBScript- Fehler '800a03ea'
Syntaxfehler
/iisHelp/common/500-100.asp, line 129
elseIf (objASPError.Description > "") Then
^
Microsoft JET Database Engine- Fehler '80040e10'
Für mindestens einen erforderlichen Parameter wurde kein Wert angegeben
Was mache ich falsch?
Danke im Voraus...Gruß proggi