[access查询]管理access的查询语句-Victor Duane
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-查询/SQL语句


[access查询]管理access的查询语句

发表时间:2007/12/1 23:23:08 评论(1) 浏览(9626)  评论 | 加入收藏 | 复制
   
摘 要:导入ACCESS的查询语句到一个表中,
这对管理查询来说是相当方便的,你要做的就是复制这些代码,然后运行testCreatequerysql()
这个过程就行了,不过得保证你的ACCESS中有查询,嘿嘿。。。。
正 文:

导入ACCESS的查询语句到一个表中

直接运行 testCreatequerysql()这个过程就可以把你数据库中的查询导入到一个tblquerysql

这个表是过程建立的,如果过程已经建立了不会覆盖原来的表

Sub testCreatequerysql()
CDtable
CreateQuerySQL "tblquerysql"
End Sub

把查询的语句写入到一个表中的过程

Sub CreateQuerySQL(strTable As String)
On Error GoTo Err_Handler
Dim Rs As DAO.Recordset
Dim qy As DAO.QueryDef
Dim i As Integer
Set Rs = CurrentDb.OpenRecordset(strTable)

For Each qy In CurrentDb.QueryDefs
If qy.Name Like "[!~]*" Then
Debug.Print qy.Name
Rs.AddNew
Rs(1) = qy.Name
Rs(2) = qy.SQL
Rs.Update
qy.Close
End If
qy.Close
Next
Set qy = Nothing
Set Rs = Nothing
Err_Handler:
If Err.Number <> 0 Then MsgBox Err.Number & vbCrLf & Err.Description
End Sub

新建一个表tblquerysql可以存放查询语句

Public Sub CDtable()
On Error GoTo error1
Dim db1 As Database
Dim t1 As TableDef
Dim f1 As Field
    Set db1 = Workspaces(0).Databases(0)
    Set t1 = db1.CreateTableDef("tblQuerySql")
   
    With t1
        Set f1 = .CreateField("ID", dbLong)
        f1.Attributes = dbAutoIncrField + dbFixedField
        Debug.Print f1.Attributes

        t1.Fields.Append f1
       
        Set f1 = .CreateField("QueryName", dbText, 50)
'            f1.Required = True
'            f1.AllowZeroLength = False
'            f1.ValidationRule = "is not null"
'            f1.ValidationText = "不允许为空"

        t1.Fields.Append f1
       
        Set f1 = .CreateField("SqlValue", dbMemo)
        t1.Fields.Append f1

        Set f1 = .CreateField("operTime", dbDate)
        f1.DefaultValue = "=Now()"
        t1.Fields.Append f1
    End With
   
    db1.TableDefs.Append t1
    db1.Close
    Exit Sub
error1:
    If Err.Number = 3010 Then
        Exit Sub
    Else
        MsgBox Err.Number & Err.Description
        Exit Sub
    End If
End Sub


Access软件网交流QQ群(群号:198465573)
 
 相关文章
Access查询 交流QQ群群号:54525238 欢迎学习acc...  【宏鹏  2012/10/26】
常见问答
技术分类
相关资源
文章搜索
关于作者

Victor Duane

文章分类

文章存档

友情链接