Avatar billede baltazar_ Nybegynder
17. april 2001 - 09:44 Der er 5 kommentarer og
1 løsning

min update gør knuder

Heysan med jer

Jeg prøver at få min access databse til at opdatere med nogle nye værdier som kommer fra en bruger der skriver nogle tal ind i en form( tal værdier og tekst værdier )
Den opdaterer......men dog kun den første post i tabellen....er der en der kan kigge på den og give et hint til problemmet..
Det virker som om den ikke ved at hvilken ID den skal lede efter of derved bare opdatere den første tabel ( tabel1.antal )
koden der laver opdateringen er her

<%
Response.Buffer = True

Const adOpenKeyset = 1
Const adLockOptimistic = 3


Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"access/vingummibamser.mdb\") & \";UID=admin;PWD=;\"

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    SQL = \"SELECT * FROM vingummibamser\"
    rs.open SQL, Conn, adOpenKeyset, adLockOptimistic

      rs.update
      rs(\"antalPaaLager\") =rs\"antalPaaLager\")
- request.form(\"b5\")
   

      rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing

%>


summa sumarum er at den skal trække B1 fra antalPaaLager i den rigtige linie
Der rykker store point til en løsning :O)

Forsat god morgen

aspknokleren





Avatar billede slash Nybegynder
17. april 2001 - 09:48 #1
hvorfor bruger du ikke en alm. update vha. SQL

altså: SQL = \"UPDATE vingummeibamser set antalpasslager = \'\"&Request.from(\"b5\")&\"\'\" where id = \"&Request.form(\"id\"))
conn.execute(SQL)

det synes jeg er mere overskueligt end det du har gang i!
Avatar billede netsrac Praktikant
17. april 2001 - 10:03 #2
<%
Response.Buffer = True

Const adOpenKeyset = 1
Const adLockOptimistic = 3


Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"access/vingummibamser.mdb\") & \";UID=admin;PWD=;\"

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    SQL = \"SELECT * FROM vingummibamser\"
    rs.open SQL, Conn, adOpenKeyset, adLockOptimistic


      rs(\"antalPaaLager\") = rs(\"antalPaaLager\") - request.form(\"b5\")
   
      rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing

%>

Avatar billede baltazar_ Nybegynder
17. april 2001 - 10:29 #3
OK jeg kan godt se din løsning er bedre...men den har givet mig et andet problem og det er at nu passer typerne ikke sammen..jeg for denne fejl

Der opstod en Microsoft VBScript-kørselsfejl fejl \'800a000d\'

Typerne passer ikke sammen: \'RS\'

/public/add_this.asp, linje 14

<%
\' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"access/vingummibamser.mdb\")
Conn.Open DSN
rs.Open SQL
SQL = \" SELECT * FROM vingummibamser\"
SQL = \"UPDATE vingummibamser set antalPaaLager = \'\" & RS(\"antalPaaLager\") & \"\' - \'\" &Request.form(\"b5\")&\"\'\" & \" where id = \"&Request.form(\"b1\")
conn.execute(SQL)



\' SQL sætning eksekveres
Conn.Execute(strSQL)

\' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

kan du hjælpe med denne ?

aspknokleren


Avatar billede netsrac Praktikant
17. april 2001 - 10:32 #4
<%
\' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"access/vingummibamser.mdb\")
Conn.Open DSN
rs.Open SQL
SQL = \" SELECT * FROM vingummibamser\"
SQL = \"UPDATE vingummibamser set antalPaaLager = antalPaaLager - \" & Request.form(\"b5\")& \" where id = \"&Request.form(\"b1\")
conn.execute(SQL)



\' SQL sætning eksekveres
Conn.Execute(strSQL)

\' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
Avatar billede baltazar_ Nybegynder
17. april 2001 - 11:12 #5
JA SGU  DET VIRKER NU!!!!!!!!!!!!

Kanon..tak for hjælpen.....nu kan jeg endeligt gå i seng  :O)

ASPknokleren
Avatar billede netsrac Praktikant
17. april 2001 - 11:29 #6
:-)
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