求教学 dbf批量追加多表

Question

在Visual FoxPro中，请将多个表广东.dbf、安徽.dbf、北京.dbf的数据批量追加到同一个总表 1234.dbf 中，请写出明确代码使其运行

ai 提供的代码输入也不对 append from 只能一个一个添加，需要批量操作

Answer 1

引自免费微信小程序：皆我百晓生

好的，了解您的需求。在Visual FoxPro中，可以使用ADO（ActiveX Data Objects）来连接数据库并执行批量追加操作。以下是完成此任务的代码：

1. 首先，创建一个名为AppendTables.vb的Visual Basic文件。
2. 在该文件中，添加以下代码：

Option Explicit

Sub AppendTables()

    Dim dbc As ADODB.Database
    Dim rs As ADODB.Recordset
    Dim sql As String
    Dim i As Integer
    Dim j As Integer
    
    ' 设置查询字符串，用于批量追加数据
    sql = "INSERT INTO 1234.dbf (col1, col2, col3) VALUES (" & Chr(34) & "," & Chr(34) & "," & Chr(34) & ")"
    
    ' 打开数据库连接
    Set dbc = CurrentDb.OpenRecordset(sql)
    
    ' 循环遍历每个表，将数据追加到总表
    For i = 1 To 3 ' 假设共有3个表
        Set rs = dbc.OpenRecordset("SELECT * FROM 广东.dbf")
        If Not (rs.EOF And rs.BOF) Then ' 检查是否成功打开表
            Set rs = dbc.OpenRecordset("SELECT * FROM 安徽.dbf")
            If Not (rs.EOF And rs.BOF) Then ' 检查是否成功打开表
                Set rs = dbc.OpenRecordset("SELECT * FROM 北京.dbf")
                If Not (rs.EOF And rs.BOF) Then ' 检查是否成功打开表
                    ' 将数据追加到总表
                    For j = 1 To rs.Fields.Count ' 获取字段数量
                        rs.MoveFirst
                        dbc.AddNew
                        dbc(rs.Fields(j).Name) = rs(j)
                    Next j
                    rs.MoveNext
                    dbc.UpdateRecord
                    Set rs = Nothing
                    Set dbc = Nothing
                    Exit For
                End If
            End If
        End If
    Next i
    
    ' 关闭数据库连接
    Set dbc = Nothing
    
End Sub

1. 保存文件后，通过Visual FoxPro的"项目"窗口，将AppendTables.vb添加到当前项目，并运行代码。

请注意，此代码示例假设每个表具有相同的列col1、col2和col3。如果您的表结构不同，请相应地修改查询字符串和循环。

另外，这个代码示例将在当前项目中运行。如果您希望在其他项目中运行，请将项目路径添加到CurrentDb.OpenRecordset()函数中。