Avatar billede w13 Novice
15. september 2004 - 17:01 Der er 6 kommentarer og
1 løsning

Fejl: Command text was not set for the command object.

Hej Eksperter...

Er der nogen af jer, der kan se, hvad der er galt her:

<%
id = request.querystring("admin")
%>
<%
  Set rs = Server.CreateObject("ADODB.RecordSet")
  Set Conn = Server.CreateObject("ADODB.Connection")
  strDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../db/database.mdb")
  Conn.Open strDSN

Set rs = Conn.Execute(SQL)

  Response.Write "<font size='2'><b>Admin'en er nu slettet!</b></font>"
  sql = "delete from [admins] where [ID] = " & id
  conn.Execute(SQL)

'lukker pænt igen
rs.Close
set rs = Nothing
Conn.Close
Set Conn = Nothing

%>
_______________________

Fejlen hedder:

"Command text was not set for the command object."
_______________________

Håber I kan hjælpe...
W13
Avatar billede trekkies Juniormester
15. september 2004 - 17:11 #1
I din delete sætning, prøv at ændre det til dette:
sql = "delete from [admins] where [ID]=" & TRIM(Request("id"))
Avatar billede trekkies Juniormester
15. september 2004 - 17:14 #2
Hvis jeg kan se rigtigt, så skal din
Set rs = Conn.Execute(SQL)

neden under din delete sætning
Avatar billede w13 Novice
15. september 2004 - 17:18 #3
Så siger den:

Syntax error (missing operator) in query expression '[ID]='.
Avatar billede trekkies Juniormester
15. september 2004 - 17:22 #4
Jeg har brugt denne delete sætning:
<%
Set conn= Server.CreateObject("ADODB.connection")
Conn.Open = "DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)}; DBQ=" & server.MapPath("../database/club.mdb")
SQLstmt = "DELETE * FROM medlemmer WHERE ID=" & TRIM(Request.QueryString("id"))
conn.Execute (SQLstmt)
conn.Close
set close = nothing
set conn = nothing
Response.Redirect ("list_medlemmer.asp")
%>

Du kan prøve den, husk at rette den til.
Avatar billede tobocom Nybegynder
15. september 2004 - 17:22 #5
Hvis du bruger Jet 4 som du gør bør du gøre følgende:

<%
    Dim id
    Dim cmd
    Dim strDSN
    Dim SQL


    id = request.querystring("admin")

    SQL = "delete from [admins] where [ID] = " & id

    strDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../db/database.mdb")

    Set Cmd = Server.CreateObject("ADODB.Command")   
    Cmd.ActiveConnection = strDSN
    Cmd.CommandText = SQL
    Cmd.Execute
    Cmd.ActiveConnection.Close 

  Response.Write "<font size='2'><b>Admin'en er nu slettet!</b></font>"
%>

Og så skal du være sikker på at request.querystring("admin") indeholder noget.
Avatar billede w13 Novice
15. september 2004 - 17:40 #6
Trekkies: Det virker fint tak...
Avatar billede trekkies Juniormester
15. september 2004 - 18:05 #7
Er glad for at kunne hjælpe dig.
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