|
Hallo
ich habe ein Problem mit dem
command-objekt.
Also ich bastle gerade an einem G�stebuch und die
Message(HTML-Formular-textarea) soll per command-objekt in das Memo-Feld
gb_message in der Tabelle g_buch geschrieben werden. Das Problem ist nun das ich
nicht weis welche Zahl der Konstante f�r den Typ Memo entspricht und wie ich die
gr��e(size) angeben muss da das memo-feld ja bis zu ca 65.000 Zechen speichern
kann. Falls es relevant ist habe auch probiert die Unicode-Compression f�r das
Memo-Feld in der DB einmal an und auszuschalten.
Ich habe schon alle Konstanten f�r Texttypen aus
der adovbs.inc probiert.
Der Code funktioniert einwandfrei, wenn ich die die
'Message' nicht im Code habe.
Die MDAC wird im component checker mit V 2.1
angegeben obwohl ich office2000 installiert habe
Benutze Win98se / PWS / office2000
prof.
Maske: Set parameter =
command.CreateParameter (Name, Type, Direction, Size, Value)
Alle Variablen 'f_xxxxx' sind die
Werte aus dem Formular, und diese werden auch korrekt
�bergeben .
Auszug aus dem Code:
Set cn =
Server.CreateObject("ADODB.Connection")
Connstr = "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath("db/wl_db.mdb") & ";" cn.open(connstr) Set cm= Server.CreateObject("ADODB.Command")
Set cm.ActiveConnection = cn cm.CommandText ="insert into g_buch (gb_name, gb_email, gb_hp, gb_icq, gb_titel, gb_message, gb_datum,gb_zeit) Values(?,?,?,?,?,?,?,?)" set objparam=cm.createparameter(, 200, , 20,
f_name)
cm.parameters.append objparam set objparam=cm.createparameter(, 200, , 50, f_email) cm.parameters.append objparam set objparam=cm.createparameter(, 200, , 50, f_hp) cm.parameters.append objparam set objparam=cm.createparameter(, 200, , 15, f_icq) cm.parameters.append objparam set objparam=cm.createparameter(, 200, , 50,f_titel) cm.parameters.append objparam set objparam=cm.createparameter(, 201, , , f_message) cm.parameters.append objparam '<---- Zeile der Fehlermeldung set objparam=cm.createparameter(, 7, , , f_datum) cm.parameters.append objparam set objparam=cm.createparameter(, 7, , , f_zeit) cm.parameters.append objparam cm.execute
Und die Fehlermeldung
lautet:
ADODB.Parameters-Fehler '800a0e7c'
Die Anwendung hat ein Parameter-Objekt nicht
ordnungsgem�� definiert.
Ich hoffe ihr k�nnt mir da
weiterhelfen.
Schon mal dank im vorraus
Gru�
Alex
P.S: Das ist mein erstes Posting in dieser Liste.
Falls ich weiteres beim posten beachten sollte einfach
dazuschreiben
|
