Gent.mo Patel,
ringrazio della gentilezza e disponibilità.
Con il seguente codice inserisco regolarmente i dati dalle TextBox al DGV e successivamente li salvo su Access:
BtnInserisci....
Me.RubricaTableAdapter.Insert(Me.TxtNome.Text, TxtCognome.Text, TxtCitta.Text, TxtVia.Text)
ClearTextBoxes(Me) ' Cancella le TextBox
TxtNome.Focus()
Me.RubricaTableAdapter.Fill(RubricaDataSet.Rubrica)
Call Conteggio() ' Conta i dati inseriti
MsgBox("Dati inseriti correttamente")
Btn Salva.....
Try
Dim result As DialogResult
result = MessageBox.Show("Salvare i Record?", " Salvataggio Record",
MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If (result = DialogResult.Yes) Then
Me.RubricaBindingSource.EndEdit()
Me.RubricaTableAdapter.Update(databasedataset.rubrica)
Else
Return
End If
Catch ex As Exception
MsgBox("Salvataggio effettuato" & vbCrLf & vbCrLf & " con successo", MsgBoxStyle.Information, " Autentificazione")
End Try
nella Public Class Form1 ho inserito il seguente codice:
Dim index As Integer
Private databasedataset As Object
Dim connStr As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Users\User_1\Desktop\Rubrica.mdb"
Dim Conn As OleDbConnection
Dim ds As DataSet = New DataSet()
e al BtnLeggi.... il seguente codice:
Dim SQLString As String = "SELECT * FROM rubrica"
Conn = New OleDbConnection(connStr)
Dim OleDbDataAdapter1 As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter(SQLString, Conn)
Conn.Open() (ERRORE CHE ESCE UNA X ROSSA che indica OLEDB 12 non è registrato sul computer)
OleDbDataAdapter1.Fill(ds, "rubrica")
DataGridView1.DataSource = ds.Tables("rubrica").
Per AntonioG mi scuso, francamente non ricordo di aver a suo tempo trattato l'argomento e non portato a termine (impegni di nonni a tempo pieno).
Ringrazio anticipatamente e fiducioso di completare, auguro una buona giornata.
Domenico.