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_Cli ck(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles btnDatabase.Cli ck
Dim objOpenFileDial og As New OpenFileDialog

With objOpenFileDial og
.Filter = "Access Database (*.mdb)|*.mdb | All files (*.*)|*.*"
.FilterIndex = 1
.InitialDirecto ry = "C:\"
.Title = "Open Access Database"
End With

If objOpenFileDial og.ShowDialog = DialogResult.OK Then
txtDatabase.Tex t = objOpenFileDial og.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********@yah oo.com> escribió en el mensaje
news:iw******** ***********@tor nado.texas.rr.c om...

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_Cli ck(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles btnDatabase.Cli ck
Dim objOpenFileDial og As New OpenFileDialog

With objOpenFileDial og
.Filter = "Access Database (*.mdb)|*.mdb | All files (*.*)|*.*"
.FilterIndex = 1
.InitialDirecto ry = "C:\"
.Title = "Open Access Database"
End With

If objOpenFileDial og.ShowDialog = DialogResult.OK Then
txtDatabase.Tex t = objOpenFileDial og.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_Cli ck(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles btnDatabase.Cli ck
Dim objOpenFileDial og As New OpenFileDialog

With objOpenFileDial og
.Filter = "Access Database (*.mdb)|*.mdb | All files (*.*)|*.*"
.FilterIndex = 1
.InitialDirecto ry = "C:\"
.Title = "Open Access Database"
End With

If objOpenFileDial og.ShowDialog = DialogResult.OK Then
txtDatabase.Tex t = objOpenFileDial og.FileName
End If
End Sub

Not tried, but remove the spaces between the filter entries:
..Filter = "Access Database (*.mdb)|*.mdb|A ll 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_Cli ck(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles btnDatabase.Cli ck
Dim objOpenFileDial og As New OpenFileDialog

With objOpenFileDial og
.Filter = "Access Database (*.mdb)|*.mdb | All files
(*.*)|*.*"
.FilterIndex = 1
.InitialDirecto ry = "C:\"
.Title = "Open Access Database"
End With

If objOpenFileDial og.ShowDialog = DialogResult.OK Then
txtDatabase.Tex t = objOpenFileDial og.FileName
End If
End Sub

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

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

[Mike]

Thanks,
that was it.

-m

"Angel J. Hernández M." <an**********@h otmail.com> wrote in message
news:Of******** ******@TK2MSFTN GP09.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********@yah oo.com> escribió en el mensaje
news:iw******** ***********@tor nado.texas.rr.c om...

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_Cli ck(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles btnDatabase.Cli ck
Dim objOpenFileDial og As New OpenFileDialog

With objOpenFileDial og
.Filter = "Access Database (*.mdb)|*.mdb | All files
(*.*)|*.*"
.FilterIndex = 1
.InitialDirecto ry = "C:\"
.Title = "Open Access Database"
End With

If objOpenFileDial og.ShowDialog = DialogResult.OK Then
txtDatabase.Tex t = objOpenFileDial og.FileName
End If
End Sub
-----------------------------
Thanks,
Mike