Hoe OpenFileDialog te gebruiken

Ik heb twee formulieren genaamd frmChooseDBaseen frmMain. frmChooseDBaseis voor het kiezen van een bestand (een databasebestand). Als hij klaar is met het kiezen van de database, zal frmMainde database laden die is gekozen uit frmChooseDBase.
Hoe kan ik dat doen? alle hulp.
Dit zijn mijn voorbeeldcodes:

Public Class frmChooseDBase
    Public sr As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            sr = OpenFileDialog1.FileName
            Me.Hide()
            FrmMain.Show()
        End If
    End Sub
End Class
Private Sub FrmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Desktop\'" & frmChooseDBase.sr & "';Extended Properties=Excel 8.0"
        con.Open()
 FillDGView("SELECT [CCCD Loading Database] AS [Transaction Date], [F2] AS [Unit Number], [F3] AS [Category], [F4] AS [Temp Required (C)], [F5] AS [Type Length], [F6] AS [T-State], [F7] AS [Position], [F8] AS [I/B Actual Visit], [F9] AS [Fright Kind] FROM [Loading$]")
    End Sub

Antwoord 1, autoriteit 100%

Als je alleen een bestand wilt laden, hoef je geen nieuw formulier te maken. Heb gewoon een knop of menu-item dat zegt: load DB. Als u daarop klikt, verschijnt er een OpenFileDialog. Sleep een openFileDialog-besturingselement naar het formulier en geef het een betekenisvolle naam (openFileDialog1…)

openFileDialog1.Title = "Please select a DB file"
openFileDialog1.InitialDirectory = "C:\"
openFileDialog1.Filter = "DB Files|*.extensionHERE"
If openFileDialog1.ShowDialog() = DialogResult.OK then
    'Do things here, the path is stored in openFileDialog1.Filename
    'If no files were selected, openFileDialog1.Filename is ""  
End If

Er zijn tal van voorbeelden voor het gebruik van de OpenFileialog-bediening als u vast komt te zitten, of snel hulp nodig hebt.

Antwoord 2, Autoriteit 18%

U hoeft niet eens een controle te gebruiken:

Dim ofd As OpenFileDialog = New OpenFileDialog
ofd.DefaultExt = "txt"
ofd.FileName = "defaultname"
ofd.InitialDirectory = "c:\"
ofd.Filter ="All files|*.*|Text files|*.txt"
ofd.Title = "Select file"
If ofd.ShowDialog() <> DialogResult.Cancel Then
    MsgBox(ofd.FileName)
End If