ECCO TT IL CODICE
Dim query As String = "INSERT INTO Lavori_Master (Id_Condominio, Lavoro, Ditta, ImportoD, IvaD, ImportoDIvato, ImportoT, IvaT, ImportoTIvato, ImportoA, CpaA, ImportoACpa, TotaleD, TotaleT, TotaleA, [data]) VALUES (@id_Condominio,@Lavoro, @Ditta, @ImportoD, @IvaD, @ImportoDIvato, @ImportoT, @IvaT,@ImportoTIvato,@ImportoA,@cpaA,@ImportoAcpa, @TotaleA, @TotaleT, @TotaleA, @data )"
'txtImmagine.Text = query
Dim comando As New OleDbCommand(query, connessione)
comando.Parameters.AddWithValue("@Id_Condominio", CodCondominio)
comando.Parameters.AddWithValue("@Lavoro", cboLavori.Text)
comando.Parameters.AddWithValue("@Ditta", cboDitta.Text)
comando.Parameters.AddWithValue("@ImportoD", txtImportoD.Text)
comando.Parameters.AddWithValue("@IvaD", cboIvaD.Text)
comando.Parameters.AddWithValue("@ImportoDIvato", txtIvaD.Text)
comando.Parameters.AddWithValue("@ImportoT", txtImportoT.Text)
comando.Parameters.AddWithValue("@IvaT", cboIvaT.Text)
comando.Parameters.AddWithValue("@ImportoTIvato", txtIvaT.Text)
comando.Parameters.AddWithValue("@ImportoA", txtImportoA.Text)
comando.Parameters.AddWithValue("@CpaA", cboCpa.Text)
comando.Parameters.AddWithValue("@ImportoACpa", txtCpa.Text)
comando.Parameters.AddWithValue("@TotaleD", lblImportoDIvato.Text)
comando.Parameters.AddWithValue("@TotaleT", lblImportoTIvato.Text)
comando.Parameters.AddWithValue("@TotaleA", lblImportoAIvato.Text)
comando.Parameters.AddWithValue("@DATA", OleDbType.Date).Value = CDate(Date.Now.ToShortDateString) 'HO PROVATO 1000 MODI
comando.ExecuteNonQuery()
MsgBox("Inserimento TESTATA, avvenuto con successo", vbOK, vbInformation)
connessione.Close()