Sub WriteInDatabase
Dim ListOfMaps As List
Dim codCliente, codDitta, destinaz As String
Dim d As Long
d = DateTime.DateParse(txtData.Text)
DateTime.DateFormat = "yyyy-MM-dd"
ListOfMaps.Initialize
codCliente = showOneCliente.cliente_codice
codDitta = showDitte.ditta_selezionata
destinaz = spinDestMerci.GetItem(0)
Dim m As Map
m.Initialize
m.Put("id", Null)
m.Put("data", DateTime.Date(d))
m.Put("codCliente", codCliente)
m.Put("codDitta", codDitta)
m.Put("destinaz", destinaz)
ListOfMaps.Add(m)
DBUtils.InsertMaps(Main.SQL_Ordini, "ord_tes", ListOfMaps)
End Sub