codice:
sql = "INSERT INTO editoria (code,codiceprodotto,titolo,sottotitolo,autori,categoria,area1,area2,area3,area4,collana,a_cura,anno,edizione,pagine,editore,foto,prezzo,sconto,totale,offerta,novita,descrizione,priorita,offerta_scadenza,novita_scadenza)"
sql = sql & " VALUES ("
sql = sql & "" & code & ","
sql = sql & "'" & codiceprodotto & "',"
sql = sql & "'" & titolo & "',"
sql = sql & "'" & sottotitolo & "',"
sql = sql & "'" & autori & "',"
sql = sql & "'" & categoria & "',"
sql = sql & "'" & area1 & "',"
sql = sql & "'" & area2 & "',"
sql = sql & "'" & area3 & "',"
sql = sql & "'" & area4 & "',"
sql = sql & "'" & collana & "',"
sql = sql & "'" & a_cura & "',"
sql = sql & "'" & anno & "',"
sql = sql & "'" & edizione & "',"
sql = sql & "'" & pagine & "',"
sql = sql & "'" & editore & "',"
sql = sql & "'" & foto & "',"
sql = sql & "'" & prezzo & "',"
sql = sql & "'" & sconto & "',"
sql = sql & "'" & totale & "',"
sql = sql & "'" & offerta & "',"
sql = sql & "'" & novita & "',"
sql = sql & "'" & descrizione & "',"
sql = sql & "" & priorita & ","
If offerta_scadenza <> "" Then
sql = sql & "" & offerta_scadenza & ", "
Else
sql = sql & "offerta_scadenza=NULL,"
End If
If novita_scadenza <> "" Then
sql = sql & "" & novita_scadenza & ""
Else
sql = sql & "novita_scadenza=NULL"
End If
SQL = SQL & ")"
Conn.Execute(sql)