Ciao a tutti
Sto cercando di applicare l'articolo di Mattei del 2020 Net la gestione del database Microsoft Access tramite VB.Net
Ho creato un form e inserito i richiami al database ma mi segnala che non trova l'ambiente OleDb, cioè mi da errore su OleDbconnection, OleDbCommand e OleDbDataAdapter tipo non definito
Allego il codice del form
Imports System.Data.OleDb
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
CaricaDati()
Catch ex As Exception
MessageBox.Show("Errore: " + ex.Message, "Gestione Errore", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub CaricaDati()
Try
'carico le combobox
Using sqlConnessione As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\LibroSoci\ArchivioSociP1.mdb")
sqlConnessione.Open()
Using CommandSql As New OleDbCommand("Select ID, Denominazione FROM Clienti", sqlConnessione)
Using dtaAdapter As New OleDbDataAdapter(CommandSql)
Using dttDati As New DataTable()
dtaAdapter.Fill(dttDati)
CmbClienti.ValueMember = "ID"
CmbClienti.DisplayMember = "Denominazione"
CmbClienti.DataSource = dttDati.DefaultView
End Using
Using dttDati As New DataTable
dtaAdapter.SelectCommand = New OleDbCommand("Select ID, NumeroFattura FROM Fatture", sqlConnessione)
dtaAdapter.Fill(dttDati)
CmbFattura.ValueMember = "ID"
CmbFattura.DisplayMember = "NumeroFattura"
CmbFattura.DataSource = dttDati.DefaultView
End Using
Using dttDati As New DataTable
dtaAdapter.SelectCommand = New OleDbCommand("SELECT fat.*, cli.*, ord.* FROM ((Fatture fat left join Clienti cli on fat.idclienti = cli.id) left join ordini ord on fat.id = ord.idfattura)", sqlConnessione)
dtaAdapter.Fill(dttDati)
DtgDati.DataSource = dttDati
End Using
End Using
End Using
End Using
Catch ex As Exception
MessageBox.Show("Errore: " + ex.Message, "Gestione Errore", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class
Dove sbaglio?
Franco