SQL update eller insert

Du kan bruge en SELECT til at finde ud af om den er der allerede

Update har en anden syntaks:

UPDATE Medlemmer set
Firma,Adresse = '" & firma & "',
Adresse2,vBy,Kontakt)=  '" & adresse & "'

osv ...

og husk!  WHERE medlemsnr = " & medlemsnr

ellers bliver alle records opdateret!

Jo, her kan du se princippet:

sql = "SELECT ID FROM MEDLEMMER WHERE MEDLEMSNUMMER = '" & Request.Form("Medlemsnummer") & "'"
Set rs = Conn.Execute(sql)

If Rs.Eof Then
  (Insert)
Else
  (Update)
End If

rs.Close
Set rs = Nothing

SQL = "UPDATE Medlemmer SET medlemsnr = " & medlemsnr & ", Firma = '" & firma & "', Adresse = '" & adresse & "', Adresse2 = '" & adresse2 & "', vBy = '" & by & ", Kontakt = '" & kontakt & "' WHERE medlemsnr = " & medlemsnr

Rs.Eof ??? hvad hedder mit recordset, kan du hjælpe.
her er min kode:

sub doFormatering
    'Response.Write Request.Form("fil")
    dim fil,f
   
    fil = Request.Form("fil")
    fil = Split(fil,vbCrLf)
   
    ' Initialisering af databaseconnection
    Set oConn = Server.CreateObject("ADODB.Connection")
    Set oRS = Server.CreateObject("ADODB.Recordset")
    c = Application("db")
   
    oConn.ConnectionString = c
    oConn.Open
   
   
    dim medlemsnr, firma, adresse, adresse2, by, kontakt, SQL
   
    for each f in fil
        t = split(f,""",""")
       
        if ubound (t) > -1 then
           
            medlemsnr        =    mid(t(0), 2)
            firma            =    re(t(1))
            adresse            =    re(t(2))
            adresse2        =    re(t(3))
            by                =    re(t(4))
            kontakt            =    re(t(5))

fil = min form
er det C eller Oconn eller t jeg skal benytte til at spørge:
If ***.Eof Then

Du kunne bare skrive:

    Set oConn = Server.CreateObject("ADODB.Connection")
    oConn.Open Application("db")

istedet for

' Initialisering af databaseconnection
    Set oConn = Server.CreateObject("ADODB.Connection")
    Set oRS = Server.CreateObject("ADODB.Recordset")
    c = Application("db")
   
    oConn.ConnectionString = c
    oConn.Open

Recordsettet angiver du jo først når du har lavet en sql-sætning at smide op imod databasen.

altså recordsettet kommer først efter ovenstående så der kommer til at stå:

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open Application("db")

sql = "SELECT ID FROM MEDLEMMER WHERE MEDLEMSNUMMER = '" & Request.Form("Medlemsnummer") & "'"
Set rs = oConn.Execute(sql)

If Rs.Eof Then
osv.

Jeg skal løbe alle records igennem og trekke om de findes og skal opdateres eller ikke og skal oprettes.

loppet findes egentligt i:
for each f in fil
        t = split(f,""",""")

If Rs.Eof Then virker ikke i denne forbindelse...

men hvordan jeg lige fletter det hele sammen er jeg gået i stå.

Du løber da ikke records igennem med for each f in fil, hvis fil er din form. Så løber du jo bare felterne igennem i formen?
I ovenstående er fil jo heller ikke din form, men et felt formen og du løbe alle linier i feltet igennem.

Men tidligere har den opdateret på følgende måde, som virkede. Det er jo det sammen den går. Løber formen igennem og opdatere imens.

Nu skal den bare tjekke om den findes og opdatere hvis ikke insert!'
Kan jeg ikke få en hjælpende håndsrækning til dette.

for each f in fil
        t = split(f,""",""")
       
        if ubound (t) > -1 then
           
            medlemsnr        =    mid(t(0), 2)
            firma            =    re(t(1))
            adresse            =    re(t(2))
            adresse2        =    re(t(3))
            by                =    re(t(4))
            kontakt            =    re(t(5))
           
            SQL =    "INSERT INTO Medlemmer (medlemsnr,Firma,Adresse,Adresse2,vBy,Kontakt) " & _
                    '" VALUES (" & medlemsnr & ",'" & firma & "','" & adresse & "','" & adresse2 & "','" & _
                    'by & "','" & kontakt & "')"
           
            'Response.Write SQL
            oConn.Execute(SQL)
           
            medlemsnr = ""
            firma = ""
            adresse = ""
            adresse2 = ""
            by = ""
            kontakt = ""
        end if
       
    next
   
    count = UBound(fil)
   
    %>

if (alle records) contains medlemsnr then
update()
else
insert()
end if

men hvordan?

Skal jeg benytte Dreamweaver MX bliver det noget i denne retning:

<%
Dim rs_medlemmer
Dim rs_medlemmer_numRows

Set rs_medlemmer = Server.CreateObject("ADODB.Recordset")
rs_medlemmer.ActiveConnection = MM_ssid_STRING
rs_medlemmer.Source = "SELECT * FROM medlemmer"
rs_medlemmer.CursorType = 0
rs_medlemmer.CursorLocation = 2
rs_medlemmer.LockType = 1
rs_medlemmer.Open()

rs_medlemmer_numRows = 0
%>

længenre nede:

        If (rs_medlemmer.Fields.Item("medlemsnr").Value) contains medlemsnr  Then ' denne linie skal den løbe alle records igennem.
update()
else
insert()
end if

Er der ikke en som vil vise mig hvordan? Jeg hæver points.

Du løber alle felter i din form igennem og for hvert felt der findes splitter du det op i 6 variabler. Herefter vil du tjekke om den første variabel (medlemsnummeret) findes i databasen i forvejen, opdatere hvis den gør og indsætte hvis den ikke gør. Har jeg forstået det rigtigt?

Så er det i hvert fald noget hen af:

for each f in fil
        t = split(f,""",""")
       
        if ubound (t) > -1 then
           
            medlemsnr        =    mid(t(0), 2)
            firma            =    re(t(1))
            adresse            =    re(t(2))
            adresse2        =    re(t(3))
            by                =    re(t(4))
            kontakt            =    re(t(5))
           
            '## Check om medlemsnummeret findes i databasen findes i forvejen'
            SQL = "SELECT ID FROM Medlemmer WHERE medlemsnr= '" & medlemsnr & "'"
            Set rs = ConnO.Execute(sql)
           
            '## Hvis det ikke gør, indsættes det'
            If Rs.Eof Then
              SQL =  "INSERT INTO Medlemmer (medlemsnr,Firma,Adresse,Adresse2,vBy,Kontakt) " & _
                                  '" VALUES (" & medlemsnr & ",'" & firma & "','" & adresse & "','" & adresse2 & "','" & _
                                'by & "','" & kontakt & "')"
            '## Hvis det gør, opdateres det'
            Else
              SQL = UPDATE " osv osv
            End If
           
            rs.Close
            Set rs = Nothing

           
           
            'Response.Write SQL
            oConn.Execute(SQL)
           
            medlemsnr = ""
            firma = ""
            adresse = ""
            adresse2 = ""
            by = ""
            kontakt = ""
        end if
       
    next

Microsoft VBScript runtime error '800a01a8'

Object required: 'ConnO'

/admin/upload.asp, line 65

jeg har også prøvet at rette til conn stadigt samme fejl.

jeg har rettet til:
            SQL_findes = "SELECT medlemsnr FROM Medlemmer WHERE medlemsnr= '" & medlemsnr & "'"
            Set rs = Conn.Execute(SQL_findes)
MEN STADIGT SAMME FEJL.

Set rs = ConnO.Execute(SQL_findes)

ConnO er jo dit database objekt.

sorry oConn skal det jo være...

øv...

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

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

/admin/upload.asp, line 65

det er denne linie:
    SQL_findes = "SELECT medlemsnr FROM medlemmer WHERE medlemsnr= '" & medlemsnr & "'"

ahhh, hvad kan der dog være galt.
medlemsnr findes Medlemmer er en tabel som findes, der er da ikke noget mismatch in criteria expression???

jeg hæver points

feltet medlemsnr er muligvis et tal-felt. Derfor skal apostrofferne væk, så det bliver:

SQL_findes = "SELECT medlemsnr FROM medlemmer WHERE medlemsnr= " & medlemsnr & ""

Eller du kan nøjes med:

SQL_findes = "SELECT medlemsnr FROM medlemmer WHERE medlemsnr= " & medlemsnr

Skal oConn.Execute(SQL) egentligt ikke executes inde i if-then-else for hvor gang den er is eller else?

Jeg har følgende fejl:


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

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression '', Kontakt = '9900 Frederikshavn"' WHERE medlemsnr = 31'.

/admin/upload.asp, line 79

jeg byttede lidt rundt på værdierne i den kommeseparede fil og dernæst denne fejl. Jeg kan ikke få det på plads.

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

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression ''9900 Frederikshavn", Kontakt = 'Sille' WHERE medlemsnr = 31'.

/admin/upload.asp, line 80

Håber du kan hjælpe -thomas-

Hvorfor er der to apostroffer før 9900?

Prøv at paste din sql-sætning herind, så kan jeg lige kigge på den. Brug evt. Response.Write istedet for oConn.Execute(sql)

UPDATE Medlemmer SET medlemsnr = 30001, Firma = 'MANSE', Adresse = 'F Julvej 2', Adresse2 = '', vBy = '9900 Frederikshavn", Kontakt = 'Sille' WHERE medlemsnr = 30001UPDATE Medlemmer SET medlemsnr = 30009, osv.

ja det er rigtigt, der var en fejl i SQLén

så det virker nu eller hvad?

nej, jeg roder stadigt rundt med:
SQL = "UPDATE Medlemmer SET medlemsnr = " & medlemsnr & ", Firma = '" & firma & "', Adresse = '" & adresse & "', Adresse2 = '" & adresse2 & "', vBy = '" & by & ", Kontakt = '" & kontakt & "' WHERE medlemsnr = " & medlemsnr

jeg har rettet til:
    SQL = "UPDATE Medlemmer SET medlemsnr = " & medlemsnr & "', Firma = '" & firma & "', Adresse = '" & adresse & "', Adresse2 = '" & adresse2 & "', vBy = '" & by & "', Kontakt = '" & kontakt & "' WHERE medlemsnr = " & medlemsnr
men den skriver stadigt vBy = '9900 Frederikshavn"',

SQL = "UPDATE Medlemmer SET medlemsnr = " & medlemsnr & ", Firma = '" & firma & "', Adresse = '" & adresse & "', Adresse2 = '" & adresse2 & "', vBy = '" & by & "', Kontakt = '" & kontakt & "' WHERE medlemsnr = " & medlemsnr

skulle virke forudsat at medlemsnr er et tal.

Drop SET medlemsnr = " & medlemsnr & "

Fordi du siger WHERE medlemsnr = " & medlemsnr

jeg forstår at medlemsnr IKKE er autonummerering

medlemsnr er et tal men ikke autonum

ldanielsen har ret - du skal ikke opdatere medlemsnr, når du kun opdaterer linien hvor medlemsnr = medlemsnr

ldanielsen
jeg vil meget gerne beholde medlemsnr da noget jo skal oprettes og noget opdateres fra det samme upload af en kommasep.

Den skriver stadigt:  "' efter Frederikshavn

???

UPDATE Medlemmer SET medlemsnr = 30001, Firma = 'MANSE', Adresse = 'F Julvej 2', Adresse2 = '', vBy = '9900 Frederikshavn"', Kontakt = 'Sille' WHERE medlemsnr = 30001UPDATE Medlemmer SET medlemsnr = 30009, osv.

Jamen der er ingen grund til at gøre det. Prøv:

SQL = "UPDATE Medlemmer SET Firma = '" & firma & "', Adresse = '" & adresse & "', Adresse2 = '" & adresse2 & "', vBy = '" & by & "', Kontakt = '" & kontakt & "' WHERE medlemsnr = " & medlemsnr

Det giver ingen mening at skrive sæt 30001 = 30001 alle steder hvor 30001 = 30001.

Tak det ser nu ud til at virke. Lad mig fordele points.

lægger lige et svar, hvis nogle af pointene skulle være til mig :)

Jeg fordeler ud fra hvor meget man har skrevet opløftet og en kvadratrod hvorefter jeg ganger med de antal rigtige svar.

Det var egentligt rigtigt svaret da den nu gerne ville opdatere. Problemet er bare at den nu smider et " ind efter alle vby records ?

any clues?

SQLén ser sådan ud:
SQL = "UPDATE Medlemmer SET Firma = '" & firma & "', Adresse = '" & adresse & "', Adresse2 = '" & adresse2 & "', vBy = '" & by & "', Kontakt = '" & kontakt & "' WHERE medlemsnr = " & medlemsnr

på behøring vis vil jeg oprettte en nyt spgsm
http://www.eksperten.dk/spm/393723