List MS Access Queries from VB.NET

[Kevin Forbes]

So, I've found how to list all the tables in an Access database (as
seen below) and running MS Access queries is easy (similar to
executing a stored procedure), but how do I list the names of all of
the queries in the access database?
'RETURNS: ARRAYLIST OF ALL TABLES IN A DATABASE
Dim objDataTable As DataTable =
cn.GetOleDbSche maTable(OleDbSc hemaGuid.Tables , _
New Object() {Nothing, Nothing, Nothing, "TABLE"})

Dim arrListTables As New ArrayList
Dim i As Integer
For i = 0 To objDataTable.Ro ws.Count - 1
arrListTables.A dd(objDataTable .Rows(i)(2))
Next
thanks,
Kev

[Herfried K. Wagner [MVP]]

* ke*********@yah oo.com (Kevin Forbes) scripsit:

So, I've found how to list all the tables in an Access database (as
seen below) and running MS Access queries is easy (similar to
executing a stored procedure), but how do I list the names of all of
the queries in the access database?

Notice that a separate group for ADO.NET related question is available:

<news://msnews.microsof t.com/microsoft.publi c.dotnet.framew ork.adonet>

Web interface:

<http://msdn.microsoft. com/newsgroups/default.asp?url =/newsgroups/loadframes.asp? icp=msdn&slcid= us&newsgroup=mi crosoft.public. dotnet.framewor k.adonet>

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
<http://www.mvps.org/dotnet>

<http://www.plig.net/nnq/nquote.html>

[Kevin Yu [MSFT]]

Hi Kev,

You can use the following to get the Queries.

Dim objDataTable As DataTable =
cn.GetOleDbSche maTable(OleDbSc hemaGuid.Tables , _
New Object() {Nothing, Nothing, Nothing, "VIEW"})

Kevin Yu
=======
"This posting is provided "AS IS" with no warranties, and confers no
rights."

--------------------
| From: ke*********@yah oo.com (Kevin Forbes)
| Newsgroups: microsoft.publi c.dotnet.langua ges.vb
| Subject: List MS Access Queries from VB.NET
| Date: 13 Nov 2003 12:59:42 -0800
| Organization: http://groups.google.com
| Lines: 20
| Message-ID: <25************ **************@ posting.google. com>
| NNTP-Posting-Host: 198.103.172.9
| Content-Type: text/plain; charset=ISO-8859-1
| Content-Transfer-Encoding: 8bit
| X-Trace: posting.google. com 1068757182 3810 127.0.0.1 (13 Nov 2003
20:59:42 GMT)
| X-Complaints-To: gr**********@go ogle.com
| NNTP-Posting-Date: Thu, 13 Nov 2003 20:59:42 +0000 (UTC)
| Path:
cpmsftngxa06.ph x.gbl!TK2MSFTNG P08.phx.gbl!new sfeed00.sul.t-online.de!t-onlin
e.de!news-spur1.maxwell.s yr.edu!news.max well.syr.edu!po stnews1.google. com!no
t-for-mail
| Xref: cpmsftngxa06.ph x.gbl microsoft.publi c.dotnet.langua ges.vb:156639
| X-Tomcat-NG: microsoft.publi c.dotnet.langua ges.vb
|
| So, I've found how to list all the tables in an Access database (as
| seen below) and running MS Access queries is easy (similar to
| executing a stored procedure), but how do I list the names of all of
| the queries in the access database?
|
|
| 'RETURNS: ARRAYLIST OF ALL TABLES IN A DATABASE
| Dim objDataTable As DataTable =
| cn.GetOleDbSche maTable(OleDbSc hemaGuid.Tables , _
| New Object() {Nothing, Nothing, Nothing, "TABLE"})
|
| Dim arrListTables As New ArrayList
| Dim i As Integer
| For i = 0 To objDataTable.Ro ws.Count - 1
| arrListTables.A dd(objDataTable .Rows(i)(2))
| Next
|
|
| thanks,
| Kev
|

[Kevin Forbes]

Thank you, that works perfectly.

I will post in the appropriate newsgroup next time.

-----Original Message-----
Hi Kev,

You can use the following to get the Queries.

Dim objDataTable As DataTable =
cn.GetOleDbSch emaTable(OleDbS chemaGuid.Table s, _
New Object() {Nothing, Nothing, Nothing, "VIEW"})
Kevin Yu
=======
"This posting is provided "AS IS" with no warranties, and confers norights."

--------------------
| From: ke*********@yah oo.com (Kevin Forbes)
| Newsgroups: microsoft.publi c.dotnet.langua ges.vb
| Subject: List MS Access Queries from VB.NET
| Date: 13 Nov 2003 12:59:42 -0800
| Organization: http://groups.google.com
| Lines: 20
| Message-ID: <25************ **************@ posting.google. com>| NNTP-Posting-Host: 198.103.172.9
| Content-Type: text/plain; charset=ISO-8859-1
| Content-Transfer-Encoding: 8bit
| X-Trace: posting.google. com 1068757182 3810 127.0.0.1 (13 Nov 200320:59:42 GMT)
| X-Complaints-To: gr**********@go ogle.com
| NNTP-Posting-Date: Thu, 13 Nov 2003 20:59:42 +0000 (UTC)
| Path:
cpmsftngxa06.p hx.gbl!TK2MSFTN GP08.phx.gbl! newsfeed00.sul. t-online.de!t-online.de!news-spur1.maxwell.s yr.edu!news.max well.syr.edu! postnews1.googl e.com!not-for-mail
| Xref: cpmsftngxa06.ph x.gbl microsoft.publi c.dotnet.langua ges.vb:156639| X-Tomcat-NG: microsoft.publi c.dotnet.langua ges.vb
|
| So, I've found how to list all the tables in an Access database (as| seen below) and running MS Access queries is easy (similar to| executing a stored procedure), but how do I list the names of all of| the queries in the access database?
|
|
| 'RETURNS: ARRAYLIST OF ALL TABLES IN A DATABASE
| Dim objDataTable As DataTable =
| cn.GetOleDbSche maTable(OleDbSc hemaGuid.Tables , _
| New Object() {Nothing, Nothing, Nothing, "TABLE"})|
| Dim arrListTables As New ArrayList
| Dim i As Integer
| For i = 0 To objDataTable.Ro ws.Count - 1
| arrListTables.A dd(objDataTable .Rows(i)(2))
| Next
|
|
| thanks,
| Kev
|

.