Problemer med UPDATE

iDate = ""
            SQL = "UPDATE Vaertskaber SET "
            SQL = SQL & "[Date] = '" & iDate & "' "         
            SQL = SQL & "WHERE ID = " & iID
            Set rs = Conn.Execute(SQL)



Og det er helt uden hænder eller test.

Man bruger da ikke [] i ASP. Jeg prøvede lige alligevel ;-)

Fejl : Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.
/vl10/admin/OpdaterDatoVaertskaber.asp, line 66

iDate = ""
            SQL = "UPDATE Vaertskaber SET "
            SQL = SQL & "[Date] = #" & iDate & "# "         
            SQL = SQL & "WHERE ID = " & iID
            Set rs = Conn.Execute(SQL)

Ang "Man bruger da ikke [] i ASP": Det er SQL, og ikke ASP.. :-)

Ja sorry, det er selvfølgelig rigtig.

Test 16/05-2006 19:48:10.. hvis det virker (hvilket jeg regner med at det gør), kan du bare nøjes med acceptere jps6kbs svar.

Det virker desværre ikke, fejl :
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] Syntax error in date in query expression '##'.
/vl10/admin/OpdaterDatoVaertskaber.asp, line 71

Det er fordi din variabel "iDate" ikke indeholder noget..! :-)

Se første linie:

iDate = ""
            SQL = "UPDATE Vaertskaber SET "
            SQL = SQL & "[Date] = #" & iDate & "# "         
            SQL = SQL & "WHERE ID = " & iID
            Set rs = Conn.Execute(SQL)

Hvordan skal iDate så se ud hvis jeg vil "slette" inholdet ?

Jeg har lige prøve at sætte iDate = "X", men jeg får stadig samme fejlen:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] Syntax error in UPDATE statement.
/vl10/admin/OpdaterDatoVaertskaber.asp, line 65

Slette indholdet?
Mener du slette hele posten, eller overskrive datoen med en anden dato (eller "", dvs ingenting) ?

Det sidste, overskrive datoen med ingenting.

Det tætteste på ingenting er nok: 01-01-1970 00:00:00

Jeg tror ikke at den godtager ingenting, som en dato.. men du kan ersatte den med en fiktiv dato..

Det er ikke et datofelt i DB'en, men et tekstfelt.

Say what? :-)

Jamen, så skal det jo virke med '' med mindre at "tillad nullængde" er slået fra..
Du skulle gerne kunne bruge:

            SQL = "UPDATE Vaertskaber SET "
            SQL = SQL & "[Date] = ' '"
            SQL = SQL & "WHERE ID = " & iID
            Set rs = Conn.Execute(SQL)

Så skal du bare bruge et iID, der er et tal.. hvis iID er noget tekst, skal det bare være:

            SQL = SQL & "WHERE ID = '" & iID & "'"

iID kommer fra DB'en som "Autonumber" så det skulle jo være et tal eller Hva' ?

Prøvede med SQL = SQL & "WHERE ID = " & iID og får fejlen:
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.
/vl10/admin/OpdaterDatoVaertskaber.asp, line 70

Prøvede med SQL = SQL & "WHERE ID = '" & iID & "'" og får fejlen :
Error Type:
ADODB.Recordset (0x800A0E78)
Operation is not allowed when the object is closed.
/vl10/admin/OpdaterDatoVaertskaber.asp, line 95

Strange ???

Skrive lige navne på dine kolonner, og typen af dem..

Eksempel:
Navn = streng
Alder = tal

osv..

Alle kolonner er tekst.

ID = Autonumber
Aar = tekst
Fornavn = tekst
Efternavn = tekst
Date = tekst

Hehe.. det giver ingen mening, at kalde kolonnen "Date", når alle de andre er på dansk.. :-)

Anyways..

Det her skal virke:

            SQL = "UPDATE Vaertskaber SET "
            SQL = SQL & "[Date] = '' "           
            SQL = SQL & " WHERE ID = " & iID
            Conn.Execute(SQL)

Læg mærke til:
1) Jeg sætter værdien til '', dvs ingenting. Dette kræver at "tillad nullængde" skal være "slået til".
2) Jeg har fjernet "Set rs =", da det ikke er nødvendigt med UPDATE.. kun SELECT

Nu sker der da noget i DB'en, men jeg tror faktisk at det er koden fra tidligere "16/05-2006 22:09:14". Jeg bliver lige nødt til at checke...vender tilbage i morgen.

Checkede også lige i DB'en. Feltet "Date" har "tillad nullængde" slået til.

Nu har jeg prøvet din kode : 16/05-2006 22:41:06
            SQL = "UPDATE Vaertskaber SET "
            SQL = SQL & "[Date] = '' "           
            SQL = SQL & " WHERE ID = " & iID
            Conn.Execute(SQL)

men der sker ingen ændringer i DB'en.

Jeg har også prøvet denne kode igen : 16/05-2006 22:09:14
            SQL = "UPDATE Vaertskaber SET "
            SQL = SQL & "[Date] = " "           
            SQL = SQL & "WHERE ID = '" & iID & "'"
            Conn.Execute(SQL)

Men der sker heller ikke noget.

Puha, det er lige før man ahr lyst til at give op.

Linje øverst ser sådan ud: SQL = SQL & "[Date] = '\'\" (Håber den skriver det rigtigt)

Er du sikker på, at du kigger i den rigtige database?
Smid lige hele koden til den fil du loader..

Ja jeg er sikker på DB'en

Og koden :
        'Creating the Recordset Object
        Set Conn = Server.CreateObject("ADODB.Connection")

        'Creating a DSN-Less connection to your Database
        strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../log/vl10.asp")

        'Open your recordset
        Conn.Open strDSN

        '***********************************************************************************************
       
            iDate        = Request.querystring("Date")
           
            'Update record
            iDato        = Request.form("Dato")
            iPerson    = Request.form("person")
           
            'response.Write ("iDate = " & iDate ) & "<br>"
            'response.Write ("iPerson = " & iPerson ) & "<br>"
            'response.Write ("iDato = " & iDato ) & "<br><br>"   
           
            P = INSTR(iPerson, " ")
            L = Len(iPerson)
            'response.Write "P = " & P & "<br>"
            iFornavn = Trim(Left(iPerson,P))
            iEfternavn = Trim(Right(iPerson,(L-P)))
            'response.Write "iFornavn = " & iFornavn & "<br>"                               
            'response.Write "iEfternavn = " & iEfternavn & "<br>"                               

            'Find iID
            P1 = INSTR(iEfternavn, "$")
            L1 = Len(iEfternavn)
            iID = Trim(Right(iEfternavn,(L1-P1)))
           
            'Fjern $ og ID fra efternavn
            W1 = L1-(P1-1)
            xEfternavn = Trim(Left(iEfternavn,(L1-W1)))

            'Delete old date
            iDate = ""
            'SQL = "UPDATE Vaertskaber SET "
            'SQL = SQL & "Date = '" & iDate & "' "           
            'SQL = SQL & " WHERE ID = " & iID
           
            'SQL = "UPDATE Vaertskaber SET "
            'SQL = SQL & "[Date] = " "           
            'SQL = SQL & "WHERE ID = '" & iID & "'"
            'Conn.Execute(SQL)
       
            'Her sker igen ting i db'en
            SQL = "UPDATE Vaertskaber SET "
            SQL = SQL & "[Date] = ' '"
            SQL = SQL & "WHERE ID = " & iID
            Conn.Execute(SQL)
           
            '**************************************
           
            'Insert new date
            'SQL = "UPDATE Vaertskaber SET "
            'SQL = SQL & "Date = '" & iDato & "' "
            'SQL = SQL & " WHERE Fornavn = '" & iFornavn & "' "
            'SQL = SQL & " AND Efternavn = '" & xEfternavn & "' "
           
            'Conn.Execute(SQL)
           

            'response.Write "Insert Dato : " & SQL
           
            'Set rs = Conn.Execute(SQL)
            'response.Write(SQL)

            'Close connection
            'rs.close
            'Set rs = Nothing
            Conn.close
            Set Conn = Nothing

Prøv lige det her:

            'Her sker igen ting i db'en
            SQL = "UPDATE Vaertskaber SET "
            SQL = SQL & "[Date] = ' '"
            SQL = SQL & "WHERE ID = " & iID
            Conn.Execute(SQL)
            response.write "SQL: *" & SQL & "*"

Hvad skriver den så?

Hvis jeg kører den du har lavet ovenfor kommer fejlen :
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.
/vl10/admin/OpdaterDatoVaertskaber.asp, line 77

Hvis jeg laver denne her 'Conn.Execute(SQL)

Får jeg : SQL: *UPDATE Vaertskaber SET [Date] = ' 'WHERE ID = 25*

Ahhh.. der kan man bare se.. der mangler et mellemrum mellem '' og WHERE.. :-)

Rettelsen kommer her:

            'Her sker igen ting i db'en
            SQL = "UPDATE Vaertskaber SET "
            SQL = SQL & "[Date] = ' ' "
            SQL = SQL & "WHERE ID = " & iID
            Conn.Execute(SQL)
            response.write "SQL: *" & SQL & "*"

Det havde jeg godt set tidligere, men da du rettede det troede jeg ikke det betød noget.

Nu kommer denne fejl og jeg har bare lavet et mellemrum som jeg skulle :
Invalid procedure call or argument: 'Left'
/vl10/admin/OpdaterDatoVaertskaber.asp, line 55

Linje 55 : xEfternavn = Trim(Left(iEfternavn,(L1-W1)))

Og nu kommer den ikke, hvad er det der sker ??

Du arbejder med noget her:

            'Find iID
            P1 = INSTR(iEfternavn, "$")
            L1 = Len(iEfternavn)
            iID = Trim(Right(iEfternavn,(L1-P1)))
           
            'Fjern $ og ID fra efternavn
            W1 = L1-(P1-1)
            xEfternavn = Trim(Left(iEfternavn,(L1-W1)))

Melder den stadigvæk fejl..?

For fejlen :
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.
/vl10/admin/OpdaterDatoVaertskaber.asp, line 83

83 : Conn.Execute(SQL)

Med 'Conn.Execute(SQL)

ser det sådan ud :SQL: *UPDATE Vaertskaber SET [Date] = ' ' WHERE ID = 13*

Så der ser jo rigtig nok ud ?

Ja, det ser rigtigt ud.

Fejlen "Data type mismatch in criteria expression" betyder, at man arbejder med forkerte typer.

F.eks., hvis man prøver på at gemme "abc" i et tal-felt, hvor det kun er tilladt at bruge tallene 0-9 (osv..).

Så du skal lige dobbel -og triple checke typen af feltet "Date".. :-)

Bare så du ved:
Hvis du ændrer "Date" til "Dato" i databasen, behøver du ikke "[" og "]".. sålænge at der ikke er andre kolonner, der hedder "Dato".. :-)

Nu har jeg rettet kolonnen fra date til dato ( stadig tekstfelt ) og fjernet [] omkring date og ændrede date til dato og får nu fejlen:

ODBC driver does not support the requested properties.
/vl10/admin/Vaertskaber.asp, line 248

Uddrag af koden :
        'Create object for the recordset
        Set rs = Server.CreateObject("ADODB.RecordSet")

        'Create DSN connection
        strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../log/vl10.asp")

        ' Opbygning af SQL streng
        strSQL = "SELECT * FROM Vaertskaber Where Aar = '" & iAar & "' ORDER BY RIGHT([date],2)"
        'Response.Write(strSQL)
           
        'Open DB
        rs.Open strSQL, strDSN, 1

248 : rs.Open strSQL, strDSN, 1

Prøv med:

' 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("../log/vl10.asp")
Conn.Open DSN

        ' Opbygning af SQL streng
        strSQL = "SELECT * FROM Vaertskaber Where Aar = '" & iAar & "' ORDER BY RIGHT([date],2)"
        'Response.Write(strSQL)

set rs = conn.execute(strSQL)


Se http://www.html.dk/tutorials/asp/lektion19.asp

Får fejlen :
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
/vl10/admin/Vaertskaber.asp, line 261

Hvad mere forventer den ?

Variablen "iAar" er sikkert tom.

Lav altid denne test:

response.write "*" & strSQL & "*"

Åhh... vent lidt. Der skal selvfølgelig stå : ORDER BY RIGHT([dato],2)"  og ikke ORDER BY RIGHT([date],2)"

Hvis feltet hedder "dato", behøver du stadigvæk ikke "[]".. :-)

Det har jeg rettet og del kode på de foregående sider vedr.
17/05-2006 22:43:57 da den kom med nogle fejl af de samme fejl.

Det virker halvt nu, men der sker stadig noget underligt som jeg bliver nødt til at kigge på, dog ingen fejl. Jeg vender tilbage igen i morgen.

Tak for hjælpen indtil videre.

Ok.. jeg smutter også snart i seng..

thesurfer >> Jeg har siddet og kigget lidt på koden og prøvet forskellige ting og det virker næsten nu, der er et lille problem som jeg skal have løst. Hvis du sender et svar så lad os lukke spørgsmålet for nu, så prøver jeg at se om jeg kan løse det selv, ellers må jeg jo vende tilbage.

1000 tak for hjælpen.

Koden kom til at se sådan ud:
            'Delete old date
            SQL = "UPDATE Vaertskaber SET "
            If iDate <> "" Then
                'SQL = SQL & "Dato = ' ' "
                SQL = SQL & "Dato = '" & iDato & "' "
            Else           
                SQL = SQL & "Dato = ' ' "
            End If
            'SQL = SQL & "WHERE ID = " & iID
              SQL = SQL & "WHERE ID = '" & iID & "'"
            Conn.Execute(SQL)
            'response.write "SQL: *" & SQL & "*"                       
           
            '**************************************
           
            'Insert new date
            SQL = "UPDATE Vaertskaber SET "
            SQL = SQL & "Dato = '" & iDato & "' "
            SQL = SQL & " WHERE Fornavn = '" & iFornavn & "' "
            SQL = SQL & " AND Efternavn = '" & xEfternavn & "' "
           
            Conn.Execute(SQL)

            'Close connection
            Conn.close
            Set Conn = Nothing

Definer "et lille problem"..

- Svar

Jeg har lige uploadet to biller som viser hvad problemet er på http://www.bodygym.dk/test.

Når jeg klikker på datoen på det øverste billede ( 11.09 ) kommer det til at se ud som på billede 2.

biller = billeder, skulle vist have fulgt lidt bedre med i dansk ;-)

Arhh.... Skylder dig lige at sige der selvfølgelig kommer et nyt vindue op hvor jeg kan ændre dato og deltager/bruger og når jeg klikke på "Opdatér" kommer det du ser på billede 2.

Da du gik fra billede 1 til billede 2, hvad gjorde du i popup-vinduet?

Jeg ændrede deltager/bruger.

Jeg har fundet ud af hvad der er galt: Af en eller anden mærkelig grund så mangler den del der hedder SQL = SQL & "WHERE ID = '" & iID & "'" i SQL'en når jeg SQL'en ud på skærmen i øverste del "Delete old date" delen, jeg kan bare ikke forstå hvorfor.

Her er opdateret kode :
            SQL = "UPDATE Vaertskaber SET "
            If iDate <> "" Then
                SQL = SQL & "Dato = ' ' "
                response.write "Delete old date. iDate indhold - ' ' : " & SQL & "<br><br>"   
            Else           
                'SQL = SQL & "Dato = ' ' "
                SQL = SQL & "Dato = '" & iDate & "' "
                response.write "Delete old date. iDate indhold : " & SQL & "<br><br>"
            End If
              SQL = SQL & " WHERE ID = '" & iID & "'"
            'Conn.Execute(SQL)
            response.write SQL & "<br><br>"                   
           
            '**************************************
           
            'Insert new date
            SQL = "UPDATE Vaertskaber SET "
            SQL = SQL & "Dato = '" & iDato & "' "
            SQL = SQL & " WHERE Fornavn = '" & iFornavn & "' "
            SQL = SQL & " AND Efternavn = '" & xEfternavn & "' "
            response.write "Insert new date : " & SQL
           
            'Conn.Execute(SQL)

SQL'en ser sådan ud : Delete old date. iDate indhold - ' ' : UPDATE Vaertskaber SET Dato = ' ' men som du kan se mangler "Where ID = 'x'

Sorry! Det er noget være sludder jeg skriver nu jeg sidder og kigger på outputtet. Det er rigtig nok: UPDATE Vaertskaber SET Dato = '' WHERE ID = '68'

Så der er ikke noget galt mere..? :-)

Indholdet af din IF-sætning ser lidt mærkelig ud:

            If iDate <> "" Then
                SQL = SQL & "Dato = ' ' "
                response.write "Delete old date. iDate indhold - ' ' : " & SQL & "<br><br>"   
            Else           
                'SQL = SQL & "Dato = ' ' "
                SQL = SQL & "Dato = '" & iDate & "' "
                response.write "Delete old date. iDate indhold : " & SQL & "<br><br>"
            End If

Hvis iDate IKKE er tom (dvs indeholder noget)
  sæt Dato til ' '
eller
  sæt Dato til iDate (som er tom)
slut Hvis

Så Dato kommer til at være tom, lige meget hvad iDate indeholder..
Forskellen er så, om det skal være '' eller ' ' (med et mellemrum) ..

Jo, det er fordi jeg tager den forkerte ID med over når jeg prøver at "slette" den gamle dato. ID '68' er på den bruger jeg lige har valgt når jeg har mit popup vindue oppe og det skal det jo ikke være. Det skal være på den "gamle" dato hvis du forstår hvad jeg mener.

Så må der være fejl, i det link (eller hvad du nu bruger) der åbner popup'en..
Elelr wa?

Ja det er rigtigt. Jeg prøver lige at få det rigtige ID med over.

hmmm... Jeg har fået ID'et med over for længe siden, men men men der er stadig noget galt. Jeg vender stækt tilbage i morgen og kigger videre på problemet.

Jeg har opdateret http://www.bodygym.dk/test. Når jeg klikker på datoen 10.10 og ændre bruger så kommer det til at se lidt mystisk. Se billede 2.

Hvis fornavn og efternavn består af to navne, altså uden mellemnavn, som f.eks. "Svend Kristiansen" så virker det når man ændre dato. Hvis der er et mellemnavn som i "Henrik Svend Sørensen" så slettes den gamle dato, men der indsættes ingen ny.

her er den nye opdateret kode:
            iDate        = Request.querystring("Date")
            iID            = Request.querystring("ID")           

            response.write "iID er = " & iID & "<br>"
           
            'Update record
            iDato        = Request.form("Dato")
            iPerson    = Request.form("Person")
           
            'response.Write ("iDate = " & iDate ) & "<br>"
            'response.Write ("iPerson = " & iPerson ) & "<br>"
            'response.Write ("iDato = " & iDato ) & "<br><br>"   
           
            P = INSTR(iPerson, " ")
            L = Len(iPerson)
            'response.Write "P = " & P & "<br>"
            'response.Write "L = " & L & "<br>"
            iFornavn = Trim(Left(iPerson,P))
            iEfternavn = Trim(Right(iPerson,(L-P)))
            'response.Write "iFornavn = " & iFornavn & "<br>"                               
            'response.Write "iEfternavn = " & iEfternavn & "<br>"                               

            'Delete old date
            SQL = "UPDATE Vaertskaber SET "
            If Len(iDate) <> 0 Then
                SQL = SQL & "Dato = '' "
                'response.write "Delete old date. iDate indhold - ' ' : " & SQL & "<br><br>"           
            Else           
                SQL = SQL & "Dato = '" & iDate & "' "
                'response.Write "Længden af iDate er = " & Len(iDate) & "<br><br>"
                'response.write "Delete old date. iDate indhold : " & SQL & "<br><br>"
            End If
              SQL = SQL & " WHERE ID = '" & iID & "'"
            Conn.Execute(SQL)
            response.write "Delete old date : " & SQL & "<br><br>"                   
           
            '**************************************
           
            'Insert new date
            SQL = "UPDATE Vaertskaber SET "
            SQL = SQL & "Dato = '" & iDato & "' "
            SQL = SQL & " WHERE Fornavn = '" & iFornavn & "' "
            SQL = SQL & " AND Efternavn = '" & iEfternavn & "' "
            response.write "Insert new date : " & SQL & "<br><br>"
           
            Conn.Execute(SQL)
           
            'Close connection
            Conn.close
            Set Conn = Nothing

Jeg undrer mig lidt over, at du bruger fornavn og efter navn i din WHERE..
Det er mere logisk at bruge ID, da det er unikt.

Hvad gør du, hvis der er 2 der hedder "Hans Hansen"?

Hvis du brugte ID, ville de to "Hans Hansen"'ner have 2 forskellige ID'er.. f.eks. 2 og 5.

Ja det kan jeg godt forstå, det er ikke helt normalt at gøre det på den måde, det var kun fordi jeg ved der ikke er 2 der kommer til at hedde det sammme, da det er en lille gruppe af mennesker.

Jeg har jo ID'et på den nye, så jeg prøver lige at lave det om.

Kan du se hvorfår jeg får denne fejl ?
Microsoft VBScript runtime (0x800A0005)
Invalid procedure call or argument: 'Left'
/vl10/admin/RetDatoVaertskaber.asp, line 91

Koden ser sådan ud :
        <select name="person">
        <option selected="V&aelig;lg en person" onFocus="this.blur()">V&aelig;lg en person
        <%
            For i = 0 to Max
                Person = rsarr(2,i) & " " & rsarr(3,i) & "$" & rsarr(0,i)
                Person = rsarr(2,i) & " " & rsarr(3,i)
                P = INSTR(Person, "$")
                L = Len(Person)
                W = L-(P-1)
                xPerson = Trim(Left(Person,(L-W)))
        %>
                <option value="<%=Person%>" Class=""><%=xPerson%>
        <%
            Next
        %>
        </select>

Variablen Person vil se sådan ud : Person = "Hans Hansen$35"

Sorry, jeg er ved stirre mig blind på den kode. Det er linjen "Person = rsarr(2,i) & " " & rsarr(3,i)" der skal se således ud "xPerson = rsarr(2,i) & " " & rsarr(3,i)"

Puha,  nu virker det som det skal. Det var en hård nødt at knække.

Tak for hjælpen endnu engang.