access导入代码

① access数据库中数据从excel到access批量导入代码

demo.asp

<%
Dim cn,oConn,connstr
'打开XLS.
Set cn = Server.CreateObject("ADODB.Connection")
cn.Provider = "Microsoft.Jet.OLEDB.4.0 "
cn.ConnectionString = "Data Source=" & Server.MapPath("data.xls") & ";" & _
"Extended Properties=Excel 8.0;"
cn.Open
'打开MDB.
connstr="DBQ="+server.MapPath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set oConn=server.CreateObject("ADODB.CONNECTION")
oConn.open connstr

'读取数据.
set rsRead=server.CreateObject("ADODB.Recordset")
rsRead.Open "select * from [Sheet1$]",cn,1,1
do until rsRead.EOF
'写入数据库.
oConn.Execute("Insert into users(userid,password)Values('"& rsRead.Fields("userid")&"','" &rsRead.Fields("password") & "')" )
rsRead.MoveNext
loop
%>

数据库data.mdb

表users
id,uesrid,password

Excel文件data.xls

数据
userid password
wang w521
zhange z254
hong h112

ASP读取EXCEL注事项!
'i)将Excel97或Excel2000生成的XLS文件（book）看成一个数据库，其中的每一个工作表(sheet)看成数据库表
'ii)ADO假设Excel中的第一行为字段名.所以你定义的范围中必须要包括第一行的内容
'iii)Excel中的行标题（即字段名）不能够包含数字. Excel的驱动在遇到这种问题时就会出错的。例如你的行标题名为“F1”
'iiii)如果你的Excel电子表格中某一列同时包含了文本和数字的话,那么Excel的ODBC驱动将不能够正常, 处理这一行的数据类型，你必须要保证该列的数据类型一致

② 如何将excel里的数据批量导入ACCESS，要用vb代码

不用复VB代码，手动导入制可以用access的导入功能。

方法：

功能菜单->外部数据->Excel

然后按提示

1、选择文件

2、选择导入的Sheet名称

3、首行是否包含标题

4、选择索引

5、添加主键

6、导入到Access的表名

7、完成

③ 如何用vba将ACCESS窗体和查询导入另一个数据库中

Access是微软Office组件的数据库软件，使用它可以进行简单的数据库软件的开发。但Access的图表功能和数据分析功能不如Excel强大，常用的做法可以将Access中的数据导入Excel中再进行处理。
代码利用ADO组件可以方便地对各种数据进行连接和访问。ADO组件中的Connection对象可以实现对数据库的连接，并可以快速实现SQL语句的执行，然后再用VBA将SQL查询的结果输出到Excel表格中。
打开VBE窗口，选择菜单“工具”一“引用”，勾选MicrosoftActiveXDataObjects2.8Library，并单击“确定”按钮。
利用ADO连接数据库ADO的全称是ActiveXDataObject，是一个用于存取数据源的COM组件，用以快速实现各种数据库的连接、读取、写入。在ADO组件中有一个Connection对象，利用Connection对象的Open方法可以实现数据库的连接。

④ 如何在ACCESS里用VBA导入一个EXCEL文件

启动excel1)
菜单－》工具－》宏－》录制新宏2）菜单－》数据－》导入
外部数据
－》导入数据3）选择你的mdb文件，然后按提示导入4）点“结束录制”按钮，菜单－》工具－》宏－》vb编辑器，检查vba代码5）回
工作簿
，清空所有数据，在适当位置添加按钮，在按钮的
click事件
里调用宏所对应的方法

⑤ access如何实现文本文件的自动导入

这个很简单。你先用EXCL做好数据（如果不会使用EXCL那就别问我了）。然后保存好。在打开access建立表单。到文件那点导入刚才的EXCL就可以了