/
Forside
/
Teknologi
/
Udvikling
/
ASP
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
ASP
#
Navn
Point
1
smorch
9259
2
Harlekin
1866
3
molokyle
1040
4
Steffanst..
758
5
gandalf
657
6
smilly
564
7
gibson
560
8
cumano
530
9
MouseKeep..
480
10
Random
410
Oppdatere flere poster i en tabell samtidi~
Fra :
Rune Brynestad
Dato :
30-01-02 10:40
Jeg holder på å lage et system for fraværsregistrering på jobb. Systemet
fungerer slik at alle ansatte registrere sitt fravær. Deretter skal
nærmeste overordnet godkjenne fraværet før det blir sendt samlet til
Personalavdelingen.
Når overordnet skal godkjenne fraværet, får han opp en side som skriver ut
registrert fravær for ansatte som han har ansvar for. Fraværet blir skrevet
ut som skjemafelter. Overordnet godkjenner fraværet ved å merke hver enkelt
post som godkjent (checkbox) og deretter trykke på submit knappan for å
sende alle poster samlet.
Det er her problemet oppstår. Tabellen blir ikke oppdatert og jeg får
heller ingen feilmeldinger. Koden som skal oppdatere tabellen med data fra
skjemaet ligger ved.
Mvh
Rune Brynestad
Sparebanken Sogn og Fjordane
<%
sConnString = "DRIVER={Microsoft Access Driver
(*.mdb)};DBQ=d:\inetpub\wwwroot\fpdb\Personal.mdb"
Set MyConnection = Server.CreateObject("ADODB.Connection")
MyConnection.Open(sConnString)
Set cmdTemp = Server.CreateObject("ADODB.Command")
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = MyConnection
If Request.Form.Count > 0 Then
Set rs = Server.CreateObject("ADODB.Recordset")
For I = 1 to Request.Form.Count
cmdTemp.CommandText = "UPDATE Fraversregistrering SET Godkjent =
Godkjent " & _
"WHERE Id = Id"
rs.Open cmdTemp
Next
Set rs = Nothing
End If
MyConnection.Close
Set MyConnection = Nothing
Response.redirect("lag_fraversoversikt3.htm")
%>
Pål Andreassen (
30-01-2002
)
Kommentar
Fra :
Pål Andreassen
Dato :
30-01-02 11:54
"Rune Brynestad" <rune.brynestad@fylkesbanken.sf.no> wrote in
news:GbP58.255$3c.15317@juliett.dax.net:
> If Request.Form.Count > 0 Then
> Set rs = Server.CreateObject("ADODB.Recordset")
> For I = 1 to Request.Form.Count
> cmdTemp.CommandText = "UPDATE Fraversregistrering SET
> Godkjent =
> Godkjent " & _
> "WHERE Id = Id"
> rs.Open cmdTemp
> Next
> Set rs = Nothing
> End If
Den SQL'en over kan da umulig virke:
"UPDATE Fraversregistrering SET Godkjent = Godkjent WHERE Id = Id"
Hvis alle checkboksene har samme navn og valuem er ID til posten som skal
godkjennes vil vel en Request.Form("fldGodkjenn") (hvis feltet da heter
fldGodkjenn) returnere en array over de id'er som er checket av.
Dermed kan du få satt flagget i databasen med et kall i stedet for å gå i
løkke:
"UPDATE Fraversregistrering " _
& "SET Godkjent = True " _
& "WHERE Id IN (" & Join(Request.Form("fldGodkjenn"), ",")) & ")"
Utestet, men en god ide :) Bør selvfølgelig lese
Request.Form("fldGodkjenn") til en variabel og sjekke for gyldighet samt
sjekke at dette virkelig er en array først.
--
Pål Andreassen
All views and opinions expressed in the above text are mine and have
nothing to do what so ever with my employer.
Jakob Andersen (
30-01-2002
)
Kommentar
Fra :
Jakob Andersen
Dato :
30-01-02 16:17
"Rune Brynestad" <rune.brynestad@fylkesbanken.sf.no> wrote in message
news:GbP58.255$3c.15317@juliett.dax.net...
><snip>
Først og fremmest vil jeg anbefale at du giver alle dine checkboxe samme
navn sådan her:
<input type="checkbox" name="idnummer" value="POSTENSIDNUMMER" />
Og så lav din indsættelses kode sådan her:
<%
Set MyConnection = Server.CreateObject("ADODB.Connection")
MyConnection.ConnectionString = "DRIVER={Microsoft Access
Driver(*.mdb)};DBQ=d:\inetpub\wwwroot\fpdb\Personal.mdb"
MyConnection.Open
MyConnection.Execute("UPDATE Fraversregistrering SET Godkjent = True WHERE
Id IN (" & Request.Form("idnummer") & ")
MyConnection.Close
Set MyConnection = Nothing
Response.redirect("lag_fraversoversikt3.htm")
%>
--
Jakob Andersen
Er du god til ASP og mangler du et job?
Så kontakt mig på jta@advice.dk
Rune Brynestad (
31-01-2002
)
Kommentar
Fra :
Rune Brynestad
Dato :
31-01-02 21:58
Glimrende løsning. Det enkle er som oftest det beste. Tusen takk for
hjelpen Jakob.
Mvh
Rune Brynestad
Sparebanken Sogn og Fjordane
"Jakob Andersen" <jakob@effectus.dk> skrev i melding
news:a392v3$b0g$1@sunsite.dk...
> "Rune Brynestad" <rune.brynestad@fylkesbanken.sf.no> wrote in message
> news:GbP58.255$3c.15317@juliett.dax.net...
> ><snip>
>
> Først og fremmest vil jeg anbefale at du giver alle dine checkboxe samme
> navn sådan her:
> <input type="checkbox" name="idnummer" value="POSTENSIDNUMMER" />
>
>
> Og så lav din indsættelses kode sådan her:
> <%
> Set MyConnection = Server.CreateObject("ADODB.Connection")
> MyConnection.ConnectionString = "DRIVER={Microsoft Access
> Driver(*.mdb)};DBQ=d:\inetpub\wwwroot\fpdb\Personal.mdb"
> MyConnection.Open
> MyConnection.Execute("UPDATE Fraversregistrering SET Godkjent = True WHERE
> Id IN (" & Request.Form("idnummer") & ")
> MyConnection.Close
> Set MyConnection = Nothing
> Response.redirect("lag_fraversoversikt3.htm")
> %>
>
>
> --
> Jakob Andersen
> Er du god til ASP og mangler du et job?
> Så kontakt mig på jta@advice.dk
>
>
>
>
Søg
Alle emner
Teknologi
Udvikling
ASP
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177551
Tips :
31968
Nyheder :
719565
Indlæg :
6408843
Brugere :
218887
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.