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

[tower6]

在DAO中可以使用
DB.QueryDefs(“QueryName").SQL
可以显示一个查询对象的SQL代码

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

谢谢

[BrentIvan]

RecordSet.AddNew
RecordSet.Update
RecordSet.Delete
RecordSet.Filter
RecordSet.Find

[playyuer]

'引用 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

[playyuer]

adoCatalog.Tables.Delete "tablename"
adoCatalog.Views.Delete "ViewName"

[zhengsb]

关注

[tower6]

非常感谢