乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > 通过web方式将excel表的内容导入到sql数据库

通过web方式将excel表的内容导入到sql数据库

作者:乔山办公网日期:

返回目录:excel表格制作


没有直接的方法。
1、要操作Excel,首zd先需要引用Microsoft Office 11.0 Object Library

2、包含
using System.Runtime.InteropServices; // For COMException
using Excel;

3.用该命名空间的类。操作Excel得到其中行列数据。得到数据后,存入SqlServer就行了。

怎么操作Excel,我就不说了。网上多的是。Copy一下,根据自己的实际情况修改。

这些你都去找专业的人问啊,要不不懂
哈哈
刚好我也在做这个案例
<%'sql 连接驱动
dim conn,connstr,time1,time2,mdb
time1=timer
dim aa
aa=request.form("EXCEL") '获取传递过来的值
Dim StrConnect,cc
Dim objConn
Dim rs
Dim Sql
cc=0
'Excel连接驱动
aaa="provider=Microsoft.Jet.OLEDB.4.0; Data Source="&aa&";Extended Properties=Excel 8.0"
set StrConnect=CreateObject("ADODB.Connection")
StrConnect.Open aaa
Set objConn=CreateObject("ADODB.Connection")
objConn.Open StrConnect
'注意 表名一定要以下边这种格试"[表名$]"书写e5a48de588b67a686964616f338
Set rs = Server.CreateObject("ADODB.Recordset")
Sql="select * from [sheet1$]"
rs.Open Sql,StrConnect,2,2
IF rs.Eof And Rs.Bof Then
response.Write("<script>alert('没有资料可以导入!');history.go(-1)</script>")
else
Do While Not rs.EOF
if rs(0)<>"" then
'插入SQL2000里
set rssql=server.CreateObject("adodb.recordset")
rssql.Open "select * from a_sell where PartNo='"&rs(0)&"'",conn,1,3
if not rssql.recordcount=0 then
response.write ""
else
rssql.AddNew
rssql(1)=rs(0)
rssql(2)=rs(1)
rssql(3)=rs(2)
rssql(4)=rs(3)
rssql(5)=rs(4)
rssql(6)=rs(5)
rssql(7)=rs(6)
rssql(8)=rs(7)
rssql.Update
end if
end if
Rs.MoveNext
Loop
end if
response.Write"<script language=javascript>alert('资料导入成功!\n重复数据未导入');history.go(-1)</script>"

%>

用asp连接excel表
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(PatnNow)&";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""

读取表中内容
'注意 表名一定要以下边这种格试 "[表名$]" 书写
Sql="Select * From [t_product$] "

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

我有个demo,有需要留个email我给你

相关阅读

关键词不能为空
极力推荐
  • -vb datagrid excel,vb

  • 实验下下面的代码Public Sub import_Excel(Adc As Adodc, data_grid As DataGrid) On Error GoTo err Set Application = CreateObject("Excel.Application") 建立EXCEL对象 S

ppt怎么做_excel表格制作_office365_word文档_365办公网