2024年6月20日发(作者：)
用asp将excel表数据导入access数据库的代码.txt35温馨是大自然的一抹色彩，独
具慧眼的匠师才能把它表现得尽善尽美；温馨是乐谱上的一个跳动音符，感情细腻的歌唱者
才能把它表达得至真至纯用asp将excel表数据导入access数据库的代码
<%
Dim conn
Dim StrConn
Dim rs
Dim Sql
'将excel表当作数据库打开
Set conn=Object("tion")
"Driver={Microsoft Excel Driver (*.xls)};DriverId=790; DBQ="&
h("../#bijiadata/") '指定excel文件的路径
Set rs = Object("set")
Sql="select usrname,usrpwd,question,answer,sj from [company$]" '指定excel
的表名（后面必须有$符号)以及字段名，如果是所有字段名可用*代替
Sql,conn,2,2
'打开数据库
Set sqlconn=Object("tion")
"provider=.4.0;data
h("../#bijiadata/")
source="&
e("delete * from company")
Set rst = Object("set")
Sql2="select usrname,usrpwd,question,answer,sj from company"
Sql2,sqlconn,1,3
if -1=-1 then '如果字段个数据相同则
for i=0 to -1
if rs(i).name<>rst(i).name then
"操作错误，excel表的字段名与access数据库的字段名不对应"
发布者：admin，转转请注明出处：http://www.yc00.com/web/1718897812a2753379.html
评论列表（0条）