Avatar billede fuzzy2 Nybegynder
11. november 2001 - 23:27 Der er 3 kommentarer og
1 løsning

Access database connection, opret/rediger script

Jeg har dette script:

-------- ASP VBSCRIPT START -------
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"main.mdb\")
Conn.Open DSN

Set rs = Conn.Execute(SQL)

SQL = \"SELECT navn FROM main WHERE id = \" & Request.Querystring(\"id\") & \"

rs.Open SQL, Conn, 1, 3

if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
rs.update
rs(\"name\") = Server.HTMLEncode(Request(\"name\"))
rs.update                               
end if

%>
<form method=\"post\" action=\"popup.asp\" >
<input type=\"text\" name=\"navn\" value=\"<%=rs(\"navn\")%>\">
<input type=\"submit\" value=\"Gem\">
</form>

----- ASP VBSCRIPT SLUT -----

Hvorfor virker det ikke???

Scriptet skal først oprette en forbindelse til databasen main.mdb, derefter skal dataen hentes, dataen der skal hentes i tabellen \"main\", og kolonnen \"name\" og man kommer ind på siden med et id nr. f.eks. www.domain.dk/index.asp?id=1 så man kan finde ud af hvilken kolonne-række scriptet skal trække data ud fra.

Så skal der være et INPUT hvor dataen bliver placeret hvis der er nogle data, dataen i det INPUT skal så kunne redigeres og gemmes i under samme id-nr. og kolonne, så man kan updatere dataen i NAVN-kolonnen.

Hvis scriptet ikke kan bruges til dette så vil jeg gerne have et nyt, hvis der er nogle der kender en meget nem måde at gøre det på.

På forhånd tak!

Med venlig hilsen
Troels Siggaard
Avatar billede somaliomar Praktikant
11. november 2001 - 23:34 #1
Prøv det her:

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"main.mdb\")
Conn.Open DSN

SQL = \"SELECT * FROM main WHERE id = \" & Request.Querystring(\"id\") & \"
Set rs = Conn.Execute(SQL)


if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
rs(\"name\") = Server.HTMLEncode(Request(\"name\"))
rs.update                               
end if

%>
<form method=\"post\" action=\"popup.asp\" >
<input type=\"text\" name=\"navn\" value=\"<%=rs(\"navn\")%>\">
<input type=\"submit\" value=\"Gem\">
</form>
Avatar billede fuzzy2 Nybegynder
12. november 2001 - 00:14 #2

Den kommer med denne fejl:

Tekniske oplysninger (for supportteknikere)

Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0409)
Strengkonstanten er uafsluttet
/arentoftfilm/popup.asp, line 13, column 70
SQL = \"SELECT * FROM main WHERE id = \" & Request.Querystring(\"id\") & \"
---------------------------------------------------------------------^


...ved ikke hvad jeg kan gøre ved det!
Avatar billede fuzzy2 Nybegynder
12. november 2001 - 00:16 #3
Sorry! Jeg har fundet fejlen, det var bare en extra \" til sidst.

Mange tak!

Med venlig hilsen
Troels Siggaard
Avatar billede somaliomar Praktikant
13. november 2001 - 08:51 #4
Selv tak du! :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester