SQL Fejl ved submit af redigerings side.

mo ikke det er fordi den data du prøver at sætte ind ikke passer emd de datatyper der er i databasen?

fx sætte tekst ind i det tal felt.

Min database felter har tekst felter og så er der et par Yes/No checkboxe og et memo felt.

"&Request.form("Beløb")&" <-- Er dette et tekstfelt?
I så fald skal der ' om:
'"&Request.form("Beløb")&"'

Og så er det altid en god ide at udskrive sin SQL-string för man körer den.

'Conn.Execute(strSQL)
response.write(strSQL)
På den måde for man bedre overblik.

OK nu skal du se....

Gør jeg sådan her:
'Conn.Execute(strSQL)
response.write(strSQL)

Kommer jeg fint videre uden fejl ved at klikke submit.

Men retter jeg tilbage får jeg følgende fejl nu:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in UPDATE statement.

/kartotek/secher.asp, line 36

OK, pröv at klistre din udskrevne SQL-string her ind.

Du mener hvad den skriver fra response.write?

Får ingen meddelelse. den går videre til den side den skal.

Udkommenter response.redirect(side) også ;o)
Ellers hjälper det jo ikke at du udskriver sql-stringen.

eller skriv Response.end efter, så stopper scriptet

ER ikke helt med på hvad jeg skal?

      If strID > "" Then
            Set Conn = Server.CreateObject("ADODB.Connection")
            Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("kundedatabase.mdb")
           
            If strID = "(Ny)" Then
                strSQL = "INSERT INTO kundedatabase (Tekst) VALUES ('" & strTekst & "');"
            Else
                strSQL = "UPDATE DISTINCT ROW kundedatabase SET Qxl = '"&Request.form("Qxl")&"',Email = '"&Request.form("Email")&"',Navn = '"&Request.form("Navn")&"',Adresse = '"&Request.form("Adresse")&"',postnr = '"&Request.form("Postnr")&"',[by] = '"&Request.form("By")&"',Land = '"&Request.form("Land")&"',Tlf = '"&Request.form("Tlf")&"',Antalvarer = '"&Request.form("Antalvarer")&"',Varer= '"&Request.form("Varer")&"',Formular = "&Request.form("Formular")&",Betaling = '"&Request.form("Betaling")&"',Beløb = '"&Request.form("Beløb")&"',Sendt = "&Request.form("Sendt")&",Tt = '"&Request.form("Tt")&"',Besked = '"&Request.form("Besked")&"' WHERE id = "& Request.Form("id") &";"
            End If
           
            Conn.Execute(strSQL)
            Conn.Close
            Set Conn = Nothing
        End If
       
        Response.Redirect "secher.asp"

response.write(strSQL)
'Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
End If
     
'Response.Redirect "secher.asp"

er det det her i kan bruge.
Fejlen fra explorer:

UPDATE DISTINCT ROW kundedatabase SET Qxl = 'jm',Email = 'jm@jm.dk',Navn = 'jmsecher',Adresse = 'none',postnr = '1234',[by] = 'by',Land = 'land',Tlf = '4367754',Antalvarer = '1',Varer= '',Formular = true,Betaling = 'true',Beløb = '1000',Sendt = true,Tt = '320',Besked = 'test test' WHERE id = 1;

Har det noget og gøre med '

Formular = true,Betaling = 'true',

DISTINCTROW ud i et, og så kan du se hvilke attributter der skal have ' om.
Jeg ved ikke hvilke datatyper de forskellige felter er.

Formular = true,Betaling = 'true', er begge checkboxe

Men de skal ihvert fald väre ens, hvis det er de samme datatyper i databasetabellen. Pröv med ' på allesammen.

ok kigger lige..

Får følgende fejl:
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/kartotek/secher.asp, line 37

Ved brug af:
Formular = '"&Request.form("Formular")&"'

Hvordan skal koden så se ud?

Hvad er datatypen i din databasetabel? Pröv uden '.

He he he FEDT nu virker det i alle felter undtagen mine 3 checkboxe...

retter jeg checkbox markering får jeg:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in UPDATE statement.

/kartotek/secher.asp, line 37

laver lige en response.write(strSQL)

UPDATE DISTINCTROW kundedatabase SET Qxl = 'jm',Email = 'jm@jm.dk',Navn = 'jmsecher',Adresse = 'none',postnr = '1234',[by] = 'by',Land = 'land',Tlf = '4367754',Antalvarer = '1',Varer= 'Digitalt Kamera 5.0 Mpix',Formular = true,Betaling = true,Beløb = '1000',Sendt = ,Tt = '320',Besked = 'test test test' WHERE id = 1;

det er efter jeg har fjernet markering for sendt. får jeg følgende svar:
Sendt = ,

prøv lige at sætte den her inde inden du eksekvere sql:

If Request.form("Betaling") = true Then
  strTest = "on"
Else
  strTest = "off"
End If

og så set strTest ind i stedet for Request.form("Betaling")

Betaling = "&strTest&", ?

UPDATE DISTINCTROW kundedatabase SET Qxl = 'jm',Email = 'jm@jm.dk',Navn = 'jmsecher',Adresse = 'none',postnr = '1234',[by] = 'by',Land = 'land',Tlf = '4367754',Antalvarer = '1',Varer= 'Digitalt Kamera 5.0 Mpix',Formular = true,Betaling = off,Beløb = '1000',Sendt = true,Tt = '320',Besked = 'test test test' WHERE id = 1;

yep

har haft fjernet flueben og nu vil jeg have dem på igen men får:

UPDATE DISTINCTROW kundedatabase SET Qxl = 'jm',Email = 'jm@jm.dk',Navn = 'jmsecher',Adresse = 'none',postnr = '1234',[by] = 'by',Land = 'land',Tlf = '4367754',Antalvarer = '1',Varer= 'Digitalt Kamera 5.0 Mpix',Formular = off,Betaling = off,Beløb = '1000',Sendt = off,Tt = '320',Besked = 'test test test' WHERE id = 1;

det virker for mig nu med den som den ser ud nu

kan ikke få det til at virke..

        If Request.form("Formular") = true Then
          strForm = "on"
        Else
          strForm = "off"
        End If

        If Request.form("Betaling") = true Then
          strBet = "on"
        Else
          strBet = "off"
        End If
       
        If Request.form("Sendt") = true Then
          strSend = "on"
        Else
          strSend = "off"
        End If       

        If strID > "" Then
            Set Conn = Server.CreateObject("ADODB.Connection")
            Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("kundedatabase.mdb")
           
            If strID = "(Ny)" Then
                strSQL = "INSERT INTO kundedatabase (Tekst) VALUES ('" & strTekst & "');"
            Else
                strSQL = "UPDATE DISTINCTROW kundedatabase SET Qxl = '"&Request.form("Qxl")&"',Email = '"&Request.form("Email")&"',Navn = '"&Request.form("Navn")&"',Adresse = '"&Request.form("Adresse")&"',postnr = '"&Request.form("Postnr")&"',[by] = '"&Request.form("By")&"',Land = '"&Request.form("Land")&"',Tlf = '"&Request.form("Tlf")&"',Antalvarer = '"&Request.form("Antalvarer")&"',Varer= '"&Request.form("Varer")&"',Formular = "&strForm&",Betaling = "&strBet&",Beløb = '"&Request.form("Beløb")&"',Sendt = "&strBet&",Tt = '"&Request.form("Tt")&"',Besked = '"&Request.form("Besked")&"' WHERE id = "& Request.Form("id") &";"
            End If
           
           
            response.write(strSQL)
            'Conn.Execute(strSQL)
            Conn.Close
            Set Conn = Nothing
            End If
     
            'Response.Redirect "secher.asp"

ups har rettet ,Sendt = "&strBet&",
til ,Sendt = "&strsend&",

så det virker nu?

får stadig denne kode efter jeg har udfyldt de 3 checkboxe.

UPDATE DISTINCTROW kundedatabase SET Qxl = 'jm',Email = 'jm@jm.dk',Navn = 'jmsecher',Adresse = 'none',postnr = '1234',[by] = 'by',Land = 'land',Tlf = '4367754',Antalvarer = '1',Varer= 'Digitalt Kamera 5.0 Mpix',Formular = off,Betaling = off,Beløb = '1000',Sendt = off,Tt = '320',Besked = 'test test test' WHERE id = 1;

nååå, du mener der står off?

prøv med:

If Request.form("Formular") = "true" Then
          strForm = "on"
        Else
          strForm = "off"
        End If

YESSSSSSS. :-) DET VIRKER.......
FEDT..

Endelig, så fandt jeg løsningen alligevel.

He he he det er bare alletiders.
SÅ hvis michael_stim vil have en del af points må du vær med nu.
Du har været med til at få det til at virke..

Oki doki ;o)