' dichiarazioni
Private dttDati As DataTable
Private dttDati2 As DataTable
Private objDatiAdapterGriglia As OleDb.OleDbDataAdapter 'Odbc.OdbcDataAdapter
Private sServerSql = ".\SQLEXPRESS"
Private sDataBase = "DataBaseFatture"
Private conDati As OleDbConnection = New OleDbConnection("Provider=SQLNCLI;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & sDataBase & ";Data Source=" & sServerSql & ";Connect Timeout=5")
Private objBindingSource As New BindingSource
'------alimenta DataGridView1
Private Sub CaricaGriglia(ByVal nNumero As Integer, ByVal dData As Date)
Private dttDati As DataTable
Private dttDati2 As DataTable
Private objDatiAdapterGriglia As OleDb.OleDbDataAdapter 'Odbc.OdbcDataAdapter
objDatiAdapterGriglia = New OleDb.OleDbDataAdapter("SELECT NumeroFattura, DataFattura, Tipo, NumeroCampione, AnnoSolareCampione, Descrizione, Importo, Qt, Sconto, ImportoNetto, CodiceIva, Iva, RigaDettaglio, ID FROM TabDettaglioFatture WHERE Tipo=1 AND NumeroFattura = " & nNumero, conDati)
Dim builder As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(objDatiAdapterGriglia)
builder.QuotePrefix = "["
builder.QuoteSuffix = "]"
dtsDati = New DataSet()
objDatiAdapterGriglia.Fill(dtsDati, "TabDettaglioFatture") 'Carico il dataset
dttDati2 = dtsDati.Tables("TabDettaglioFatture")
Me.DataGridView1.DataSource = dtsDati
Me.DataGridView1.DataMember = "TabDettaglioFatture"
End Sub
'----------Salvataggio dati
Private Sub PlsSalva_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlsSalva.Click
Dim ans As String
objBindingSource.EndEdit()
Dim cmdBuild As New OleDb.OleDbCommandBuilder(objDatiAdapterGriglia)
If (dtsDati.HasChanges) Then
ans = MsgBox("Changes have occurred!" & vbCrLf & "Do you wish to update?", MsgBoxStyle.YesNo + MsgBoxStyle.Information, "Updates")
If ans = vbYes Then
objDatiAdapterGriglia.InsertCommand = cmdBuild.GetInsertCommand
objDatiAdapterGriglia.DeleteCommand = cmdBuild.GetDeleteCommand
objDatiAdapterGriglia.UpdateCommand = cmdBuild.GetUpdateCommand
Try
objDatiAdapterGriglia.Update(dtsDati.Tables("TabDettaglioFatture"))
dtsDati.AcceptChanges()
Catch exManual As Exception
Finally
MsgBox("hi")
End Try
MsgBox("Table updated!", MsgBoxStyle.Critical, "TabDettaglioFatture")
End If
End If
End Sub