ADOX 怎样读出数据库视图的sql语句 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → ADOX 怎样读出数据库视图的sql语句

共有2269人关注过本帖树形打印复制链接主题：ADOX 怎样读出数据库视图的sql语句

淡月斜阳

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：223 积分：1960 威望：0 精华：0 注册：2015/4/8 8:18:00

ADOX 怎样读出数据库视图的sql语句 发帖心情

Post By：2019/7/15 10:17:00 [只看该作者]

Dim constr As String="Provider=Microsoft.ACE.OLEDB.12.0;User ID=admin;Data Source=D:\data.accdb;Persist Security Info=False"

Dim rdb As new adodb.Connection

Dim cat As new Adox.CataLog

rdb.open(constr )

cat.ActiveConnection =rdb

For i As Integer = 0 To Cat.views.Count -1

Output.Show(Cat.VIews(i).Name)

'OUTPUT.Show(Cat.views(i).Command.Tostring )

rdb.close

如图，把这段SQL语句给读出来
图片点击可在新窗口打开查看

此主题相关图片如下：qq图片20190715101643.png

淡月斜阳

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：223 积分：1960 威望：0 精华：0 注册：2015/4/8 8:18:00

Post By：2019/7/15 10:32:00 [只看该作者]

搞定了

Dim constr As String="Provider=Microsoft.ACE.OLEDB.12.0;User ID=admin;Data Source=D:\data.accdb;Persist Security Info=False"

Dim rdb As new adodb.Connection

Dim cat As new Adox.CataLog

rdb.open(constr )

cat.ActiveConnection =rdb

For i As Integer = 0 To Cat.views.Count -1

Output.Show(Cat.VIews(i).Name)

Dim cmd As New ADODB.Command

cmd=Cat.views(i).Command

OUTPUT.Show(cmd.CommandText)

rdb.close

主题：ADOX 怎样读出数据库视图的sql语句