请问，如何在窗体上设置一个数据导入按钮？

aizaiwofuxia　发表于：2011-08-22 13:42:02 　

复制

Top

竹笛发表于：2011-08-22 14:10:59

创建一个按钮即可，实现数据导入功能的代码，则需要根据你导入数据的具体情况而定。

Top

曹光耀发表于：2011-08-22 21:55:51

你说的问题，不具体

如果是将ACCESS中的A表的数据导入到B表中（两个表的结构相同）可以下三个方法：

1，追加查询，将A表中数据追加到B表中(可用查询向导、用手动、用代码《SQL》三种方式）

2，用宏向导，将A表中数据导入到B表中

3，用代码，通过ADO的记录方法和属性，将A表中数据导入到B表中

Top

网行者发表于：2011-08-22 22:04:26

Private Sub CmdInput_Click()
On Error GoTo ErrHandler
    DoCmd.RunCommand acCmdImport
ExitHandle:
    Exit Sub
ErrHandler:
    Select Case Err.Number
        Case 2501
            'Do nothing as cancel selected by user
            Resume ExitHandle
        Case Else
            MsgBox Err.Number & vbCrLf & Err.Description
            Resume ExitHandle
    End Select
End Sub

Top

煮江品茶发表于：2011-08-23 16:14:57

http://www.accessoft.com/article-show.asp?id=4714

Top

Lee 发表于：2011-08-23 19:34:56

设计好按钮后，在按钮属性“单击”事件中写如下代码：DoCmd.RunCommand acCmdImport

以上代码可打开一个导入数据的窗口（即菜单栏上的“获取外部数据”），然后你可选择文件和文件类型之后导入到ACCESS。

以上方法如取消导入会弹出错误提示窗口，但不影响使用。

另一方法是设置一个模块，代码如下：

Sub GetVal(num As Long)
'功能：获取外部数据
'参数：num---num=1 导入；num=2 链接表
On Error GoTo Err_GetVal
Select Case num
   Case 1
       DoCmd.RunCommand acCmdImport
   Case 2
       DoCmd.RunCommand acCmdLinkTables
   Case Else
       Exit Sub
End Select
Exit_GetVal:
    Exit Sub
Err_GetVal:
    Resume Exit_GetVal
End Sub
然后在按钮“单击”事件中写代码：

Call GetVal(1)

这样就可引用模块，并且取消导入也不会弹出错误提示。

以上资料源自煮江品茶先生。

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

请问，如何在窗体上设置一个数据导入按钮？