ASP将EXECL导入SQL数据库
来源：
互联网
日期：2012-7-31
| Tc711Com提示：ASP将EXECL导入SQL数据库 | <%
'Dim Conn,Driver,DBPath,Rs
' 建立Connection对象
set connn=server.CreateObject("adodb.connection")
Set Conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ=" & Server.MapPath( "/ftp/abc.xls" )
'调用Open 方法打开数据库
connn.open "driver={sql server};server=JLTELE-J35XOIBY;database=cdma;uid=sa;pwd=xxx"
Conn.Open Driver & DBPath
'DSN连接方式
'Conn.Open "Dsn=test"
'注意 表名一定要以下边这种格试 "[表名$]" 书写
Sql="Select * From [Sheet1$] "
sqll="Select * From 号码"
Set Rs=Conn.Execute(Sql)
set objnoters=server.CreateObject("adodb.recordset")
objnoters.Open "Select * From 号码",connn,1,3
IF Rs.Eof And Rs.Bof Then
Response.write "没有找到您需要的数据!!"
response.end()
end if
Do While Not Rs.EOF
xingming=Rs("持号人姓名")
haoma=Rs("号码")
yiji=Rs("一级")
erji=Rs("二级")
sanji=Rs("三级")
zuidixiaofei=Rs("最低消费")
zaiwangshichang=Rs("在网时长")
yucunjine=Rs("预存金额")
suoshuyingye=Rs("所属营业厅")
objnoters.AddNew
objnoters("号码")=haoma
objnoters("持号人姓名")=xingming
objnoters("一级")=yiji
objnoters("二级")=erji
objnoters("三级")=sanji
objnoters("最低消费")=zuidixiaofei
objnoters("在网时长")=zaiwangshichang
objnoters("预存金额")=yucunjine
objnoters("所属营业厅")=suoshuyingye
objnoters.update
Rs.MoveNext
Loop
Set objnoters=nothing
connn.Close
Set connn=Nothing
Rs.Close
Set Rs=nothing
Conn.Close
Set Conn=Nothing
Response.Write "成功！"
%>
更多的ASP将EXECL导入SQL数据库请到论坛查看: http://BBS.TC711.COM
【 双击滚屏 】 【 评论 】 【 收藏 】 【 打印 】 【 关闭 】
来源：
互联网
日期：2012-7-31
|
|
|
