Per inserire un record in una tabella di Access usiamo una query di INSERT.
Supponiamo di avere un db Access di nome Prova con una tabella chiamata Tabella1 strutturata in questo modo:
Codice ---> Numerico
Nome ---> Testo
Facciamo un dataset per collegarci alla tabella.
Dichiariamo la ConnectionString
Public Class Form1
Public ConnString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= C:Prova\Prova.mdb;Persist Security Info=false;"
Public Cn As New OleDb.OleDbConnection(ConnString)
Public dr As OleDb.OleDbDataReader
Public cmd As OleDb.OleDbCommand
Public sql As String
Aggiungiamo due textbox sulla form e contiamo i record della tabella e incrementiamo il campo Codice di 1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
Dim nrighe As Integer
nrighe = DataSet1.Tabella1.Rows.Count()
TextBox1.Text = nrighe
TextBox2.Text = TextBox1.Text + 1
Adesso eseguiamo la query INSERT per inserire il nuovo record, inserendo nel campo Codice il valore riportato nella textbox2
Cn.Open()
sql = "INSERT INTO [Tabella1] (Codice) VALUES(" & Chr(34) & TextBox2.Text & Chr(34) & ")"
cmd = New OleDb.OleDbCommand(sql, Cn)
dr = cmd.ExecuteReader
Cn.Close()
Per vedere la modifica apportata possiamo fare:
Me.Tabella1TableAdapter.Fill(Me.DataSet1.Tabella1)
Per aggiornare il Dataset
Me.Tabella1BindingSource.MoveLast()
Per spostarci all' ultimo record appena inserito.