[Risolto] Insert campo data

[CarloIT]

Allego il semplice esempio.
In sintesi: devo fare una INSERT di un campo data da una Macro.
Tutto OK per i valori di tipo Testo (Nome, Cognome).
La data non riseco a trovare la sintassi.
Nell'esempio i campi Nome, Cognome e Data vengono impostati da un Formulario.
La Macro scatta quando il campo data viene modificato.
Come si vede va in error basic l'istruzione sql.
Come posso risolvere?
Grazie

[Gaetanopr]

La data va inserita con il seguente formato "2016-09-30"

Codice: Seleziona tutto

Sub IserisciData(oEvent As Object)

DIM oForm AS OBJECT
DIM oField AS OBJECT
DIM oField1 AS OBJECT
DIM oField2 AS OBJECT
DIM data as string
dim datastr as string
oDoc = thisComponent
oDrawpage = oDoc.Drawpage
oForm = oDrawpage.forms.getByName("Tabella")
oForm = oEvent.Source.Model.Parent
oStatement = oForm.ActiveConnection.createStatement()

oField = oForm.getByName("Cognome")
oField1 = oForm.getByName("Nome")
data = oForm.getByName("Data").text
datastr = Year(data) & "-" & Month(data) & "-" & Day(data)
Nome = oField.getCurrentValue()
Cognome = oField1.getCurrentValue()
sSQL = "Insert INTO ""Tabella nomi"" (""Nome"", ""Cognome"", ""Data acquisto"") VALUES ('" & Nome & " ' , '" & Cognome & "' , '" & datastr & "') "
oStatement.executeUpdate(sSQL)
msgbox ("Insert eseguita")
End Sub

[CarloIT]

Perfetto risolto....
Grazie