Ho provato ad inserire in un modulo il seguente codice e lo chiamo dall'evento form_closed ma la finestra che si apre non presenta gli aggiornamenti effettuati
Sub caricagrid()
Dim objgradapter As New OleDbDataAdapter
Dim objdataset As New DataSet
Dim objcon As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\dbf_access\pcl.mdb;User Id=admin;Password=;")
objgradapter.SelectCommand = New OleDbCommand("SELECT * FROM tbl_tes_pcl", objcon)
objcon.Open()
objgradapter.Fill(objdataset, "tbl_tes_pcl")
objcon.Close()
Form4.DataGridView1.AutoGenerateColumns = True
Form4.DataGridView1.AllowUserToAddRows = False
Form4.DataGridView1.DataSource = objdataset
Form4.DataGridView1.DataMember = "tbl_tes_pcl"
Form4.DataGridView1.Columns(0).ReadOnly = True
Form4.DataGridView1.EnableHeadersVisualStyles = False
Form4.DataGridView1.Columns(2).Width = 350
Form4.DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
objgradapter = Nothing
objcon = Nothing
Form4.DataGridView1.Refresh()
End Sub
10 8

Rispondi quotando