Opdatere flere records af gangen

Det er ikke nødvendigt med et recordset når du updatere. Og heller ikke en "order by"


StrSQL1 = "UPDATE test SET sendt = ja, datov = date, WHERE datoi >= #" & lngRecordNo & "# AND datoi <= #" & lngRecordNo1 & "#  and kgbet ='nej' and ann ='nej' and sendt ='nej'"
adoCon.execute(StrSQL1)

Jeg kan ikke få det til at virke, jeg har har fjernet alle rsUpdateEntry recordsets.

Jeg erikke den største haj til dette...

'Dimension variables
Dim strSQL1            'Holds the SQL query for the database
Dim lngRecordNo3            'Holds the record number to be updated

'Read in the record number to be updated
lngRecordNo = (session("df"))
lngRecordNo1 = (session("dt"))

'Create an ADO connection odject
Set adoCon = Server.CreateObject("ADODB.Connection")

'Set an active connection to the Connection object using a DSN-less connection
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\test.mdb")

'Set an active connection to the Connection object using DSN connection
'adoCon.Open "DSN=test"


'Initialise the strSQL variable with an SQL statement to query the database
StrSQL1 = "UPDATE test SET sendt = ja, datov = date, WHERE datoi >= #" & lngRecordNo & "# AND datoi <= #" &

lngRecordNo1 & "#  and kgbet ='nej' and ann ='nej' and sendt ='nej'"

adoCon.execute(StrSQL1)



'Reset server objects
rsUpdateEntry.Close
Set rsUpdateEntry = Nothing
Set adoCon = Nothing

Session.Contents.RemoveAll()


'Return to the update select page incase another record needs deleting
Response.Redirect "default.asp"

Du har et linjeskift i din StrSQL1 opbygning. Den skal være ud i en eller samles med _ koden.

StrSQL1 = "UPDATE test SET sendt = ja, datov = date, WHERE datoi >= #" & lngRecordNo & "# AND datoi <= #" & lngRecordNo1 & "#  and kgbet ='nej' and ann ='nej' and sendt ='nej'"

eller:
StrSQL1 = "UPDATE test SET sendt = ja, datov = date, WHERE datoi >= #" & lngRecordNo & "# AND datoi <= #" & _
lngRecordNo1 & "#  and kgbet ='nej' and ann ='nej' and sendt ='nej'"

(klip og klister denne kode ind i din så kan du se det.)

Virker stadigvæk ikke, jeg har endda slået wordwrap fra på notepad, så den ikke skærer linjerne over.

Koden p.t.

-----------------------
'Dimension variables
Dim strSQL1            'Holds the SQL query for the database
Dim lngRecordNo3            'Holds the record number to be updated

'Read in the record number to be updated
lngRecordNo = (session("df"))
lngRecordNo1 = (session("dt"))

'Create an ADO connection odject
Set adoCon = Server.CreateObject("ADODB.Connection")

'Set an active connection to the Connection object using a DSN-less connection
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\test.mdb")

'Set an active connection to the Connection object using DSN connection
'adoCon.Open "DSN=test"


'Initialise the strSQL variable with an SQL statement to query the database
StrSQL1 = "UPDATE test SET sendt = ja, datov = date, WHERE datoi >= #" & lngRecordNo & "# AND datoi <= #" & lngRecordNo1 & "#  and kgbet ='nej' and ann ='nej' and sendt ='nej'"

adoCon.execute(StrSQL1)



'Reset server objects
rsUpdateEntry.Close
Set rsUpdateEntry = Nothing
Set adoCon = Nothing

Session.Contents.RemoveAll()


'Return to the update select page incase another record needs deleting
Response.Redirect "default.asp"

Der var lige et par ting til. Et komma og tekstangivelse. Det er også

StrSQL1 = "UPDATE test SET sendt = ja, datov = date, WHERE ....

skal være:
StrSQL1 = "UPDATE test SET sendt = 'ja', datov = date WHERE ....

Det var den så pænt ligeglad med.... :-)


'Dimension variables
Dim strSQL1            'Holds the SQL query for the database
Dim lngRecordNo3            'Holds the record number to be updated

'Read in the record number to be updated
lngRecordNo = (session("df"))
lngRecordNo1 = (session("dt"))

'Create an ADO connection odject
Set adoCon = Server.CreateObject("ADODB.Connection")

'Set an active connection to the Connection object using a DSN-less connection
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\test.mdb")

'Set an active connection to the Connection object using DSN connection
'adoCon.Open "DSN=test"


'Initialise the strSQL variable with an SQL statement to query the database
StrSQL1 = "UPDATE test SET sendt = 'ja', datov = date WHERE datoi >= #" & lngRecordNo & "# AND datoi <= #" & lngRecordNo1 & "#  and kgbet ='nej' and ann ='nej' and sendt ='nej'"

adoCon.execute(StrSQL1)



'Reset server objects
rsUpdateEntry.Close
Set rsUpdateEntry = Nothing
Set adoCon = Nothing

Session.Contents.RemoveAll()


'Return to the update select page incase another record needs deleting
Response.Redirect "default.asp"

Hvilken fejl får du, og evt linje nummer???

Ingen fejl, den redirecter bare til default.asp, hvis jeg slår denne fra kommer den ikke med med nogen fejl.

Hvis den ikke kommer med en fejl, burde den køre. Prøv evt lige at udskrive StrSQL1 til skærmen og smid den herind.

Ikke forstået, hvordan går jeg det?

response.write "Min SQL: "& StrSQL1

også skal du selvfølgelig ikke redirecte siden, ellers får du ikke udskriften at se.

Min SQL: UPDATE test SET sendt = 'ja', datov = date WHERE datoi >= #02-11-2004# AND datoi <= #02-11-2004# and kgbet ='nej' and ann ='nej' and sendt ='nej'



Jeg tænkte lige, kunne det være datoformatet den vender om, hvis det er har jeg tidligere brugt dette med succes:

Function ConvertToSqlDate(dato)
    dim SQLYear,SQLMonth,SQLDay
    SQLYear = Year(dato)
    SQLMonth = Month(dato)
    SQLDay = Day(dato)
    if SQLDay<10 then
        SQLDay = 0&SQLDay
    end if
    if SQLMonth<10 then
        SQLMonth = 0&SQLMonth
    end if
    ConvertToSqlDate = SQLMonth&"-"&SQLDay&"-"&SQLYear
End Function

Kan det være dette?

Jeg kan lige testet med 2 records med datoen 11-02-2004 men den har ikke ændret disse hvis jeg taster 02-11-2004

Det er jo min converter :o)

Access formatet skal være mm-dd-yyyy eller yyyymmdd. Det kan også være fordi der ikke er nogen resultater at updatere. Det er jo kun dem med datoi = 02-11-2004 + de andre krav som bliver updateret.

Prøv at lave to records, som passer på kriterierne, men med de to forskellige datoer.

Jeg har oprettet 2 records med datoen 11-02-2004 og 3 med 02-11-2004, den opdaterer ingen af dem når jeg taster 02-11-2004

Og kgbet ='nej' og ann ='nej' og sendt ='nej' på de records??? (bare for at være sikker)

Ja, det lægger den ind default når man opretter dem, jeg har lige kontrolleret, de er alle oprettet med 'nej' (Uden '')

Prøv lige at udvide din execute med dette. Så får vi nemlig at vide hvor mange rækker der bliver opdateret (det er sikkert 0).

AmountRecords = 0
adoCon.execute(StrSQL1,AmountRecords)
response.write "Rows affected: "& AmountRecords

Får følgende fejl:

Cannot use parentheses when calling a Sub

adoCon.execute(StrSQL1,AmountRecords)

selvfølgelig.... Sådan:

adoCon.execute StrSQL1,AmountRecords

Den skriver:

Rows affected:


Hverken 0,1,2,3, ect.

Nu er jeg fuldstændig lost..... Der er bare et eller andet galt, som jeg ikke kan forstå. AmountRecords skal blive sat til det antal records der bliver berørt af sql-sætningen. Jeg har aldrig hørt/oplevet at den kan være tom. Den er altid 0 hvis der ikke er nogen records. Jeg bruger nemlig ofte en update/insert syntax, til at tjekke om en record eksistere, ellers skal den indsætte i stedet.

conn.execute "update EnTabel set .... where id="& ID, AmountRecords
if AmountRecords = 0 then
  conn.execute("insert into EnTabel(..) values(..)")
end if

Hvad sker der hvis du tager din SQL-sætningen (den som du udskrev på skærmen) og fyrer den af som en sql forespørgelses i Access???

Den opdaterer de 2 records, dog med omvendt dato, med den opdaterer dog 2.....

Hvis den gør det i Access skal den også gøre det gennem ASP. Jeg er virkelig forviret nu. Har du et eller andet i koden som kan forhindre kørslen?? Kan ikke forestille mig hvad det skulle være, men det er det eneste jeg kan forestille mig nu.

Jeg har lavet om på den... lavet en "back to basics" udgave uden session og alt dette.

jeg får nu denne lille dumme fejl:

Object required: ''
ryk20.asp, line 38


Koden:

-----

<%Response.Expires=-1%>
<% Session.LCID = 1030 %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>test</title>
<!--#include file="style.asp"-->
</head>
<body bgcolor="white" text="black">
<%

Function LongYear()
LongYear = Day(Date()) & "-" & Month(Date()) & "-" & Year(Date())
End Function

'Dimension variables
Dim adoCon             'Holds the Database Connection Object
Dim strSQL1            'Holds the SQL query for the database
Dim lngRecordNo3            'Holds the record number to be updated

'Read in the record number to be updated
lngRecordNo = (Request.Form("datofra"))
lngRecordNo1 = (Request.Form("datotil"))

'Create an ADO connection odject
Set adoCon = Server.CreateObject("ADODB.Connection")

'Set an active connection to the Connection object using a DSN-less connection
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\test.mdb")

'Set an active connection to the Connection object using DSN connection
'adoCon.Open "DSN=test"

'Initialise the strSQL variable with an SQL statement to query the database
StrSQL1 = "UPDATE test SET sendt = 'ja', datov = date WHERE datoi >= #" & lngRecordNo & "# AND datoi <= #" & lngRecordNo1 & "#  and kgbet ='nej' and ann ='nej' and sendt ='nej'"


rsUpdateEntry.Close
Set rsUpdateEntry = Nothing
Set adoCon = Nothing

'Return to the update select page incase another record needs deleting
'Response.Redirect "default.asp"

%>
<% Session.LCID = 1030 %>


</BODY>
</HTML>
-----------------------

Du skal foresten have tak for din fortsatte hjælp med denne her satan. :-)

Den fejl er fordi du ikke har et rsUpdateEntry objekt. Der mangler du:

Set rsUpdateEntry = Server.CreateObject("ADODB.Recordset")

fra din gamle kode.

Resultatet:

Min SQL: UPDATE test SET sendt = 'ja', datov = date WHERE datoi >= #02-11-2004# AND datoi <= #02-11-2004# and kgbet ='nej' and ann ='nej' and sendt ='nej'

Men der sker intet i DB, jeg opgiver da snart dette..

Kan du overhoved lave en update???? Prøv at fyre din sql af i en forkortet udgave (evt i en ny test tabel), så skulle sendt gerne blive sat til ja i alle rækker:

StrSQL1 = "UPDATE test SET sendt = 'ja'"

Jeg har lavet en ny DB (test1.mdb) med 2 kolonner: ID (autonr) og sendt (tekst) med tabelnavnet test.

Jeg har lavet 15 rækker med teksten 'nej'.


Kode

---


<%Response.Expires=-1%>
<% Session.LCID = 1030 %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>test</title>
<!--#include file="style.asp"-->
</head>
<body bgcolor="white" text="black">
<%

Function LongYear()
LongYear = Day(Date()) & "-" & Month(Date()) & "-" & Year(Date())
End Function

'Dimension variables
Dim adoCon             'Holds the Database Connection Object
Dim strSQL1            'Holds the SQL query for the database
Dim lngRecordNo3            'Holds the record number to be updated

'Read in the record number to be updated
lngRecordNo = (Request.Form("datofra"))
lngRecordNo1 = (Request.Form("datotil"))

'Create an ADO connection odject
Set adoCon = Server.CreateObject("ADODB.Connection")

'Set an active connection to the Connection object using a DSN-less connection
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\test1.mdb")

'Set an active connection to the Connection object using DSN connection
'adoCon.Open "DSN=test"

'Initialise the strSQL variable with an SQL statement to query the database
StrSQL1 = "UPDATE test SET sendt = 'ja'"

'AmountRecords = 0
'adoCon.execute StrSQL1,AmountRecords
'response.write "Rows affected: "& AmountRecords

Set adoCon = Nothing

response.write "<p>"


response.write "Min SQL: "& StrSQL1

'Return to the update select page incase another record needs deleting
'Response.Redirect "default.asp"

%>
<% Session.LCID = 1030 %>


</BODY>
</HTML>

Resultatet:

Min SQL: UPDATE test SET sendt = 'ja'


Men der sker intet i db.

Der kører du så hellere ikke noget på databasen :o)
Du skal lige have indkommenteret disse tre linjer.

AmountRecords = 0
adoCon.execute StrSQL1,AmountRecords
response.write "Rows affected: "& AmountRecords

Nu virker den!

Så skal vi have afprøvet det på den første database. Opret en table der hedder "updatetest" der, med samme felter som "test" tabellen fra test1.mdb. Og kør så:

StrSQL1 = "UPDATE updatetest SET sendt = 'ja'"

Jeg kan ikke få dine 3 linjer der virkede i den simple DB til at virke i den rigtige.


Ryk10.asp
-----------
<% Session.LCID = 1030 %>
<%
Function LongYear()
LongYear = Day(Date()) & "-" & Month(Date()) & "-" & Year(Date())
End Function
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Opdatering test</title>
</head>
<body background="../common/images/bg.gif" BGCOLOR="white" onload="document.form.datofra.focus()">


<h3>Dato ryk 10 søg 15/9-04</h3>


<Table border=0>

    <form name="form" method="post" action="ryk20.asp">
<tr><td>Dato fra</td><td><INPUT TYPE="date" NAME="datofra" SIZE="8"><BR>
</td></tr>
<tr><td>Dato til</td><td><INPUT TYPE="date" NAME="datotil" SIZE="8"><BR>
</td></tr>



<tr>
<td>      <td><INPUT TYPE="SUBMIT" VALUE="Upload">
    </FORM>
</table>

</BODY>
</HTML>



------------
Ryk20.asp

<%Response.Expires=-1%>
<% Session.LCID = 1030 %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>test</title>
<!--#include file="style.asp"-->
</head>
<body bgcolor="white" text="black">
<%

Function LongYear()
LongYear = Day(Date()) & "-" & Month(Date()) & "-" & Year(Date())
End Function

'Dimension variables
Dim adoCon             'Holds the Database Connection Object
Dim strSQL1            'Holds the SQL query for the database
Dim lngRecordNo3            'Holds the record number to be updated

'Read in the record number to be updated
lngRecordNo = (Request.Form("datofra"))
lngRecordNo1 = (Request.Form("datotil"))

'Create an ADO connection odject
Set adoCon = Server.CreateObject("ADODB.Connection")

'Set an active connection to the Connection object using a DSN-less connection
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\test3.mdb")

'Set an active connection to the Connection object using DSN connection
'adoCon.Open "DSN=test"

'Initialise the strSQL variable with an SQL statement to query the database
StrSQL1 = "UPDATE test SET sendt = 'ja', datov = date WHERE datoi >= #" & lngRecordNo & "# AND datoi <= #" & lngRecordNo1 & "#  and kgbet ='nej' and ann ='nej' and sendt ='nej'"


AmountRecords = 0
adoCon.execute StrSQL1,AmountRecords
response.write "Rows affected: "& AmountRecords

Set adoCon = Nothing

response.write "<p>"


response.write "Min SQL: "& StrSQL1

'Return to the update select page incase another record needs deleting
'Response.Redirect "default.asp"

%>
<% Session.LCID = 1030 %>


</BODY>
</HTML>

Får denne fejl:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
/pz/ryk20.asp, line 39

Linje 39-40-41:

AmountRecords = 0
adoCon.execute StrSQL1,AmountRecords
response.write "Rows affected: "& AmountRecords


Lide mere info:

POST Data:
datofra=02-11-2004&datotil=02-11-2004

Vi bliver nød til at prøve os lidt frem, indtil vi finder fejlen i sql'en, så vi opbygger den lige en kolonne ad gangen. Kan du køre denne igen:

StrSQL1 = "UPDATE test SET sendt = 'ja'"

Okay, det virker.


Rows affected: 134
Min SQL: UPDATE test SET sendt = 'ja'

StrSQL1 = "UPDATE test SET sendt = 'ja', datov = date"

Laver fejl:

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
/pz/ryk20.asp, line 38

Linje 38:

adoCon.execute StrSQL1,AmountRecords

Så prøv sådan, for at fortælle at det er en funktion:
StrSQL1 = "UPDATE test SET sendt = 'ja', datov = date()"

Nu sker der noget!

Rows affected: 134
Min SQL: UPDATE test SET sendt = 'ja', datov = date()

Det kunne gode være problemet. Prøv lige med den fulde sætning....

Jeg har udvidet den, men nu sker det ikke noget, jeg har opretter 2 records med hhv. datoi=02-11-2004 og datoi=11-02-2004.

Rows affected: 0
Min SQL: UPDATE test SET sendt = 'ja', datov = date() WHERE datoi >= #02-11-2004# AND datoi <= #02-11-2004# and kgbet ='nej' and ann ='nej' and sendt ='nej'

Så må vi fortsætte:

StrSQL1 = "UPDATE test SET sendt = 'ja', datov = date() WHERE datoi >= #" & lngRecordNo & "#"

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] Syntax error in date in query expression 'datoi >= ##'.
/pz/ryk20.asp, line 38

Men jeg har denne gange kørt ryk20.asp, uden at få nogen form data fra ryk10.asp, og så får jeg denne fejl:

Det er fordi der ikke er nogen dato i lngRecordNo. Vi kunne jo hardcode en dato ind sålænge vi bare tester.

StrSQL1 = "UPDATE test SET sendt = 'ja', datov = date() WHERE datoi >= #02-11-2004#"

Rows affected: 48
Min SQL: UPDATE test SET sendt = 'ja', datov = date() WHERE datoi >= #02-11-2004#


Den har lagt sig ind på alle de datoer der er lig med eller større end 11. februar, så man skal nok bruge dit datokonverterings-script fra før:

Function ConvertToSqlDate(dato)
    dim SQLYear,SQLMonth,SQLDay
    SQLYear = Year(dato)
    SQLMonth = Month(dato)
    SQLDay = Day(dato)
    if SQLDay<10 then
        SQLDay = 0&SQLDay
    end if
    if SQLMonth<10 then
        SQLMonth = 0&SQLMonth
    end if
    ConvertToSqlDate = SQLMonth&"-"&SQLDay&"-"&SQLYear
End Function

Det kunne se sådan ud, men vent med det, til vi har fået sql'en til at virke. Indtil vidre bytter vi selv om på datoen.

StrSQL1 = "UPDATE test SET sendt = 'ja', datov = date() WHERE datoi >= #11-02-2004#" AND datoi <= #11-02-2004#"

Rettede den til:
StrSQL1 = "UPDATE test SET sendt = 'ja', datov = date() WHERE datoi >= #11-02-2004# AND datoi <= #11-02-2004#"

Ellers virkede den, fandt de 3 records den skulle.

Denne virker:
StrSQL1 = "UPDATE test SET sendt = 'ja', datov = date() WHERE datoi >= #11-02-2004# AND datoi <= #11-02-2004# and kgbet ='nej' and ann ='nej' and sendt ='nej'"


Rows affected: 3
Min SQL: UPDATE test SET sendt = 'ja', datov = date() WHERE datoi >= #11-02-2004# AND datoi <= #11-02-2004# and kgbet ='nej' and ann ='nej' and sendt ='nej'

Så skal vi jo bare have dato'en til at blive dynamisk igen. Så nu skal du have form data med så vi kan få en værdi i lngRecordNo.

StrSQL1 = "UPDATE test SET sendt = 'ja', datov = date() WHERE datoi >= #"& ConvertToSqlDate(lngRecordNo) &"# AND datoi <= #"& ConvertToSqlDate(lngRecordNo) &"# and kgbet ='nej' and ann ='nej' and sendt ='nej'"

Den virkede:

StrSQL1 = "UPDATE test SET sendt = 'ja', datov = date() WHERE datoi >= #"& ConvertToSqlDate(lngRecordNo) &"# AND datoi <= #"& ConvertToSqlDate(lngRecordNo1) &"# and kgbet ='nej' and ann ='nej' and sendt ='nej'"



Rows affected: 3
Min SQL: UPDATE test SET sendt = 'ja', datov = date() WHERE datoi >= #11-02-2004# AND datoi <= #11-02-2004# and kgbet ='nej' and ann ='nej' and sendt ='nej'

Jeg har nu testet det på den rigtige side og den fungerer totalt perfekt!

Mange tak for hjælpen, det holdt hårdt, men det hjalp at skrælle SQL'en den for at finde fejlen.

Smid et svar for points!

Der var ellers en overgang hvor jeg var lige ved at opgive :o)

D