Ogni tanto capita di doversi collegare ad un file Microsoft Access. E capita anche di non ricordarsi più come si fa :)
Ricorda inoltre che è necessario sempre importare il namespace System.Data.OleDB.
Recuperare dei dati dal file Access
1: Try
2: cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\emp.mdb;") 3: ' questo è il provider che si usa quando ci si deve collegare ad un file Microsoft Access
4: cn.Open()
5:
6: cmd = New OleDbCommand("select * from table1", cn) 7: dr = cmd.ExecuteReader
8: While dr.Read()
9: ' carica i dati nei textbox attraverso l'index delle colonne
10: ' il numero può essere sostituito dal nome delle colonne
11: TextBox1.Text = dr(0)
12: TextBox2.Text = dr(1)
13: TextBox3.Text = dr(2)
14: End While
15: Catch
16: End Try
17:
18: ' chiude le connessioni
19: dr.Close()
20: cn.Close()
Inserire un record nel file Access
1: Dim cn As OleDbConnection
2: Dim cmd As OleDbCommand
3: Dim dr As OleDbDataReader
4: Dim icount As Integer
5: Dim str As String
6:
7: Try
8: cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\emp.mdb;") 9: cn.Open()
10:
11: ' crea la stringa di inserimento. Questa stringa può essere modificata anche per cancellare dei record
12: str = "insert into table1 values(" & CInt(TextBox1.Text) & ",'" & TextBox2.Text & "','" & TextBox3.Text & "')" 13: cmd = New OleDbCommand(str, cn)
14: icount = cmd.ExecuteNonQuery
15:
16: ' visualizza il numero di record inseriti
17: MessageBox.Show(icount)
18: Catch
19: End Try
20:
21: cn.Close()
Ecco perché ho scritto questo post... a futura memoria! Ciao!
P. S.: ogni tanto scrivetemi qualche commento :(