problem vieing .mdb files with openfiledialog

[Mike]

I need help understanding why the following code is not working correctly.
When run, I can open .mdb files by changing the filter option to "All Files
(*.*)" but while "Access Database (mdb.*)" is selected no db files are
listed in the OpenFileDialog box....
-------------------------------------
Private Sub btnDatabase_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnDatabase.Click
Dim objOpenFileDialog As New OpenFileDialog

With objOpenFileDialog
.Filter = "Access Database (*.mdb)|*.mdb | All files (*.*)|*.*"
.FilterIndex = 1
.InitialDirectory = "C:\"
.Title = "Open Access Database"
End With

If objOpenFileDialog.ShowDialog = DialogResult.OK Then
txtDatabase.Text = objOpenFileDialog.FileName
End If
End Sub
-----------------------------
Thanks,
Mike

[Angel J. Hernández M.]

Hi there... You shouldn't leave spaces between pipe or separator (Chr 124)
and pipe (Check the second separator). You wrote something like
.Filter = "Access Database (*.mdb)|*.mdb | All files (*.*)|*.*"

instead of

.Filter = "Access Database (*.mdb)|*.mdb| All files (*.*)|*.*"

Regards,
--
Angel J. Hernández M.
MCP - MCAD - MCSD - MCDBA
http://groups.msn.com/desarrolladoresmiranda
http://www.consein.com
"Mike" <th********@yahoo.com> escribió en el mensaje
news:iw*******************@tornado.texas.rr.com...

I need help understanding why the following code is not working correctly.
When run, I can open .mdb files by changing the filter option to "All Files
(*.*)" but while "Access Database (mdb.*)" is selected no db files are
listed in the OpenFileDialog box....
-------------------------------------
Private Sub btnDatabase_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnDatabase.Click
Dim objOpenFileDialog As New OpenFileDialog

With objOpenFileDialog
.Filter = "Access Database (*.mdb)|*.mdb | All files (*.*)|*.*"
.FilterIndex = 1
.InitialDirectory = "C:\"
.Title = "Open Access Database"
End With

If objOpenFileDialog.ShowDialog = DialogResult.OK Then
txtDatabase.Text = objOpenFileDialog.FileName
End If
End Sub
-----------------------------
Thanks,
Mike

[Thorsten Doerfler]

Mike schrieb:

I need help understanding why the following code is not working correctly.
When run, I can open .mdb files by changing the filter option to "All Files
(*.*)" but while "Access Database (mdb.*)" is selected no db files are
listed in the OpenFileDialog box....
-------------------------------------
Private Sub btnDatabase_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnDatabase.Click
Dim objOpenFileDialog As New OpenFileDialog

With objOpenFileDialog
.Filter = "Access Database (*.mdb)|*.mdb | All files (*.*)|*.*"
.FilterIndex = 1
.InitialDirectory = "C:\"
.Title = "Open Access Database"
End With

If objOpenFileDialog.ShowDialog = DialogResult.OK Then
txtDatabase.Text = objOpenFileDialog.FileName
End If
End Sub

Not tried, but remove the spaces between the filter entries:
..Filter = "Access Database (*.mdb)|*.mdb|All files (*.*)|*.*"

Thorsten Doerfler
--
http://www.vb-hellfire.de/

[Mike]

Thanks. that was it.
-m
"Thorsten Doerfler" <t.***************@bdsw.de> wrote in message
news:d7**********@news.bdsw.de...

Mike schrieb:

I need help understanding why the following code is not working
correctly.
When run, I can open .mdb files by changing the filter option to "All
Files
(*.*)" but while "Access Database (mdb.*)" is selected no db files are
listed in the OpenFileDialog box....
-------------------------------------
Private Sub btnDatabase_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnDatabase.Click
Dim objOpenFileDialog As New OpenFileDialog

With objOpenFileDialog
.Filter = "Access Database (*.mdb)|*.mdb | All files
(*.*)|*.*"
.FilterIndex = 1
.InitialDirectory = "C:\"
.Title = "Open Access Database"
End With

If objOpenFileDialog.ShowDialog = DialogResult.OK Then
txtDatabase.Text = objOpenFileDialog.FileName
End If
End Sub

Not tried, but remove the spaces between the filter entries:
.Filter = "Access Database (*.mdb)|*.mdb|All files (*.*)|*.*"

Thorsten Doerfler
--
http://www.vb-hellfire.de/

[Mike]

Thanks,
that was it.

-m

"Angel J. Hernández M." <an**********@hotmail.com> wrote in message
news:Of**************@TK2MSFTNGP09.phx.gbl...

Hi there... You shouldn't leave spaces between pipe or separator (Chr 124)
and pipe (Check the second separator). You wrote something like
.Filter = "Access Database (*.mdb)|*.mdb | All files (*.*)|*.*"

instead of

.Filter = "Access Database (*.mdb)|*.mdb| All files (*.*)|*.*"

Regards,
--
Angel J. Hernández M.
MCP - MCAD - MCSD - MCDBA
http://groups.msn.com/desarrolladoresmiranda
http://www.consein.com
"Mike" <th********@yahoo.com> escribió en el mensaje
news:iw*******************@tornado.texas.rr.com...

I need help understanding why the following code is not working correctly.
When run, I can open .mdb files by changing the filter option to "All
Files (*.*)" but while "Access Database (mdb.*)" is selected no db files
are listed in the OpenFileDialog box....
-------------------------------------
Private Sub btnDatabase_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnDatabase.Click
Dim objOpenFileDialog As New OpenFileDialog

With objOpenFileDialog
.Filter = "Access Database (*.mdb)|*.mdb | All files
(*.*)|*.*"
.FilterIndex = 1
.InitialDirectory = "C:\"
.Title = "Open Access Database"
End With

If objOpenFileDialog.ShowDialog = DialogResult.OK Then
txtDatabase.Text = objOpenFileDialog.FileName
End If
End Sub
-----------------------------
Thanks,
Mike