Avatar billede mekaniker Nybegynder
12. november 2001 - 17:47 Der er 3 kommentarer og
1 løsning

update

Jeg har en form jeg udfylder med navn, adresse, postnr, by, email og password.
Passwordet er et der allerede er i databasen, så jeg skal have opdateret den linie hvor passwordet passer med det password som man skriver i formen.
Jeg har prøvet med dette, men uden held.

Set myConn = Server.CreateObject(\"ADODB.Connection\")
    myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"db/Invitation.mdb\")

    strSQL = \"Update Invit set \"
    strSQL = strSQL & \"navn= \'\" & navn & \"\', \"
    strSQL = strSQL & \"adresse= \'\" & adresse & \"\', \"
    strSQL = strSQL & \"postnr= \'\" & postnr & \"\', \"
    strSQL = strSQL & \"bynavn= \'\" & bynavn & \"\', \"
    strSQL = strSQL & \"email= \'\" & email & \"\' \"
    strSQL = strSQL & \" Where password =\'\" & password & \"\'\"
       
response.write(SQLstmt)
myConn.Execute(SQLstmt)

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E0C)
Command text was not set for the command object.
/invitation/input.asp, line 64


Browser Type:
Avatar billede eagleeye Praktikant
12. november 2001 - 17:49 #1
din SQL streng hedder strSQL ikke SQLstmt
response.write(SQLstmt)
myConn.Execute(SQLstmt)
Ændres til:
response.write(strSQL)
myConn.Execute(strSQL)
Avatar billede mekaniker Nybegynder
12. november 2001 - 19:04 #2
Ja, den havde jeg ikke lige set, men tak for hjælpen.
Kan man ikke lave en fejlmeddelelse, hvis passwordet ikke er i db\'en

/Mekaniker
Avatar billede eagleeye Praktikant
12. november 2001 - 20:57 #3
Måske man kan benytte et record set:

set rs = myConn.Execute(strSQL)
if rs.BOF AND rs.EOF then
  Password findes ikke.
end if

Det ovenfor vil kun virke hvis UPDATE returnere den record som man har opdateret, det ved jeg faktisk ikke om den gør, du kan evt prøve det ellers kan du gøres som nedenfor:

strSQL = \"SELECT * FROM Invit WHERE password =\'\" & password & \"\'\"
set rs = myConn.Execute(strSQL)
if rs.BOF AND rs.EOF then
\'  Password findes ikke.
else

  strSQL = \"Update Invit set \"
    strSQL = strSQL & \"navn= \'\" & navn & \"\', \"
    strSQL = strSQL & \"adresse= \'\" & adresse & \"\', \"
    strSQL = strSQL & \"postnr= \'\" & postnr & \"\', \"
    strSQL = strSQL & \"bynavn= \'\" & bynavn & \"\', \"
    strSQL = strSQL & \"email= \'\" & email & \"\' \"
    strSQL = strSQL & \" Where password =\'\" & password & \"\'\"
    response.write(strSQL)
    myConn.Execute(strSQL)
end if
Avatar billede mekaniker Nybegynder
12. november 2001 - 23:32 #4
Tak, det virker.
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