Das war es noch nicht.
Die Fehlermeldung bleibt die gleiche! ;-( *schnief*

-----Urspr�ngliche Nachricht-----
Von: Roman Pittroff [mailto:[EMAIL PROTECTED]]
Gesendet: Freitag, 23. November 2001 10:59
An: ASP Diskussionsliste fuer Anfaenger
Betreff: [aspdebeginners] RE: Total Blackout bei Schreiben in DB


Versuche es mal so

Query = "select * from anzeigen"
rs.Open Query, connect, adOpenStatic, adLockOptimistic

rs.add
rs("Name") = "Hansens"
rs("Vorname") = "Thomas"
rs.Update

Gruss

Roman Pittroff
Consulting
Bangkok, Thailand

-----Original Message-----
From: Regge, Olaf [mailto:[EMAIL PROTECTED]] 
Sent: Friday, November 23, 2001 4:58 PM
To: ASP Diskussionsliste fuer Anfaenger
Subject: [aspdebeginners] Total Blackout bei Schreiben in DB


Hallo Leute,

ich bin seid einigen Tagen dabei mit unterschidlichen M�glichkeiten zu
�ben in DB zu lesen und zu schreiben.

Mit diesem Script habe ich totale probleme:

<%
Dim dsn,connect,rs,Query
dsn="DBQ=" & Server.Mappath("anzeigendb.mdb") & ";Driver={Microsoft
Access Driver (*.mdb)};" set
connect=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
connect.open dsn


Query = "select * from anzeigen"
rs.Open Query, connect, adOpenStatic, adLockOptimistic

rs("Name") = "Hansens"
rs("Vorname") = "Thomas"
rs.Update
%>

Hier will ich in die Zellen Name und Vorname etwas schreiben in die DB
anzeigendb.mdb die im selben Verzeichnis liegt. Ich erhalten die
Fehlermeldung: ADODB.Recordset-Fehler '800a0bb9' 

Die Argumente sind vom falschen Typ, liegen au�erhalb des
G�ltigkeitsbereiches oder sind miteinander unvereinbar. 

/anzeigenmarkt/test1.asp, Zeile 10 > rs.Open Query, connect,
adOpenStatic, adLockOptimistic

---------
Dieses Script zum Lesen tut es aber:

<%
Dim dsn,connect,rs
dsn="DBQ=" & Server.Mappath("anzeigendb.mdb") & ";Driver={Microsoft
Access Driver (*.mdb)};" set
connect=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
connect.open dsn

Set OnAbfragen = Connect.Execute("select * from anzeigen")

Do Until OnAbfragen.EOF
%>

<% =OnAbfragen("Vorname") %>
<% =OnAbfragen("Name") %>

<% OnAbfragen.MoveNext
Loop
%>

Hilfe, was mache ich falsch....

Gru�
Olaf

| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [EMAIL PROTECTED] subscribed 
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv Sie 
| knnen sich unter folgender URL an- und abmelden: 
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp


| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp

| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp

Antwort per Email an