SELECT INTO uden oprettelse af ny tabel.

Hej Anders, jeg har nedenunder et eksempel der kopierer current record fra een tabel til en historik tabel, den skal rettes lidt til men hvis jeg læser dit indlæg korrekt kan den bruges...


Public Function SkrivTilHistorik(Tabelnavn As String, DinTabel As String, PrimærNøgleNavn As String, PrimærNøgleVærdi As Variant, Handling As Byte)
    Dim db As Database
    Dim tdef As TableDef
    Dim tdefHist As TableDef
    Dim n As Byte
    Dim SQLStr As String
   
    Set db = CurrentDb
    Set tdef = db.TableDefs(Tabelnavn)
    Set tdefHist = db.TableDefs(HistorikTabel)
   
    SQLStr = "INSERT INTO [" & DinTabel& "] ( "
    For n = 0 To tdef.Fields.Count - 1
        SQLStr = SQLStr & "[" & tdef.Fields(n).Name & "], "
    Next n
    SQLStr = SQLStr & "ÆndretAf, ÆndretDato, HistorikHandling ) "
   
    SQLStr = SQLStr & "Select "
    For n = 0 To tdef.Fields.Count - 1
        SQLStr = SQLStr & "[" & tdef.Fields(n).Name & "], "
    Next n
    SQLStr = SQLStr & "'" & GetUsername & "', Now(), " & Handling & " "
    SQLStr = SQLStr & "FROM [" & Tabelnavn & "] WHERE [" & PrimærNøgleNavn & "] = " & PrimærNøgleVærdi
    db.Execute SQLStr
End Function

Alle felter med det i recorden copy pastes til

Eksempel på kald af funktionen, vha. en event på en formular:

Private Sub Form_AfterUpdate()
    'Skriv til historik ved ændring
    If PKey > 0 Then
   
      SkrivTilHistorik DinTabel, ,PrimærNøgle, Me(PrimærNøgle), HandlingÆndring

    End If
End Sub


Du kan ligeledes fjerne alt vedr. HandlingÆndring, håber det hjælper dig lidt viddere.

Mvh Jesper

Hej Jesper,

det var nu ikke fordi jeg ikke kan strikke et PHP5 script sammen der ville gøre det samme som dit script gør, men jeg søger efter en indbygget løsning, en kommando der er indbygget i PostgreSQL der gør det samme, så jeg er fri for at køre dataene igennem en form for ekstern resource.

Men ellers tak for scriptet, hvad er det i, Visual Basic?

Har du prøvet:

INSERT INTO tabelnavn SELECT ...

?

Nej, men det lyder som en god løsning.... på problemet, jeg får dog ikke mulighed for at prøve for sent i aften, men læg lige et svar såfremt det fungerer.

.

Jeps virker, takker for svar :-)