Søg
Avatar billede rasmus_h Nybegynder
28. marts 2004 - 22:46 Der er 12 kommentarer og
3 løsninger

Lave adgang til database

Hej!

Følgende kode:
<%
If Request.Querystring("page") = Null THEN
Side = "Main"
Else
Side = Request.Querystring("page")
End If
%>

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

strSQL = "SELECT * FROM pages WHERE page =" & Side

Set rs = Conn.Execute(strSQL)

main_title = rs("main_title")
sub_title = rs("sub_title")
content = rs("content")
%>

Giver følgende fejl:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access-driver] Der er for få parametre. Der var ventet 1.
/index.asp, line 17

Nogen hjælp at hente?

Vh
Rasmus!
Avatar billede dragox Nybegynder
28. marts 2004 - 22:47 #1
du skriver tribe.mdb
hvor er det lige den linker til?
Avatar billede Meggel Novice
28. marts 2004 - 22:48 #2
line 17 ?
Avatar billede Meggel Novice
28. marts 2004 - 22:49 #3
<%
If Request.Querystring("page") = Null THEN
Side = "Main"
Else
Side = Request.Querystring("page")
End If
%>

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

strSQL = "SELECT * FROM pages WHERE page =" & Side

Set rs = Conn.Execute(strSQL)

main_title = rs.fields("main_title")
sub_title = rs.fields("sub_title")
content = rs.fields("content")
%>

måske ?
Avatar billede Meggel Novice
28. marts 2004 - 22:50 #4
strSQL = "SELECT * FROM pages WHERE page = "& Side &""

sådan der :D
Avatar billede Meggel Novice
28. marts 2004 - 22:50 #5
strSQL = "SELECT * FROM pages WHERE page = '"& Side &"'"
Avatar billede dragox Nybegynder
28. marts 2004 - 22:51 #6
<%
If Request.Querystring("page") = Null THEN
Side = "Main"
Else
Side = Request.Querystring("page")
End If
%>

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

strSQL = "SELECT * FROM pages WHERE page = '"& Side &"'"

Set rs = Conn.Execute(strSQL)

main_title = rs.fields("main_title")
sub_title = rs.fields("sub_title")
content = rs.fields("content")
%>
Avatar billede dragox Nybegynder
28. marts 2004 - 22:51 #7
lol fruth vi skrev det samme ^^
Avatar billede eagleeye Praktikant
28. marts 2004 - 22:51 #8
Denne:
If Request.Querystring("page") = Null THEN

Skal også laves om til denne:

If Request.Querystring("page") = "" THEN
Avatar billede eagleeye Praktikant
28. marts 2004 - 22:52 #9
Man kan også lave if sætningen om så den fylder 2 linjer sådan her:

Side = Request.Querystring("page")
If Side = "" THEN Side = "Main"
Avatar billede Meggel Novice
28. marts 2004 - 22:56 #10
SQL100 = "select * from new where id = "&request.QueryString("nyhed")&"" nu mens i er her..
og denne her virker altså heller ikke

SQL100 = "select * from new where id = '"&request.QueryString("nyhed")&"'"


Der er en syntaksfejl, fordi der mangler en operator. i forespørgselsudtrykket "id =".
Avatar billede rasmus_h Nybegynder
28. marts 2004 - 22:56 #11
Tusind tak allesammen...

Jeg lærer nok alt det her ASP engang - man må krybe før man kan gå som man siger...

Denne kode virker:

<%
Side = Request.Querystring("page")
If Side = "" THEN
Side = "Main"
End If
%>

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

strSQL = "SELECT * FROM pages WHERE page = '"& Side &"'"

Set rs = Conn.Execute(strSQL)

main_title = rs.fields("main_title")
sub_title = rs.fields("sub_title")
content = rs.fields("content")
%>

- Rasmus!
Avatar billede eagleeye Praktikant
28. marts 2004 - 22:57 #12
hehe ja :)
Avatar billede rasmus_h Nybegynder
28. marts 2004 - 22:57 #13
Eagleeye, du skal vist også lige svare... ;)

Fruth -> Mon ikke du har skrevet i den forkerte tråd?

- Rasmus!
Avatar billede Meggel Novice
28. marts 2004 - 23:00 #14
det var faktisk noget af det sammen så mens i lige var her.. så kunne jeg altså også godt skrive noget for sidder også selv med et problem
Avatar billede Meggel Novice
28. marts 2004 - 23:01 #15
der skulle faktisk stå nu mens i var her for oven :D
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 16:51 Links m.m. virker ikke Af Kjeld Aage Christiansen i PC
I går 11:04 Outlookproblem Af g91 i E-mail programmer
I går 09:21 Firefox - Bøvl med idelig genbekræftelse af identitet Af andershl i Browsere
17/0815:14 Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel
16/0822:58 Kan man undgå at få vist referer når der klikkes på links Af Strawberry i Browsere
White papers
Flere white papers »