精典的ASP 传奇的J2EE 新生的NET FTP服务器服务器安全 WINDOWS B/S 模式 WEB安全 WAP世界动态网站推广宣传
空间服务器数据库技术邮局服务器站長工具硬设与组建 Alexa专题 DHTML 项目管理 WEB标准电脑硬件
病毒知识电脑使用布线协议接入交换路由局域网无线网络网络规划
Visual Basic Visual C/C++ Mssql MySql oracle Sybase 存在安全风险进程系统进程列表应用程序进程列表其它进程列表
黑客编程漏洞分析本地提权免杀技术脚本漏洞数据库注入安全防护内网渗透加密解密工具使用
WAP技术 WAP入门

您的位置： >> 相关知识 >> 开发技术 >> 精典的ASP >>

ASP数据库连接读excel

合金网络科技

添加日期:2006-11-22 点击次数:82次

MS的OLEDB支持以数据库方式读取EXCEL中的数据，这样可以方便的从excel中存取数据，但有一点需要注意，从excel中读数据时，不能使用execute的方式读，而必须使用open的方式去读
例程：

dim ConnExcel,sql,RsExcel,ExcelFile

ExcelFile='BuyList.xls'
ConnExcel=ConnectToExcel(ExcelFile)

'注意表名一定要以下边这种格试 '[表名$]' 书写
Sql='Select * From [Sheet1$]'
Set RsExcel = Server.CreateObject('ADODB.Recordset')
'ASP读取excel数据时，要用open方法，不能用execute方式，用execute会出错
RsExcel.open Sql,ConnExcel,1,3
IF RsExcel.Eof And RsExcel.Bof Then
Response.write '没有找到您需要的数据!!'
Else

Do While Not RsExcel.EOF
Response.write RsExcel(0)
RsExcel.MoveNext
Loop
End IF

RsExcel.Close
Set RsExcel=nothing

Function ConnectToExcel(FileName)
Dim ConnName,ConnStr,Rs
' 建立Connection对象
Set ConnName = Server.CreateObject('ADODB.Connection')
' ConnStr = 'Driver={Microsoft Excel Driver (*.xls)};DBQ='&Server.MapPath(FileName)
' ConnStr = 'Provider = Microsoft.Jet.OLEDB.4.0; Data Source ='&Server.MapPath(FileName)&';Extended Properties=Excel 8.0'
ConnStr = 'Data Source ='&Server.MapPath(FileName)&';Extended Properties=Excel 8.0'
response.Write(ConnStr)+'<br>'
'调用Open 方法打开数据库
ConnName.Provider = 'Microsoft.Jet.OLEDB.4.0 '
ConnName.ConnectionString = ConnStr
ConnName.Open
response.Write('errors:'&ConnName.errors.count&'<br>')
for i=0 to ConnName.errors.count - 1
response.Write(ConnName.errors(i).description+'<br>')
next
set ConnectToExcel = ConnName
Set ConnName=nothing
End Function