如何把EXCEL表导入到access数据库-asp从excel导入数据库,excel导入mysql数据库

'写入数复据库.
oConn.Execute(Insert into users(userid,password)Values('
& rsRead.Fields(userid)&',' &rsRead.Fields(password) & ') )
rsRead.MoveNextloop%数据库制data.mdb表usersid,uesrid,password
Excel文件data.xls数据userid passwordwang w521zhange z254hong h112'================!!!!
ASP读取EXCEL注事项!!!!======================'i)将Excel97或Excel2000生成的XLS文件（
book）看成一个数据库，其中的每一个工作表(sheet)
看成数据库表
'ii)ADO假设Excel中的第一行为字段名.
所以你定义的范围中必须要包括第一行的内容
'iii)Excel中的行标题（即字段名）不能够包含zd数字. Excel的驱动在遇到这种问题时就会出错的。

材料/工具：Excel2003

1、首先启动access，执行新建-空数据库命令，输入名称保存在一个合适的zhidao位置上。

2、在数据库对话框中点击新建命令，调出新建表对话框，选择导入表选项，点击确定按钮。

3、在导入对话框中找到需要导入的数据表格，选中后点击导入按钮，出现导入数据表向导对话框。

4、接着根据内向导提示点击下一步，在“请选择数据的保存位置”中勾选新表中。

5、在字段选项中采用默认即可，点击下一步，接着选择设置主键为“字段2”。

6、直到出现完成按钮，并点击完成后，在数据库中就会出现sheet1表，双击打开即可，接着可以进行必要的处理了。容

下面连接到test.xls表sheet1$ '表后面要加个$的,一定要加这个符号7a64e59b9ee7ad94364
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Excel Driver (*.xls)};ReadOnly=0;DBQ=" & Server.MapPath("test.xls")

SQL1="select * from [sheet1$]"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL1, conn, 3, 3

'下面连接到atest.mdb表user
curDir = Server.MapPath("atest.mdb")
Set conn1 = Server.CreateObject("ADODB.Connection")
conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & curDir
Set rs1 = Server.CreateObject("ADODB.Recordset")
Set rs1.ActiveConnection = conn1
rs1.Source = "select * from user"
rs1.CursorType = 3 ' adOpenKeyset
rs1.LockType = 3 'adLockOptimistic
rs1.Open
Do While Not rs.Eof
rs1.AddNew
rs1(0)=j
for i=0 to rs.Fields.Count-1
rs1(i)=Trim(rs(i))
Next
rs1.Update
rs.MoveNext
j=j+1
Loop

rs.Close
rs1.Close
conn.Close
conn1.Close
Set rs=nothing
Set conn=nothing