Access 2010 + VBA：带参数的追加查询-一个有效，两个无效，但没有错误信息_网络技术

Access 2010 + VBA：带参数的追加查询-一个有效，两个无效，但没有错误信息

创始人

2024-05-16 00:51:24

0次

在Access 2010中，可以使用VBA编写带参数的追加查询。以下是一个示例代码，演示如何创建带参数的追加查询。

首先，在数据库中创建一个表格，用于存储数据。例如，创建一个名为"Employees"的表格，包含字段"ID"、"Name"和"Age"。

然后，创建一个表单，用于输入参数值。例如，创建一个名为"frmAppendQuery"的表单，包含一个名为"txtAge"的文本框和一个名为"btnAppendQuery"的按钮。

接下来，打开VBA编辑器，在表单的代码模块中添加以下代码：

Private Sub btnAppendQuery_Click()
    Dim db As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim strSQL As String
    Dim intAge As Integer
    
    ' 获取参数值
    intAge = CInt(Me.txtAge.Value)
    
    ' 创建数据库对象
    Set db = CurrentDb
    
    ' 创建查询定义对象
    Set qdf = db.CreateQueryDef("")
    
    ' 构建SQL语句
    strSQL = "INSERT INTO Employees (Name, Age) SELECT Name, " & intAge & " AS Age FROM OtherTable WHERE Age > " & intAge
    
    ' 设置查询定义的SQL语句
    qdf.SQL = strSQL
    
    ' 执行追加查询
    qdf.Execute dbFailOnError
    
    ' 释放资源
    Set qdf = Nothing
    Set db = Nothing
    
    ' 清空文本框
    Me.txtAge.Value = ""
    
    ' 刷新表单
    Me.Requery
End Sub

在上面的代码中，首先获取文本框"txtAge"中的参数值，并将其转换为整数类型。然后，创建一个数据库对象和一个查询定义对象。接下来，构建SQL语句，其中使用参数值来过滤数据。然后，将SQL语句设置为查询定义对象的SQL属性，并执行追加查询。最后，释放资源，清空文本框，并刷新表单。

请注意，上述代码中的"OtherTable"应替换为实际的表格名称，该表格包含要追加的数据。另外，还可以根据需要修改追加查询的条件和目标表格。

希望以上信息对您有所帮助！

上一篇：Access 2007，VBA：在插入BLOB到链接表时出现奇怪的错误

下一篇：Access 2010 - 动态设置组合框的控件源和行源

Access 2010 + VBA：带参数的追加查询-一个有效，两个无效，但没有错误信息

相关内容

热门资讯