db.open

Får du nogen fejlmeddelse?

ADODB.Recordset error \'800a0bb9\'

The application is using arguments that are of the wrong type, are out of acceptable range, or are in conflict with one another.

/kontakt/information.asp, line 31

line 31  db.open \"Select * From Adresse WHERE Id = \'\" & request.form(\"id\") & \"\'\",dns,1

Prøv at ændre:

db.open \"Select * From Adresse WHERE Id = \'\" & id & \"\'\",dns,1

til:

db.open \"Select * From Adresse WHERE Id = \" & id,dns,1

samme fejl

prøv med bare;

db.open \"Select * From Adresse WHERE Id = \'\" & id & \"\'\"

Hvad hvis jeg skal åbne posten med disse to

id = request.form(\"id\")
email = request.form(\"email\")

Prøv at ændre samme linje til:

sqlstr = \"Select * From Adresse WHERE Id = \" & id

response.write (sqlstr): response.end

og vis outputtet.

Hvad mener du?

ny fejl

ADODB.Recordset error \'800a0e7d\'

The application requested an operation on an object with a reference to a closed or invalid Connection object.

/kontakt/information.asp, line 32

\"Select * From Adresse WHERE Id = \'\" & id & \"\' and email = \'\" & email & \"\'\"

Hvilken af linjerne er linje 32?

line 32

db.open \"Select * From Adresse WHERE Id = \'\" & id & \"\'\"

(du kan også poste hele koden)

den skulle du kommentere ud, altså:

//db.open \"Select * From Adresse WHERE Id = \'\" & id & \"\'\"

jeg er ikke med nu spectual

Kan du ikke poste de første 32 linjer af din kode?

Microsoft VBScript compilation error \'800a0400\'

Expected statement

/kontakt/information.asp, line 32

//db.open \"Select * From Adresse WHERE Id = \'\" & id & \"\'\"

Undskyld, min fejl. Det skulle selvfølgelig være:

\'db.open \"Select * From Adresse WHERE Id = \'\" & id & \"\'\"

istedet.

ADODB.Fields error \'800a0cc1\'

ADO could not find the object in the collection corresponding to the name or ordinal reference requested by the application.

/kontakt/information.asp, line 34

prøv:

SET dsn = Server.CreateObject(\"ADODB.Connection\")
dsn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"adresse.mdb\")
Sql = \"Select * FROM adresse where id=\'\" & id & \"\'\"

mortenhinge >> det er umuligt at rette noget hvis ikke vi får linien der bilver meldt fejl til!

Hvad med lys? Kommer der nogen lys i computeren? Hvad med tastaturet? Lyser det?

lol. forkert browser vindue. :P

Jeg starter helt forfra.

Jeg skal ind og opdatere en post.

Jeg har postens ID og postens Email.
OG det der skal rettes er I et Felt der hedder Brev.

Ok. Vis de første 40 linjer af din ASP fil.

Min DB hedder Adresse.

Jeg har ændret lidt på det så det ligger i toppen.


id = request.form(\"id\")
email = request.form(\"email\")
brev = cstr(request(\"brev\"))

set dsn = Server.CreateObject(\"ADODB.Connection\")
set db = Server.CreateObject(\"ADODB.RecordSet\")
dsn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"adresse.mdb\")
\'db.open \"Select * From Adresse WHERE Id = \'\" & id & \"\'\"

brev = db(\"brev\")

Prøv at skifte de linjer til:
id = request.form(\"id\")
email = request.form(\"email\")
brev = cstr(request(\"brev\"))

set dsn = Server.CreateObject(\"ADODB.Connection\")
set db = Server.CreateObject(\"ADODB.RecordSet\")
dsn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"adresse.mdb\")
\'db.open \"Select * From Adresse WHERE Id = \'\" & id & \"\'\"

sqlstr = \"Select * From Adresse WHERE Id = \'\" & id & \"\'\"
response.write (sqlstr):response.end

brev = db(\"brev\")

der får jeg det svar

Select * From Adresse WHERE Id = \'1\'

Hvilken type felt er \"Id\" i din tabel adresse?

det er min autonr. og der er kun den ene post nu.

Hvis det er et autonumeringsfelt kan du ikke have \'1\'.

Prøv at ændre til:

id = request.form(\"id\")
email = request.form(\"email\")
brev = cstr(request(\"brev\"))

set dsn = Server.CreateObject(\"ADODB.Connection\")
set db = Server.CreateObject(\"ADODB.RecordSet\")
dsn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"adresse.mdb\")
\'db.open \"Select * From Adresse WHERE Id = \'\" & id & \"\'\"

sqlstr = \"Select * From Adresse WHERE Id = \" & id

db.open sqlstr,1,1

response.write (sqlstr):response.end

brev = db(\"brev\")

ADODB.Recordset error \'800a0bb9\'

The application is using arguments that are of the wrong type, are out of acceptable range, or are in conflict with one another.

/kontakt/information.asp, line 13

db.open sqlstr,1,1

Har du defineret nogen relationer inde i access?

Det tror jeg ikke.
Jeg har kun en post i DB\'en
og den har ID nr. 1

Hvad giver:

id = request.form(\"id\")
email = request.form(\"email\")
brev = cstr(request(\"brev\"))

set dsn = Server.CreateObject(\"ADODB.Connection\")
set db = Server.CreateObject(\"ADODB.RecordSet\")
dsn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"adresse.mdb\")
\'db.open \"Select * From Adresse WHERE Id = \'\" & id & \"\'\"

sqlstr = \"Select * From Adresse WHERE Id = \" & id

\'db.open sqlstr,1,1

response.write (sqlstr):response.end

brev = db(\"brev\")

Jeg fatter det ikke, jeg har fået det til at virke men jeg fik slettes scriptet.
og sidden har jeg slettet nogle poster i DB og komprimeret og reprereret db\'en

prøv at skrive dette og KUN dette;

-------------------------

<%

id = request.form(\"id\")

SET dsn = Server.CreateObject(\"ADODB.Connection\")
dsn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"adresse.mdb\")
Sql = \"Select * FROM adresse where id=\'\" & id & \"\'\"
set rs = dsn.Execute(SQL)

Response.Write \"\" & rs(\"kolonne\") & \"\"

%>

------------------

hvor kolonne er navnet på den kolonne du skal have udskrevet...

ups:

id = request.form(\"id\")
email = request.form(\"email\")
brev = cstr(request(\"brev\"))

set dsn = Server.CreateObject(\"ADODB.Connection\")
set db = Server.CreateObject(\"ADODB.RecordSet\")
dsn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"adresse.mdb\")
\'db.open \"Select * From Adresse WHERE Id = \'\" & id & \"\'\"

sqlstr = \"Select * From Adresse WHERE Id = \" & id

db.open sqlstr,dsn

response.write (sqlstr):response.end

brev = db(\"brev\")

Prøv lige den!

Select * From Adresse WHERE Id = 1

Så virker det.

id = request.form(\"id\")
email = request.form(\"email\")
brev = cstr(request(\"brev\"))

set dsn = Server.CreateObject(\"ADODB.Connection\")
set db = Server.CreateObject(\"ADODB.RecordSet\")
dsn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"adresse.mdb\")

sqlstr = \"Select * From Adresse WHERE Id = \" & id

db.open sqlstr,dsn

brev = db(\"brev\")

Bortset fra at hvis Id er det eneste felt, kan du ikke hente feltet brev jf.:

brev = db(\"brev\")

fejl
Microsoft OLE DB Provider for ODBC Drivers error \'80040e07\'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/kontakt/information.asp, line 9


<%


id = request.form(\"id\")

SET dsn = Server.CreateObject(\"ADODB.Connection\")
dsn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"adresse.mdb\")
Sql = \"Select * FROM adresse where id=\'\" & id & \"\'\"
set rs = dsn.Execute(SQL)

Response.Write \"\" & rs(\"Brev\") & \"\"

%>

%>

Hvad er linje 9?

Jeg har lavet en post til så der er 2

Prøv at skifte dem ud til:

<%
id = request.form(\"id\")

SET dsn = Server.CreateObject(\"ADODB.Connection\")
dsn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"adresse.mdb\")
Sql = \"Select * FROM adresse where id=\'\" & id & \"\'\"
rs.open sqlstr, dns

Response.Write \"\" & rs(\"Brev\") & \"\"

%>

linie 9

set rs = dsn.Execute(SQL)

ups:

<%
id = request.form(\"id\")

SET dsn = Server.CreateObject(\"ADODB.Connection\")
dsn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"adresse.mdb\")
Sqlstr = \"Select * FROM adresse where id=\'\" & id & \"\'\"
rs.open sqlstr, dns

Response.Write \"\" & rs(\"Brev\") & \"\"

%>

Igen her:

<%
id = request.form(\"id\")

SET dsn = Server.CreateObject(\"ADODB.Connection\")
dsn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"adresse.mdb\")
Sqlstr = \"Select * FROM adresse where id=\" & id
rs.open sqlstr, dns

Response.Write \"\" & rs(\"Brev\") & \"\"

%>

Microsoft VBScript runtime error \'800a01a8\'

Object required: \'rs\'

line 7  rs.open sqlstr, dns

jeg tror jeg sidder og stener...

<%

SET dsn = Server.CreateObject(\"ADODB.Connection\")
dsn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"adresse.mdb\")
Sql = \"Select * FROM adresse where id=\'1\'\"
set rs = dsn.Execute(SQL)

Response.Write \"\" & rs(\"Brev\") & \"\"

%>

ups:

<%
id = request.form(\"id\")

SET dsn = Server.CreateObject(\"ADODB.Connection\")
SET rs = Server.CreateObject (\"ADODB.RecordSet\")
dsn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"adresse.mdb\")
Sqlstr = \"Select * FROM adresse where id=\" & id
rs.open sqlstr, dns

Response.Write \"\" & rs(\"Brev\") & \"\"

%>

der kommer ingen fejl med

id = request.form(\"id\")
email = request.form(\"email\")
brev = cstr(request(\"brev\"))

set dsn = Server.CreateObject(\"ADODB.Connection\")
set db = Server.CreateObject(\"ADODB.RecordSet\")
dsn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"adresse.mdb\")

sqlstr = \"Select * From Adresse WHERE Id = \" & id

db.open sqlstr,dsn

brev = db(\"brev\")


Men bliver Brev også opdatere med det der kommer fra cstr(request(\"brev\"))

opdateret i databasen?

Det er meningen at jeg skal opdatere feltet Brev

Det skal du gøre med sql.

Den kode du har vist gør ikke at andet end at hente feltet \"brev\" fra databasen hvor ID feltet er lig variablen ID, som bliver sendt af en form fra en anden side.

Jeg tror egentlig jeg har besvaret dit spørgsmål. Hvad med at lukke det?

jeg er ikke med her... jeg står af da min hjerne åbenbart fungere på et så lavt et niveau at jeg ikke kan følge spørgers tankegang...

hvad med at gå i seng keysersoze? :P Det har jeg da da tænkt mig... :D

det virker med dette.

id = request.form(\"id\")
email = request.form(\"email\")
brev = cstr(request(\"brev\"))

set dsn = Server.CreateObject(\"ADODB.Connection\")
dsn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"adresse.mdb\")

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
SQL = \"Select * From Adresse WHERE Id = \" & id
rs.Open SQL, dsn, 1, 3

    rs(\"brev\") = Request.form(\"brev\")

rs.Update