hvad med
Sql = "UPDATE tabel SET tabel.felt1 = '" & (str1) & "', tabel.felt2 = '" &
(str2) & "'WHERE tabel.felt3 = '" & (str3) & "' "
Lars
Sql = "UPDATE tbl_klubber SET tbl_klubber.navn = '" & Request("navn") & "',
tbl_klubber.kat = '" & ( kat ) & "', tbl_klubber.link = '" & ( link ) & "'
WHERE tbl_klubber.lnummer = '" & Request( "lnummer" ) & "' "')"
MEW_TWO <MEW_TWO.news@kandu.dk> skrev i en
nyhedsmeddelelse:2oj27.1761$ae6.145981@news010.worldonline.dk...
> Ta bort den første rs.update !!
>
>
>
>
> "Jacob Jensen" skrev d. 09-07-01 12:15 dette indlæg :
> > Jeg har ændret det til
> > strSQL = "SELECT * FROM news WHERE (ID = 24)"
> >
> > og til:
> > rs.Update <------ Ta bort Denne !!
> > rs("Overskrift") = strNavn
> > rs("Kommentar") = strKommentar
> > rs("Dato") = Date()
> > rs.Update
> >
> > Men nu sker der overhovedet ikke noget i databasen.
> > Men den kommer heller ikke med nogen fejlmeddelelse...
> >
> > Mark S. Rasmussen <mark@tv.dk> wrote in message
> > news:3B4982F5.DC0FD41A@tv.dk...
> > | Du skal bare vælge dit recordset i SQL strengen og så skifte
> rs.AddNew ud
> > med
> > | rs.Update
> > | altså:
> > |
> > | rs.Update
> > | 'dinkode
> > | rs.Update
> > |
> > | Mvh Mark
> > |
> > | Jacob Jensen wrote:
> > |
> > | > Hej Gruppe!
> > | > Jeg har fundet nedenstående eksempel på hvordan man putter noget
> > information
> > | > ind i en ny række i en access database.
> > | > Men hvordan skal det se ud hvis jeg skal opdatere eller overskrive
> en
> > række
> > | > der allerede eksisterer?
> > | >
> > | > På forhånd tak.
> > | >
> > | > <%
> > | > Const adOpenKeyset = 1
> > | > Const adLockOptimistic = 3
> > | >
> > | > strMode = Request.QueryString("mode")
> > | > tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver
> > (*.mdb)};DBQ="
> > | > & Server.MapPath("news.mdb") & ";UID=admin;PWD=;"
> > | >
> > | > If Request.Form("Gem") <> "" Then
> > | > strNavn = Trim(Request.Form("Overskrift"))
> > | > strKommentar = Trim(Request.Form("Kommentar"))
> > | > Set rs = Server.CreateObject("ADODB.RecordSet")
> > | > strSQL = "SELECT * FROM news WHERE (ID = 0)"
> > | > rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic
> > | > If (rs.BOF Or rs.EOF) Then
> > | > rs.AddNew
> > | > rs("Overskrift") = strNavn
> > | > rs("Kommentar") = strKommentar
> > | > rs("Dato") =Date()
> > | > rs.Update
> > | > End If
> > | > rs.Close
> > | > Set rs = Nothing
> > | > End If
> > | > %>
> > |
> > | --
> > | The box said 'Requires Windows 95, or better.' So I bought a
> Macintosh.
> > |
> > |
> >
>
> --
> Leveret af:
>
http://www.kandu.dk/
> "Vejen til en hurtig løsning"
>