FROM-sætning med variabel

Prøv med:
Query = "SELECT * FROM '" & Request.QueryString("tabel") & "' WHERE ID='" & Request.QueryString("ID")

skovtrold > Gør jeg det, så får jeg denne fejlmelding:

Microsoft OLE DB Provider for ODBC Drivers fejl '80004005'

[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl i forespørgslen. Forespørgslens delsætning er ikke fuldstændig.

admin/slet.asp, linje 38

skovtrold >> den er da helt hen i skoven :-) Det ville jo eks. blive noget i stil med "SELECT * FROM 'Tabel' WHERE ID = X" - den går ikke i SQL.

Prblemet kunne være at ID er et reserveret ord i flere databaser, så prøv med [ID] - alternativt prøv med "WHERE ID='" & Request.QueryString("ID") & "'" hvis ID er et alfanumerisk felt.

Sådan ser mit script ud:

Dim ID, tabel
tabel = Request.QueryString("tabel")
Query = "SELECT * FROM '" & tabel & "' WHERE ID='" & Request.QueryString("ID")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Query, Connect, 1, 2

Umiddelbart er der ikke noget galt med sætningen, jeg har fået den til at virke på min server. Er du sikker på at der ikke er noget galt med de variable der bliver sendt i querystring'en?

kan det have noget med mellemrum mellem FROM og " - altså
FROM '"?

Du kunne jo prøve at lave en

response.write query
response.end

- for at se hvad din query ender op med at være.

sådan ser hele scriptet ud:
<%
Dim ID, tabel
tabel = Request.QueryString("tabel")
id = Request.QueryString("ID")

%>

<%
If id = "" Then
Response.Write "Internal Error (Intet ID)"
End If





If Request.QueryString("slet") = "1" AND id <> "" Then

Query = "SELECT * FROM '" & tabel & "' WHERE ID='" & Request.QueryString("ID")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Query, Connect, 1, 2

Dim post
post = Request.QueryString("post")
dokument = Request.QueryString("dokument")
%>
Vil du slette posten <i><%=post%></i> i tabellen <i><%=tabel%></i>?<br>
<a href="slet.asp?slet=2&ID=<%=rs("ID")%>&tabel=<%=tabel%>">JA</a>&nbsp;&nbsp;
<a href="<%=dokument%>.asp">NEJ</a>
<%






If Request.QueryString("slet") = "2" AND id <> "" Then
Query = "SELECT * FROM '" & tabel & "' WHERE ID='" & Request.QueryString("ID")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Query, Connect, 1, 2
rs.Delete
Response.Write "det virker"
End If
End If
%>

Hvilken fejl får du?

Microsoft OLE DB Provider for ODBC Drivers fejl '80004005'

[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl i forespørgslen. Forespørgslens delsætning er ikke fuldstændig.

admin/slet.asp, linje 38

Personligt ville jeg slette pingerne efter FROM og før WHERE og efter ID=
Derefter ville jeg som tmceu skriver få den til at skrive din sql sætning ud, så er det lidt nemmere at se hvad det er der går galt.

Og hvad får du hvis du gør som tmceu siger:
response.write query
response.end

der bliver sendt den rigtige streng fra den foregående asp-side så det er ikke det, der mangler... tror det har noget med FROM-sætningen at gøre...

hvor skal jeg skrive tmceu's sætning henne i mit script?

Altså
<%
Dim ID, tabel
tabel = Request.QueryString("tabel")
id = Request.QueryString("ID")

%>

<%
If id = "" Then
Response.Write "Internal Error (Intet ID)"
End If
If Request.QueryString("slet") = "1" AND id <> "" Then

Query = "SELECT * FROM '" & tabel & "' WHERE ID='" & Request.QueryString("ID")
response.write Query
%>

hvis der er tekst i Request.QueryString("ID")
så skal det så sådan ud
"SELECT * FROM '" & tabel & "' WHERE ID='" & Request.QueryString("ID") & "'"

gør jeg det - så får jeg fuldstendig den samme fejlmelding:

Microsoft OLE DB Provider for ODBC Drivers fejl '80004005'

[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl i forespørgslen. Forespørgslens delsætning er ikke fuldstændig.

admin/slet.asp, linje 38

det er kun tal i ID

Hovsa, der skulle have stået
<%
Dim ID, tabel
tabel = Request.QueryString("tabel")
id = Request.QueryString("ID")

%>

<%
If id = "" Then
Response.Write "Internal Error (Intet ID)"
End If
If Request.QueryString("slet") = "1" AND id <> "" Then

Query = "SELECT * FROM " & tabel & " WHERE ID=" & Request.QueryString("ID")
response.write Query
%>

:-( ... får stadig samme fejlmelding:

Microsoft OLE DB Provider for ODBC Drivers fejl '80004005'

[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl i forespørgslen. Forespørgslens delsætning er ikke fuldstændig.

admin/slet.asp, linje 38

yep, så skulle ras2000's svar virke :)

mccannon > jamen det gør det ikke hos mig. Kan det have noget med Response.Buffer = True at gøre?

Du skal fjerne de pinger du har i sql sætningen, de giver kun problemer. Derudover vil jeg skyde på at din tabel kommer ind forkert. Men prøv mit forslag, så kan du jo se hvordan din sql sætning ser ud.

hmm

nej - jeg har lige testet dit script - men det giver hele tiden den samme fejlmelding.

Du skal lave en ny side, hvor det eneste der står er:
<%
Dim ID, tabel
tabel = Request.QueryString("tabel")
id = Request.QueryString("ID")

%>

<%
If id = "" Then
Response.Write "Internal Error (Intet ID)"
End If
If Request.QueryString("slet") = "1" AND id <> "" Then

Query = "SELECT * FROM " & tabel & " WHERE ID=" & Request.QueryString("ID")
response.write Query
%>
Det skal altså virke, der er slet ingen database involveret, der er vist ikke noget der kan gå galt i det.

Sådan ser scriptet ud - som jeg prøver at køre:
<%
Dim ID, tabel
tabel = Request.QueryString("tabel")
id = Request.QueryString("ID")

%>

<%
If id = "" Then
Response.Write "Internal Error (Intet ID)"
End If
If Request.QueryString("slet") = "1" AND id <> "" Then

Query = "SELECT * FROM " & tabel & " WHERE ID=" & Request.QueryString("ID")
response.write Query
%>

okay prøver lige igen... 2 sek

nej - det ENESTE jeg har på siden er:

<%
Dim ID, tabel
tabel = Request.QueryString("tabel")
id = Request.QueryString("ID")

%>

<%
If id = "" Then
Response.Write "Internal Error (Intet ID)"
End If
If Request.QueryString("slet") = "1" AND id <> "" Then

Query = "SELECT * FROM " & tabel & " WHERE ID=" & Request.QueryString("ID")
response.write Query
%>

men det virker stadig ikke...

måske burde jeg starte forfra - og lave det på en anden måde... jeg lukker.

OK, der mangler også en end if til sidst.
<%
Dim ID, tabel
tabel = Request.QueryString("tabel")
id = Request.QueryString("ID")

%>

<%
If id = "" Then
Response.Write "Internal Error (Intet ID)"
End If
If Request.QueryString("slet") = "1" AND id <> "" Then

Query = "SELECT * FROM " & tabel & " WHERE ID=" & Request.QueryString("ID")
response.write Query
End if
%>
Derudover skal du selvfølgelig huske at skrive din querystring i adresselinien, ellers kommer der ikke så meget.
ny_side.asp?tabel=minTabel&ID=1&slet=1