ACCESS 创建按钮点击事件查询数据后导入到连接的oracle数据库表中

要实现这个需求，需要先了解一下 ACCESS 中的 VBA 编程语言和 Oracle 数据库的连接方式。

1. 连接 Oracle 数据库

在 VBA 中连接 Oracle 数据库，需要使用 ADODB（ActiveX Data Objects）对象。代码如下：

Dim conn As New ADODB.Connection
conn.ConnectionString = "Provider=OraOLEDB.Oracle;Data Source=myOracleDB;User ID=myUsername;Password=myPassword;"
conn.Open

其中，`myOracleDB` 是 Oracle 数据库的名称，`myUsername` 和 `myPassword` 分别是连接数据库的用户名和密码。

2. 查询 ACCESS 数据库中的数据

在 VBA 中查询 ACCESS 数据库中的数据，可以使用 ADO（ActiveX Data Objects）对象。代码如下：

Dim rs As New ADODB.Recordset
rs.Open "SELECT * FROM myTable", conn

其中，`myTable` 是 ACCESS 数据库中的表名。

3. 导入数据到 Oracle 数据库中

在 VBA 中将查询出来的数据导入到 Oracle 数据库中，可以使用 SQL 语句。代码如下：

Dim sql As String
sql = "INSERT INTO myOracleTable VALUES (value1, value2, ...)"
conn.Execute sql

其中，`myOracleTable` 是 Oracle 数据库中的表名，`value1`、`value2` 等是要插入的数据值。

综合起来，可以编写如下的 VBA 代码实现按钮点击事件查询数据后导入到连接的 Oracle 数据库表中：

Private Sub btnImport_Click()
    ' 连接 Oracle 数据库
    Dim conn As New ADODB.Connection
    conn.ConnectionString = "Provider=OraOLEDB.Oracle;Data Source=myOracleDB;User ID=myUsername;Password=myPassword;"
    conn.Open
    
    ' 查询 ACCESS 数据库中的数据
    Dim rs As New ADODB.Recordset
    rs.Open "SELECT * FROM myTable", conn
    
    ' 将数据导入到 Oracle 数据库中
    Do Until rs.EOF
        Dim sql As String
        sql = "INSERT INTO myOracleTable VALUES (" & rs.Fields("Field1").Value & ", " & rs.Fields("Field2").Value & ", ...)"
        conn.Execute sql
        rs.MoveNext
    Loop
    
    MsgBox "数据导入成功！"
End Sub

其中，`Field1`、`Field2` 等是 ACCESS 数据库中的字段名，`...` 表示还有其他字段需要导入。