能否写一种在数据库窗口查询标签里面看不见的查询？(view/Procedures)《查询》-----access2000下适用 如何显示，察看在数据库窗口查询标签里面看不见的查询？-----access2000下适用 如何用jet sql创建查询（存储过程/视图）？
Function createProVie() Dim conn As New ADODB.Connection Set conn = CurrentProject.Connection conn.Execute "create Procedure name3(kk int) as select * from msysobjects where type=kk " conn.Execute "create View name2 as select * from msysobjects" conn.Close Set conn = Nothing End Function
Function createPro() Dim conn As New ADODB.Connection Dim dbpath As String dbpath = CurrentProject.Path & "\" & CurrentProject.Name '这里写你的mdb路径 Dim strconn As String strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath Debug.Print strconn conn.Open strconn conn.Execute "create Procedure name1(kk int) as select * from msysobjects where xtype=kk" conn.Execute "create View name2 as select * from msysobjects" conn.Close Set conn = Nothing End Function Function dispAllProVie() Dim cat As New ADOX.Catalog Dim cmd As ADODB.Command cat.ActiveConnection = CurrentProject.Connection Dim pro As ADOX.Procedure For Each pro In cat.Procedures Debug.Print "pro: " & pro.Name Set cmd = pro.Command Debug.Print cmd.CommandText Next Dim vie As ADOX.View For Each vie In cat.Views Debug.Print "vie: " & vie.Name Set cmd = vie.Command Debug.Print cmd.CommandText Next End Function