如何使用ADO显示数据库中已存在“查询”的SQL代码

tower6 2001-05-21 04:14:00
在DAO中可以使用
DB.QueryDefs(“QueryName").SQL
可以显示一个查询对象的SQL代码

到了ADO中可有实现相似功能的办法
以及添加、修改、删除查询的方法

谢谢
...全文
79 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
tower6 2001-05-21
  • 打赏
  • 举报
回复
非常感谢
zhengsb 2001-05-21
  • 打赏
  • 举报
回复
关注
playyuer 2001-05-21
  • 打赏
  • 举报
回复
adoCatalog.Tables.Delete "tablename"
adoCatalog.Views.Delete "ViewName"
playyuer 2001-05-21
  • 打赏
  • 举报
回复
'引用 ADOX:
'Microsoft ADO Ext. 2.6 for DDL and Security
Dim adoConnection As New Connection
Dim adoCatalog As New ADOX.Catalog

adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\northwind.mdb"
'adoConnection.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Data Source=billgate"
'adoCatalog.Create "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=ADOXCreate;Data Source=billgate"
Set adoCatalog.ActiveConnection = adoConnection

For i = 0 To adoCatalog.Tables.Count - 1
Debug.Print adoCatalog.Tables.Item(i).Type & ": " & adoCatalog.Tables.Item(i).Name
Next
For i = 0 To adoCatalog.Views.Count - 1
Debug.Print adoCatalog.Views.Item(i).Name
Next
BrentIvan 2001-05-21
  • 打赏
  • 举报
回复
RecordSet.AddNew
RecordSet.Update
RecordSet.Delete
RecordSet.Filter
RecordSet.Find

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧