Copy some values from one table to antoher table with conditions and value additions

[meriadeg.morel]

bonjour, LO 7.1.
je tente de creer une base pour gérer mon inventaire. il me faut copier et supprimer des enregistrements d’une table vers une autre différente, en ajoutant la date actuelle. pour le moment j’ai pu glâner des informations pour arriver à cela qui ne fonctionne pas

‘╔═════════════════════════════════════════════════════════╗
Sub Move_OutofInventory()
‘╚═════════════════════════════════════════════════════════╝
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
’ ne fonctionne pas…
Dim oStatement As Object
if IsNull(ThisDatabaseDocument.CurrentController.ActiveConnection) then
ThisDatabaseDocument.CurrentController.connect
endif
oStatement = ThisDatabaseDocument.CurrentController.ActiveConnection.createStatement()
StrTime = Format(now(),“D/MM/YY”)
strSQL =“INSERT INTO ““TAB_SORTIE_INV”” (”“TYPE”", ““SERIE_DU_TYPE””,"“MARQUE”","“DATE_ACHAT”","“BUDGET_ACHAT”","“SERIAL”","“DATE_SORTIE_INV”") SELECT ““TYPE””, ““SERIEduTYPE””,"“MARQUE”","“DATE_ACHAT”","“BUDGET_ACHAT”","“SERIALNUMBER”",’"+ StrTime +"’ FROM ““TAB_INVENTAIRE”” WHERE ““ASortirDeLinventaire”” = 1"
msgbox(StrSQL)
oStatement.execute(StrSQL)
End sub

d’autres solutions qui fonctionnent ?

[meriadeg.morel]

Erreur d’exécution BASIC.
Une exception s’est produite :
Type: com.sun.star.sdbc.SQLException
Message: Wrong data type: java.lang.IllegalArgumentException.

[meriadeg.morel]

Dim oStatement As Object
Dim strSQL As String
if IsNull(ThisDatabaseDocument.CurrentController.ActiveConnection) then
ThisDatabaseDocument.CurrentController.connect
endif
oStatement = ThisDatabaseDocument.CurrentController.ActiveConnection.createStatement()
StrDate = Format(now(),“YYYY-MM-DD”)
strSQL =“INSERT INTO TAB_SORTIE_INV (TYPE, SERIE_DU_TYPE, MARQUE,NOM, DATE_ACHAT, BUDGET_ACHAT, SERIAL, DATE_SORTIE_INV) SELECT TYPE, SERIEDUTYPE, MARQUE,NOM, DATE_ACHAT, BUDGET_ACHAT, SERIALNUMBER, '”+StrDate+"’ FROM TAB_INVENTAIRE WHERE ASORTIRDELINVENTAIRE = TRUE;"
oStatement.execute(StrSQL)