codice:
Dim a(10) As Date
For valore = 0 To 9
if cdate(text1(valore).text)="" then
a(valore)=null
else
a(valore) = CDate(Text1(valore).Text)
end if
Next valore
query1 = "UPDATE discorsi_tempo SET 2000= '" & a(0) & "',2001= '" & a(1) & "',"
query2 = "2002= '" & a(2) & "',2003= '" & a(3) & "',2004= '" & a(4) & "',2005= '" & a(5) & "',"
query3 = "2006= '" & a(6) & "',2007= '" & a(7) & "',2008= '" & a(8) & "',2009= '" & a(9) & "' where id_discorso=" & CInt(cmb_num_disc)
query = query1 & query2 & query3
connessione.Execute query
Ho fatto un if dopo la select e ovviamente funziona e legge anche i campi vuoti ma, no riesco a fare l'inserimento. Per farlo ho usato il codice sopra!