Potresti usare questo script:
"
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Private Sub OpenDB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenDB.Click
Dim OleDbConnection1 As New OleDb.OleDbConnection
OleDbConnection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Programmi\Nwind.mdb;Persist Security Info=False"
Try
OleDbConnection1.Open()
MessageBox.Show("Database Access aperto!")
Dim myCMD As New OleDb.OleDbCommand
myCMD.CommandText = " SELECT CustomerID, ContactTitle,CompanyName, ContactName FROM Customers "
myCMD.Connection = OleDbConnection1
Dim myAdapter As New OleDb.OleDbDataAdapter
myAdapter.SelectCommand = myCMD
Dim ds As New DataSet
ds.Clear()
myAdapter.Fill(ds, "Customers")
dgvData.DataSource = ds
dgvData.DataMember = "Customers"
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
OleDbConnection1.Close()
End Try
End Sub
EndClass
"
Se sei proprio a digiuno sappi che OpenDB è un command button , quindi nel form cambia il nome secondo quello sopra elencato, dopo che appunto hai inserito un command-button, poi inserisci un DataGridView, una volta iserito vai in properties e cambia il nome in dgvData, nel caso specifico non connettere direttamente il DataGridView al data-base, cosa che ti chiderà il sistema quando inserisci l'oggetto, lo farai quando aprirai il data-base dal form una volta compilato e effettuato il debug.
Altra cosa il percorso del data-base ovviamente cambialo, nel senso che io ti ho dato un esempio dove dico C:\Programmi\Nwind.mdb, ma tu devi adattarlo al tuo, poi al posto di Customers inserisci il nome del tuo foglio dati, mentre al posto di ContactID e gli altri il nome die canmpi che vuoi visualizzare.
A questo punto compila il codice ed effettua il debug
Ciao Emanuele
|