怎么把excel导入到数据集中的数据在写到数据库中

发布网友发布时间：2022-04-11 00:55

共1个回答

热心网友时间：2022-04-11 02:24

<%
Const
adOpenStatic
=
3
Dim
conn
Dim
rs
,dbPath
Set
conn
=
server.CreateObject("ADODB.Connection")
'
生成实际路
dbPath=server.MapPath("abc.xls")
'
驱动程序名称必须与ODBC中的驱动程序名完全一致,包括空格
conn.Open
"driver={Microsoft
Excel
Driver
(*.xls)};dbq="
&
dbPath
Set
rs
=
Server.CreateObject("ADODB.Recordset")
'
在工作表后加上$,同时必须在工作表名外加括号
rs.Open
"[sheet1$]",
conn,
adOpenStatic
%>
<body>
<%
Response.Write
"<CENTER><TABLE
BORDER=1>"
Response.Write
"<TR
BGCOLOR=#00FFFF>"
Response.WRITE
"<TD>编号</TD>"
'
显示每列的标题
For
i=0
to
rs.Fields.Count-1
Response.WRITE
"<TD>"
&
rs.Fields(i).Name
&
"</TD>"
Next
Response.Write
"</TR>"
RecNo=1
'
显示工作表中的所有数据
Do
While
Not
rs.EOF
Response.Write
"<TR>
"
Response.Write
"<TD>"
&
RecNo
&
"</TD>"
'显示各列的数据
For
i=0
to
rs.Fields.Count-1
Response.WRITE
"<TD>"
&
rs.Fields(i).Value
&
"</TD>"
Next
Response.Write
"</TR>"
rs.MoveNext
RecNo=RecNo+1
Loop
Response.Write
"</TABLE></CENTER>"
%>
</body>
-------------------------------------------
这段程序是把EXCEL的文件带格式在网页中显示出来.
你可以试着把这个提取值的同时把这个值写到数据库中.
试一下吧.
这个文件也是我刚在网上找到的,为了把EXCEL在网页中显示.
正好看到你写的这个像我说的方法应该可以实现.