here's a quick example , using oledb to open an access app
in Form1 :
in Form2 :VB Code:
Imports System.Data Public ds As New DataSet() Private frm2 As New Form2() Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click AddOwnedForm(frm2) frm2.Show() End Sub
VB Code:
Imports System.Data.OleDb Private frmMain As Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim constring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyDb.mdb" frmMain = Owner '/// owner form. OpenAccess(constring) End Sub Public Function OpenAccess(ByVal strConnection As String, Optional ByVal strCommand As String = "SELECT * FROM Table1") Dim objCon As New OleDbConnection(strConnection) Try objCon.Open() Dim objCom As New OleDbCommand(strCommand, objCon) Dim objAdapt As New OleDbDataAdapter(objCom) objAdapt.Fill(frmMain.ds, "Table1") DataGrid1.DataSource = frmMain.ds.Tables("Table1") Catch ex As Exception MessageBox.Show(ex.Message) Finally objCon.Close() End Try End Function





Reply With Quote