Problem med INSERT

Du skal kontrolere:

- At de felter du du overfører til en tabel er af samme type.
- At den postr du forsøger at overføre ikke er tabellens primære nøgle.
- at den post du forsøger at overføre ikke har den egenskab, at dubletter ikke    tillades (Indeksereing)

- At felter i tabellen der ikke må have null værdier osse får en værdi

Typerne burde være ens, da det jo er fra den samme tabel den tager dataene fra.

I Detail2 tabellen, er der kun 1 nøgle (ID), og den bliver ikke overført.

I Periodetotaler tabellen, er der 4 nøgler (FirmaID, RegnID, Perioder, Konto) og alle disse felter bliver taget fra Detail2 tabellen.
FirmaID, RegnID og Konto er indexeret, med tilladelse af dubletter og Perioder er ikke Indexeret

alle felterne har indhold i Detail2, og 3 felter i Periodetotaler bliver defineret til hhv 0, 0 og True

Problemet er delvist løst.

Det viste sig, at der var en dobbelt post, som systemet åbenbart fra start er lavet til at ignorere, når det køres fra access-applikationen.

Det kan den bare ikke, når den kører fra min asp applikation.

Jeg ændrede funktionen fra:

Function RunQ_Bogf_DanPerioder()
        SQL = "INSERT INTO Periodetotaler ( FirmaID, RegnID, Perioder, PeriodeNr, Konto, Debet, Kredit, Bogf )"
        SQL = SQL & " SELECT DISTINCTROW Detail2.FirmaID, Detail2.RegnID, Detail2.Perioder, Detail2.PeriodeNr, Detail2.Konto, 0 AS Expr1, 0 AS Expr2, True AS Expr3"
        SQL = SQL & " FROM Detail2"
        SQL = SQL & " GROUP BY Detail2.FirmaID, Detail2.RegnID, Detail2.Perioder, Detail2.PeriodeNr, Detail2.Konto"
        Set RunQ = Server.CreateObject("ADODB.Command")
        RunQ.ActiveConnection = MM_SW_STRING
        RunQ.CommandText = SQL
        RunQ.Execute
        RunQ.ActiveConnection.Close
end function


Til:

Function RunQ_Bogf_DanPerioder()
on error resume next
        SQL = "SELECT DISTINCTROW Detail2.FirmaID, Detail2.RegnID, Detail2.Perioder, Detail2.PeriodeNr, Detail2.Konto, 0 AS Expr1, 0 AS Expr2, True AS Expr3"
        SQL = SQL & " FROM Detail2"
        SQL = SQL & " GROUP BY Detail2.FirmaID, Detail2.RegnID, Detail2.Perioder, Detail2.PeriodeNr, Detail2.Konto"

        Set FRS = Server.CreateObject("ADODB.Recordset")
        FRS.ActiveConnection = MM_SW_STRING
        FRS.Source = SQL
        FRS.CursorType = 0
        FRS.CursorLocation = 2
        FRS.LockType = 1
        FRS.Open()

        While NOT FRS.EOF
        SQL1 = "INSERT INTO Periodetotaler ( FirmaID, RegnID, Perioder, PeriodeNr, Konto, Debet, Kredit, Bogf )"
        SQL1 = SQL1 & " VALUES ('" & FRS("FirmaID") & "','" & FRS("RegnID") & "','" & FRS("Perioder") & "'," & FRS("PeriodeNr") & ",'" & FRS("Konto") & "'," & FRS("Expr1") & "," & FRS("Expr2") & "," & FRS("Expr3") & ")"
            Set RunQ = Server.CreateObject("ADODB.Command")
        RunQ.ActiveConnection = MM_SW_STRING
        RunQ.CommandText = SQL1
        RunQ.Execute
        RunQ.ActiveConnection.Close
        FRS.MoveNext
        Wend
end function


men er det ikke muligt at bruge den øverste funktion, og få den til at springe posterne over hvis de allerede eksisterer ?

Spørgsmålet lukkes,
mugs: du får points, da det omhandlede dubletter.
Det var dog ikkeet access problem, men derimod et problem med db-forbindelsen fra asp der ikke er hurtig nok.

Tak for point - Jeg har ikke meget forstand på ASP, faktisk slet intet, men en gang imellem kan det betale sig for en amatør at svare ;o)