[求助]请问如何判断某查询是否存在?

bjyizhang

因为我要在程序中删除查询后新建此查询,可老是提示此查询不存在,请问如何判断某查询是否存在?谢谢

Dim Conn As New ADODB.Connection
Set Conn = CurrentProject.Connection
Conn.Execute "drop table currentQuery"
Set Conn = Nothing

'**************
Dim dbs As Database, qdf As QueryDef, strSQL As String, dmonth As String
dmonth = Year(Now()) & month(Now())
Set dbs = CurrentDb

'************** judge month and create new Query
Select Case dmonth
  Case 20064
  MsgBox "20064"
  strSQL = "SELECT JobName.[Job No], StaffName.[Staff Name], Jobschedule.[2006-4], Jobschedule.[2006-5], Jobschedule.[2006-6], Jobschedule.[2006-7], Jobschedule.[2006-8], Jobschedule.[2006-9], Jobschedule.[2006-10], Jobschedule.[2006-11], Jobschedule.[2006-12], Jobschedule.[2007-1], Jobschedule.[2007-2], Jobschedule.[2007-3], Jobschedule.[2007-4] FROM StaffName INNER JOIN (JobName INNER JOIN Jobschedule ON JobName.[Job No] = Jobschedule.[Job No]) ON StaffName.[Staff Name] = Jobschedule.[Stuff Name];"
  Set qdf = dbs.CreateQueryDef("currentQuery", strSQL)

[此贴子已经被作者于2006-4-13 15:29:09编辑过]

fan0217

用你刚才提到的系统报错,就可以实现的.用错误处理拦截错误代码.

不过也可以用查询Access系统对象表来实现.

[此贴子已经被作者于2006-4-13 15:32:08编辑过]

一点通

删除查询又创建这样的查询,有这个必要吗？

bjyizhang

我是要求根据系统时间建立不同的查询,因为名字要一样,所以只好这样做了.

一点通

晕,未见过这样建查询的

fan0217

我觉得没有这各必要.

动态建立查询的意义不大.

bjyizhang

因为字段是不能为变量的么,而且老板要的又着急,只好对付一下,见笑了.

bjyizhang

请问:如何用变量取代字段名?

1 Dim f1 As String
2 f1 = Year(Now()) & "-" & month(Now())
3 strSQL = "SELECT JobName.[Job No], StaffName.[Staff Name], Jobschedule.[f1]
4 strSQL = "SELECT JobName.[Job No], StaffName.[Staff Name], Jobschedule.[2006-4]

如何使第3句和第4句有相同效果?我试验,他会提示请输入f1

thanks

hi-wzj

可用命令更新查询语句的.

andymark

如果查询存在则执行删除

   Dim Rs As New ADODB.Recordset
   Dim TemName As String
   
    Rs.Open "SELECT Name FROM MSysObjects WHERE Type=5 and MSysObjects.Flags=0", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
   Do While Not Rs.EOF
       If Rs.Fields("name") = "currentQuery" Then
      
          DoCmd.DeleteObject acQuery, "currentQuery"
        End If
      Rs.MoveNext
   Loop


   Set Rs = Nothing