overwriting items from excisting db

Results 1 to 4 of 4

Thread: overwriting items from excisting db

  1. #1
    Join Date
    Dec 1969
    Posts
    15

    Default overwriting items from excisting db

    i have a database with a lot information in it.<BR>Now i can look up the things from the database but i also want to be able to change those things.<BR>Now i made a script but something doesn&#039;t work cuz it aint changing anything.<BR>Could some1 help me with it ?<BR>You can also mail me: Ratofer@home.nl<BR><BR>=========================== ==========<BR>Here is my script: <BR>===================================== <BR>&#060;%@ Language=VBScript %&#062; <BR>&#060;% <BR>Dim Item, Keer <BR>Dim Cancel, Wissen <BR>Dim Hoofdgroep, Groep <BR>Dim HoofdgroepOud, GroepOud <BR>Dim VarGroep, VarOnderwerp, VarOmschrijving, VarOpmerkingen <BR>Dim VarPad, VarLeden, VarDatum, VarIngekomen <BR>Dim VarGroepOud, VarOnderwerpOud, VarOmschrijvingOud, VarOpmerkingenOud <BR>Dim VarPadOud, VarLedenOud, VarDatumOud, VarIngekomenOud, VarInvoer <BR>Dim VarDag, VarMaand, VarJaar, Zoek <BR><BR>Item = Request("Item") <BR>Keer = Request("Keer") <BR>Cancel = Request("Cancel") <BR>Wissen = Request("Wissen") <BR>Hoofdgroep = Request("Hoofdgroep") <BR>Groep = Request("Groep") <BR>VarOnderwerp = Request("Onderwerp") <BR>VarOmschrijving = Request("Omschrijving") <BR>VarOpmerkingen = Request("Opmerkingen") <BR>VarPad = Request("Pad") <BR>VarLeden = Request("Leden") <BR>VarDag = Request("Dag") <BR>VarMaand = Request("Maand") <BR>VarJaar = Request("Jaar") <BR>VarInvoer = Request("Invoeren") <BR><BR>If Hoofdgroep = "" Then Hoofdgroep = 0 <BR>If Groep = "" Then Groep = 0 <BR><BR>Hoofdgroep = Hoofdgroep * 1 <BR>Groep = Groep * 1 <BR>Invoerdatum = Date() <BR>JaarNu = Year(Invoerdatum) <BR><BR>Set Conn = Server.CreateObject ("ADODB.Connection") <BR>Set rsHoofdgroep = Server.CreateObject ("ADODB.Recordset") <BR>Set rsGroep = Server.CreateObject ("ADODB.Recordset") <BR>Set rsInvoer = Server.CreateObject ("ADODB.Recordset") <BR>Set rsItems = Server.CreateObject ("ADODB.Recordset") <BR>Set rsWissen = Server.CreateObject ("ADODB.Recordset") <BR>Set filesys = Server.CreateObject ("Scripting.FileSystemObject") <BR><BR> Session("SessionConn") = "DBQ=C:DatabasesProject1project1.mdb;DefaultDir=C: DatabasesProject1;Driver={Microsoft Access Driver (*.mdb)};DriverId=281;FIL=MS Access;FILEDSN=C:Program FilesCommon FilesODBCData Sourcesproject1.dsn;MaxBufferSize=2048;MaxScanRows =8;PageTimeout=5;SafeTransactions=0;Threads=3;UID= admin;UserCommitSync=Yes;" <BR> Session("SessionInternetUser") = "IUSR_DHP2274" <BR> Session("SessionPassword") = "" <BR><BR>Conn.Open Session("SessionConn"), Session("SessionInternetUser"), Session("SessionPassword") <BR><BR>sqlHoofdgroep = "Select * from tblHoofdgroep" <BR>rsHoofdgroep.Open sqlHoofdgroep, conn, 3, 3 <BR><BR>if Keer = 1 then <BR> if Hoofdgroep &#060;&#062; 0 then <BR> sqlGroep = "Select * from tblGroep where Hoofdgroep = "& Hoofdgroep & " Order by GroepID" <BR> rsGroep.Open sqlGroep, conn, 3, 3 <BR> end if <BR>end if <BR><BR>if Keer &#060;&#062; 1 then <BR>if Item &#060;&#062; 0 then <BR> keer = 1 <BR> sqlItems = "Select * from qryWijzigItems where ItemID = "& Item <BR> rsItems.Open sqlItems, Conn, 3, 3 <BR> <BR> Hoofdgroep = rsItems("HoofdgroepID") <BR> HoofdgroepOud = Hoofdgroep <BR> Groep = rsItems("GroepID") <BR> GroepOud = Groep <BR> VarOnderwerp = rsItems("Onderwerp") <BR> VarOnderwerpOud = VarOnderwerp <BR> VarOmschrijving = rsItems("Omschrijving") <BR> if VarOmschrijving = "&#060;NULL&#062;" then VarOmschrijving = "" <BR> VarOmschrijvingOud = VarOmschrijving <BR> VarOpmerkingen = rsItems("Opmerkingen") <BR> If VarOpmerkingen = "&#060;NULL&#062;" then VarOpmerkingen = "" <BR> VarOpmerkingenOud = VarOpmerkingen <BR> VarIngekomen = rsItems("Ingekomen") <BR> VarLeden = rsItems("Leden") <BR> VarLedenOud = VarLeden <BR> VarDatum = rsItems("Datum") <BR> VarDatumOud = VarDatum <BR> VarPad = rsItems("Pad") <BR> If VarPad = "&#060;NULL&#062;" then VarPad = "" <BR> VarPadOud = VarPad <BR> <BR> sqlGroep = "Select * from tblGroep where Hoofdgroep = "& Hoofdgroep <BR> rsGroep.Open sqlGroep, conn, 3, 3 <BR> <BR> rsItems.close <BR> Set rsItems = Nothing <BR>end if <BR>end if <BR><BR>If Cancel &#060;&#062; "" then <BR> Response.Redirect ("Default.asp") <BR>end if <BR><BR>If Wissen &#060;&#062; "" then <BR> sqlInvoer = "Delete * from tblItems where ItemID = "&Item&" " <BR> rsWissen.Open sqlInvoer, conn, 3, 3 <BR> Conn.Close <BR> set Conn = Nothing <BR> Response.Redirect ("Default.asp") <BR>end if <BR><BR>If VarInvoer &#060;&#062; "" then <BR> Zoek = Chr (34) <BR> VarOnderwerp = Replace (VarOnderwerp, "&#039;", "") <BR> VarOnderwerp = Replace (VarOnderwerp, Zoek, "") <BR> VarOmschrijving = Replace (VarOmschrijving, "&#039;", "") <BR> VarOmschrijving = Replace (VarOmschrijving, Zoek, "") <BR> VarOpmerkingen = Replace (VarOpmerkingen, "&#039;", "") <BR> VarOpmerkingen = Replace (VarOpmerkingen, Zoek, "") <BR> VarPad = Replace (VarPad, "&#039;", "") <BR> VarPad = Replace (VarPad, Zoek, "") <BR> <BR> If VarOmschrijving = "" Then VarOmschrijving = "&#060;NULL&#062;" <BR> If VarOpmerkingen = "" then VarOpmerkingen = "&#060;NULL&#062;" <BR> If VarPad = "" then VarPad = "&#060;NULL&#062;" <BR> If VarIngekomen = "on" Then VarIngekomen = 1 <BR> If VarIngekomen = "off" Then VarIngekomen = 0 <BR> If VarLeden = "on" Then VarLeden = 1 <BR> If VarLeden = "" Then VarLeden = 0 <BR> <BR> sqlInvoer = "Select * from tblItems where ItemID = "& Item &" " <BR> rsInvoer.Open sqlInvoer, conn, 3, 3 <BR> <BR> rsInvoer("Onderwerp") = VarOnderwerp <BR> rsInvoer("Omschrijving")= VarOmschrijving <BR> rsInvoer("Opmerkingen") = VarOpmerkingen <BR> rsInvoer("Datum") = VarDatum <BR> rsInvoer("Groep") = VarGroep <BR> rsInvoer("Pad") = VarPad <BR> rsInvoer("Ingekomen") = VarIngekomen <BR> rsInvoer("Leden") = VarLeden <BR> rsInvoer.Update <BR> rsInvoer.Close <BR> Conn.Close <BR> set rsInvoer = Nothing <BR> set conn = Nothing <BR> Response.Redirect ("Default.asp") <BR>end if <BR>%&#062; <BR>&#060;HTML&#062; <BR>&#060;HEAD&#062; <BR>&#060;LINK rel="stylesheet" type="text/css" href="style.css"&#062; <BR>&#060;META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"&#062; <BR>&#060;script&#062; <BR>&#060;!-- <BR>function Controleer() <BR>{ <BR> var error = 0 ; <BR> var errmsg = "U bent vergeten het (de) volgende verplichte veld(en) in te vullen:
    " ; <BR> <BR> if (document.Hoofdgroep.elements("Hoofdgroep").value == "") <BR> { error = 1 ; <BR> errmsg = errmsg += " - Hoofdgroep
    "; <BR> } <BR> if (document.frmInvoer.elements("Groep").value == "") <BR> { error = 1 ; <BR> errmsg = errmsg += " - Groep
    "; <BR> } <BR> if (document.frmInvoer.elements("Onderwerp").value == "") <BR> { error = 1 ; <BR> errmsg = errmsg += " - Onderwerp
    "; <BR> } <BR> if (document.frmInvoer.elements("Dag").value &#062; 31) <BR> { error = 1 ; <BR> errmsg = errmsg += " - Ongeldige invoer dag.
    "; <BR> } <BR> if (document.frmInvoer.elements("Dag").value &#062; 30) <BR> if ((document.frmInvoer.elements("Maand").value == 4) &#124&#124 <BR> (document.frmInvoer.elements("Maand").value == 6) &#124&#124 <BR> (document.frmInvoer.elements("Maand").value == 9) &#124&#124 <BR> (document.frmInvoer.elements("Maand").value == 11)) <BR> { error = 1 ; <BR> errmsg = errmsg += " - Ongeldige invoer dag m.b.t. de maand.
    "; <BR> } <BR> if (document.frmInvoer.elements("Dag").value &#062; 28) <BR> if (document.frmInvoer.elements("Maand").value == 2) <BR> { error = 1 ; <BR> errmsg = errmsg += " - Ongeldige invoer dag.
    "; <BR> } <BR> if (document.frmInvoer.elements("Maand").value &#062; 12) <BR> { error = 1 ; <BR> errmsg = errmsg += " - Ongeldige invoer maand.
    "; <BR> } <BR> if (document.frmInvoer.elements("Dag").value == "") <BR> { error = 1 ; <BR> errmsg = errmsg += " - Het veld dag is niet ingevuld.
    "; <BR> } <BR> if (document.frmInvoer.elements("Maand").value == "") <BR> { error = 1 ; <BR> errmsg = errmsg += " - Het veld maand is niet ingevuld.
    "; <BR> } <BR> if (document.frmInvoer.elements("Jaar").value == "") <BR> { error = 1 ; <BR> errmsg = errmsg += " - Het veld jaar is niet ingevuld.
    "; <BR> } <BR> if (document.frmInvoer.elements("Jaar").value != document.frmInvoer.elements("JaarNu").value) <BR> { error = 1 ; <BR> errmsg = errmsg += " - Ongeldige invoer jaar
    "; <BR> } <BR> if (error &#062; 0) <BR> { alert (errmsg); <BR> return false; <BR> } <BR> else <BR> { return true; <BR> } <BR>} <BR>//--&#062; <BR>&#060;/script&#062; <BR>&#060;/HEAD&#062; <BR>&#060;BODY&#062; <BR>Wjzig hieronder de onjuiste gegevens. <BR><BR>De velden met een * zijn verplicht. <BR><BR><BR><BR>&#060;hr NOSHADE size="1" color="#000000"&#062; <BR>Onderwerp: &#060;%=VarOnderwerp%&#062; <BR><BR>Omschrijving: &#060;%=VarOmschrijving%&#062; <BR><BR>Opmerkingen: &#060;%=VarOpmerkingen%&#062; <BR><BR>Pad:&#060;%=VarPad%&#062; <BR><BR>Ingekomen: &#060;%=VarIngekomen%&#062; <BR><BR>Leden: &#060;%=VarLeden%&#062; <BR><BR>Datum: &#060;%=VarDatum%&#062; <BR><BR><BR><BR>&#060;input type="hidden" Name="Keer" Value="&#060;%=Keer%&#062;"&#062; <BR>&#060;!-- Formulier --&#062; <BR>&#060;TABLE WIDTH=100% BORDER=0 CELLPADDING=2 CELLSPACING=2&#062; <BR> &#060;TR&#062; <BR> &#060;TD WIDTH=40%&#062;Selecteer een Hoofdgroep:*&#060;/TD&#062; <BR> &#060;TD&#062;&#060;!-- Hoofdgroep --&#062; <BR> &#060;form name="Hoofdgroep" action="wijzig.asp" method="post" style="padding:-1px;margin:-1px"&#062; <BR> &#060;select name="Hoofdgroep" onchange="submit()" style="width=310"&#062; <BR> &#060;OPTION&#062;&#060;/OPTION&#062; <BR> &#060;%do while not rsHoofdgroep.EOF%&#062; <BR> &#060;option value="&#060;%=rsHoofdgroep("HoofdgroepID")%&#062; " &#060;%if (rsHoofdgroep("HoofdgroepID") = Hoofdgroep) Then%&#062; Selected &#060;%end if%&#062;&#062; <BR> &#060;%=rsHoofdgroep("Hoofdgroep")%&#062;&#060;/option&#062; <BR> &#060;%rsHoofdgroep.MoveNext <BR> loop <BR> rsHoofdgroep.Close <BR> set rsHoofdgroep = nothing%&#062; <BR> &#060;/SELECT&#062; <BR> &#060;INPUT type="hidden" value="0" id="Groep" name="Groep"&#062; <BR> &#060;/form&#062; <BR> &#060;!-- Einde Hoofdgroep --&#062;&#060;/TD&#062; <BR> &#060;/TR&#062; <BR>&#060;form name="frmInvoer" action="wijzig.asp" method="post" style="padding:-1px; margin:-1px"&#062; <BR> &#060;TR&#062; <BR> &#060;TD WIDTH=40%&#062;Selecteer een Groep:*&#060;/TD&#062; <BR> &#060;TD&#062;&#060;!-- Groep --&#062; <BR> &#060;select name="Groep" style="width=310"&#062; <BR> &#060;OPTION&#062;&#060;/OPTION&#062; <BR> &#060;%if Hoofdgroep &#060;&#062; 0 then <BR> do while not rsGroep.EOF%&#062; <BR> &#060;option value="&#060;%=rsGroep("GroepID")%&#062;" &#060;%if (rsGroep("GroepID") = Groep) Then%&#062; Selected &#060;%end if%&#062;&#062; <BR> &#060;%=rsGroep("Groep")%&#062;&#060;/option&#062; <BR> &#060;%rsGroep.MoveNext <BR> loop <BR> rsGroep.Close <BR> set rsGroep = nothing <BR> end if%&#062; <BR> &#060;/SELECT&#062; <BR> &#060;INPUT type="hidden" value="&#060;%=Hoofdgroep%&#062;" id="HoofdGroep" name="HoofdGroep"&#062; <BR> &#060;!-- Einde Groep --&#062;&#060;/TD&#062; <BR> &#060;/TR&#062; <BR>&#060;/TABLE&#062; <BR>&#060;TABLE WIDTH=100% BORDER=0&#062; <BR> &#060;TR&#062; <BR> &#060;TD WIDTH=40%&#062;Onderwerp:*&#060;/TD&#062; <BR> &#060;TD&#062;&#060;input type="text" id="Onderwerp" name="Onderwerp" style="font-size:10pt; width:310" MAXLENGTH="50" Value="&#060;%Response.Write(VarOnderwerp)%&#062;" &#062;&#060;/TD&#062; <BR> &#060;/TR&#062; <BR> &#060;TR&#062; <BR> &#060;TD WIDTH=40%&#062;Omschrijving:&#060;/TD&#062; <BR> &#060;TD&#062;&#060;input type="text" id="Omschrijving" name="Omschrijving" style="font-size:10pt; width:310" MAXLENGTH="255" Value="&#060;%Response.Write(VarOmschrijving)%&#06 2;"&#062;&#060;/TD&#062; <BR> &#060;/TR&#062; <BR> &#060;TR&#062; <BR> &#060;TD WIDTH=40%&#062;Opmerkingen:&#060;/TD&#062; <BR> &#060;TD&#062;&#060;textarea rows="2" cols="20" id="textarea1" name="Opmerkingen" style="font-size:10pt; width:310"&#062;&#060;%Response.Write(VarOpmerking en)%&#062;&#060;/textarea&#062;&#060;/TD&#062; <BR> &#060;/TR&#062; <BR> &#060;TR&#062; <BR> &#060;TD WIDTH=40%&#062;Huidige bestand:&#060;/TD&#062; <BR> &#060;TD&#062;&#060;input disabled type="text" id="pad" name="Pad" Value="&#060;%Response.Write(VarPad)%&#062;" style="font-size:10pt; width:310" MAXLENGTH="20"&#062;&#060;/TD&#062; <BR> &#060;/TR&#062; <BR> &#060;TR&#062; <BR> &#060;TD WIDTH=40%&#062;Ingekomen post:&#060;/TD&#062; <BR> &#060;TD&#062;&#060;input type="radio" name="Ingekomen" &#060;%if VarIngekomen = True then%&#062; checked &#060;%end if%&#062; value="on"&#062;&#060;/TD&#062; <BR> &#060;/TR&#062; <BR> &#060;TR&#062; <BR> &#060;TD WIDTH=40%&#062;Uitgaande post:&#060;/TD&#062; <BR> &#060;TD&#062;&#060;input type="radio" name="Ingekomen" &#060;%if VarIngekomen &#060;&#062; True then%&#062; checked &#060;%end if%&#062; value="off"&#062;&#060;/TD&#062; <BR> &#060;/TR&#062; <BR> &#060;TR&#062; <BR> &#060;TD WIDTH=40%&#062;Alleen voor Leden:&#060;/TD&#062; <BR> &#060;TD&#062;&#060;input type="checkbox" id="Leden" name="Leden" &#060;%if Item &#060;&#062; "" then <BR> if VarLeden = true then%&#062;checked&#062; <BR> &#060;%end if%&#062; <BR> &#060;%end if%&#062;&#060;/TD&#062; <BR> &#060;/TR&#062; <BR> &#060;TR&#062; <BR> &#060;TD WIDTH=40%&#062;Datum:* (d-m-jjjj)&#060;/TD&#062; <BR> &#060;TD&#062; <BR> &#060;% <BR> if Keer &#060;&#062; 1 then <BR> Inv = rsItems("Datum") <BR> else <BR> Inv = VarDatum <BR> end if <BR> Zoek = "/" <BR> <BR> Streep1 = InStr(1,Inv,Zoek) <BR> Pos1= Streep1 + 1 <BR> Streep2 = InStr(Pos1,Inv,Zoek) <BR> <BR> Maand = Left(Inv,Streep1-1) <BR> Dag = Mid(Inv,Pos1,streep2-Pos1) <BR> Jaar = Mid(Inv,Streep2+1) <BR> if Len(Jaar) = 2 then <BR> Jaar = 20&Jaar <BR> end if <BR> %&#062; <BR> &#060;input type="text" id="Dag" name="Dag" value="&#060;%=Dag%&#062;" style="font-size:10pt; width:30; text-align:center" MAXLENGTH="2"&#062; <BR> - <BR> &#060;input type="text" id="Maand" name="Maand" value="&#060;%=Maand%&#062;" style="font-size:10pt; width:30; text-align:center" MAXLENGTH="2"&#062; <BR> - <BR> &#060;input type="text" id="Jaar" name="Jaar" value="&#060;%=Jaar%&#062;" style="font-size:10pt; width:50; text-align:center" MAXLENGTH="4"&#062; <BR> &#060;input type="hidden" id="Datum" name="Datum" Value="&#060;%=Dag &"/"& Maand &"/"& Jaar%&#062;"&#062; <BR> &#060;input type="hidden" name="item" Value="&#060;%=item%&#062;"&#062; <BR> &#060;input type="hidden" id="JaarNu" name="JaarNu" Value="&#060;%=JaarNu%&#062;"&#062;&#060;/TD&#062; <BR> &#060;/TR&#062; <BR> &#060;TR&#062; <BR> &#060;TD WIDTH=40%&#062; &#060;/TD&#062; <BR> &#060;TD&#062;&#060;INPUT type="submit" value="Wijzi

  2. #2
    Join Date
    Dec 1969
    Posts
    2,225

    Default RE: overwriting items from excisting db

    You change existing information in a db by using the UPDATE statement, which I don&#039;t see anywhere in your code.

  3. #3
    Join Date
    Dec 1969
    Posts
    15

    Default RE: overwriting items from excisting db

    look here is my update:<BR><BR>rsInvoer.Update <BR>rsInvoer.Close <BR>Conn.Close <BR>set rsInvoer = Nothing <BR>set conn = Nothing <BR><BR>see it is there but is doesn&#039;t work.<BR>

  4. #4
    Join Date
    Dec 1969
    Posts
    2,225

    Default RE: overwriting items from excisting db

    No, to update information you should use a SQL update statement off the connection object<BR><BR>Like:<BR><BR>Conn.Execute("UPDATE SomeTable SET SomeTextFieldName = &#039;SomeValue&#039;, SomeNumericField = 1234 WHERE SomeField = &#039;SomeCriteria&#039;")


Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •