您的位置：　首页 > 技术文章 > 综合其它

Access导入导出方法

来源:www.accessoft.com 点击数:18131 　 | 收藏 | 复制

时　间:2014-07-02 08:26:40
作　者:宏鹏（转载） ID：21115 城市：上海
摘　要:Excel导入Access，Access导入Access
正　文:

将Excel数据导入Access步骤（直接导入法）

1、启动Microsoft Access2000

2、建立一个空数据库student

3、在对象栏中选择“表”选项，执行“文件→获取外部数据→导入”命令，打开“导入”对话框

4、选择文件类型“为Microsoft Execl”，单击“查找范围”右边的向下黑三角，选择.xls文件所在的目录，再选择要导入数据的工作薄文件

5、单击“导入”按钮，进入“导入数据表向导”对话框

6、按“下一步”，选中“第一行包含列标题”前面的复选框

7、按“下一步”，进入“请选择数据的保存位置”页，假如你不想保存在现有的表中，那么选择“新表中”，否则保持默认值“现有的表中”再选择表名；（我这里以选择新表）

8、按“下一步”，进入“字段选择”页，保持默认值

9、按“下一步”，进入图3所示页面，选择“自行选择主键”

10、按“下一步”，进入图4所示的界面，在“导入到表”输入框中输入表名，我这里输入“一班”

11、点击“完成”按钮，此时系统会弹出一个导入完成的对话框，按“确定”按钮

完成以上步骤，我们就成功的把数据就从Excel中导入到Access中了。
注：本文在Win2000+Excel2000+Access2000上运行通过。

将Excel数据导入Access步骤（建立连接法）

1.启动Access，新建一数据库文件。

2.在“表”选项中，执行“文件→获取外部数据→链接表”命令，打开“链接”对话框。

3.以下操作基本与上述“直接导入法”相似，在此不再赘述，请大家自行操练。
注意：“直接导入法”和“建立链接法”均可以将Excel数据转换到Access中，两者除了在Access中显示的图标不同外，最大的不同是：前者转换过来的数据与数据源脱离了联系，而后者转换过来的数据会随数据源的变化而自动随时更新。

从Access导入到Access(表至表)

Option Explicit
Dim Adocon As ADODB.Connection
Private Sub Form_Load()
Set Adocon = New ADODB.Connection
Adocon.ConnectionString = "Provider = SQLOLEDB.1;Password = ; Persist Security Info = True;User ID = sa;Initial Catalog = DRUGDB; Data Source = 192.168.30.122"
Adocon.ConnectionTimeout = 120
Adocon.Open
Adocon.Execute ("delete from OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=" & App.Path & "\test.MDB;User ID=Admin;Password=')...carsort1")
Adocon.Execute ("insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=" & App.Path & "\test.MDB;User ID=Admin;Password=')...carsort1(sort_id,sort_name) Select sort_id,sort_name FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=" & App.Path & "\test.MDB;User ID=Admin;Password=')...carsort")
Adocon.Close
Set Adocon = Nothing
End Sub

从Excel导入到SQL Server(表至表)

Option Explicit
Dim Adocon As ADODB.Connection
Private Sub Form_Load()
Set Adocon = New ADODB.Connection
Adocon.ConnectionString = "Provider = SQLOLEDB.1;Password = ; Persist Security Info = True;User ID = sa;Initial Catalog = DRUGDB; Data Source = 192.168.30.122"
Adocon.ConnectionTimeout = 120
Adocon.Open
Adocon.Execute ("delete from newsort")
Adocon.Execute ("insert into newsort(sort_id,sort_name) Select sort_id,sort_name FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=" & App.Path & "\carsort1.xls;Extended properties=Excel 5.0')...[carsort1$]")
Adocon.Close
Set Adocon = Nothing
End Sub

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店

【打印此文】【关闭窗口】