{ASP}从Excel导入到Access中
2009-02-17 15:24
295 查看
{ASP}从Excel导入到Access中
<%dim conn '定义一个连接变量
dim conn2 '定义第二个连接变量
'On Error Resume Next
Server.ScriptTimeOut = 999999 '超时时间
set conn=CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source="&Server.MapPath("Fang.mdb") '要导入的数据库名称,这里是Fang.mdb
set conn2=CreateObject("ADODB.Connection")
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source="&Server.MapPath("Fang.xls") '要导入的EXCEL表名称Fang.xls
'-----------------------------------------------------------------------------------------------------------------
'这里要说明的是,数据库和Excel表和该文件必须在网站同一目录里
'-----------------------------------------------------------------------------------------------------------------
sql = "SELECT * FROM [Sheet1$]" '要导入的Excel数据里面的表的名称,后面一定要加$
set rs = conn2.execute(sql)
while not rs.eof
sql = "insert into zhenya([country],[mobile]) values('"& fixsql(rs(0)) &"','"& fixsql(rs(1)) &"')"
'其中的zhenya是要导入的目标表,其后的country,mobile是zhenya表中的字段名,但是要和后面的fixsql(rs(数字))要对应!
'response.write sql
'response.end
conn.execute(sql)
rs.movenext
Response.Write "正在插入 "&sql&"<Br>"
'在这里输出执行的语句,可以去掉的!
Response.Flush
wend
conn.close
set conn = nothing
conn2.close
set conn2 = Nothing
If Err = 0 Then
Response.Write "导入成功"
Else
Response.Write "导入失败!"
End If
function fixsql(str)
dim newstr
newstr = str
if isnull(newstr) then
newstr = ""
else
newstr = replace(newstr,"'","''")
end if
fixsql = newstr
end Function
%>
程序就可以用了,完全就能运行!
<%dim conn '定义一个连接变量
dim conn2 '定义第二个连接变量
'On Error Resume Next
Server.ScriptTimeOut = 999999 '超时时间
set conn=CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source="&Server.MapPath("Fang.mdb") '要导入的数据库名称,这里是Fang.mdb
set conn2=CreateObject("ADODB.Connection")
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source="&Server.MapPath("Fang.xls") '要导入的EXCEL表名称Fang.xls
'-----------------------------------------------------------------------------------------------------------------
'这里要说明的是,数据库和Excel表和该文件必须在网站同一目录里
'-----------------------------------------------------------------------------------------------------------------
sql = "SELECT * FROM [Sheet1$]" '要导入的Excel数据里面的表的名称,后面一定要加$
set rs = conn2.execute(sql)
while not rs.eof
sql = "insert into zhenya([country],[mobile]) values('"& fixsql(rs(0)) &"','"& fixsql(rs(1)) &"')"
'其中的zhenya是要导入的目标表,其后的country,mobile是zhenya表中的字段名,但是要和后面的fixsql(rs(数字))要对应!
'response.write sql
'response.end
conn.execute(sql)
rs.movenext
Response.Write "正在插入 "&sql&"<Br>"
'在这里输出执行的语句,可以去掉的!
Response.Flush
wend
conn.close
set conn = nothing
conn2.close
set conn2 = Nothing
If Err = 0 Then
Response.Write "导入成功"
Else
Response.Write "导入失败!"
End If
function fixsql(str)
dim newstr
newstr = str
if isnull(newstr) then
newstr = ""
else
newstr = replace(newstr,"'","''")
end if
fixsql = newstr
end Function
%>
程序就可以用了,完全就能运行!
相关文章推荐
- asp:将excel中的数据导入到access
- ASP 将EXCEL导入到ACCESS详细解读…
- 在ASP中把EXCEL导入ACCESS 的方法
- ASP中将Excel数据导入到Access
- asp.net access导入Excel
- ASP 将EXCEL导入到ACCESS详细解读…
- Asp Excel数据导入到Access,Sql Server中示例代码
- asp做一个excel导入到access的功能
- ASP中将Excel数据导入到Access
- 轻松实现SQL Server与Access、Excel数据表间的导入导出
- ASP access导出到Excel
- ASP.NET----源码优秀类导入Excel
- asp.net实现 EXCEL数据导入到数据库功能
- asp.net 导入excel显示进度
- ASP.NET中Excel: Access is denied的问题解决
- 精妙的SQL和SQL SERVER 与ACCESS、EXCEL的数据导入导出转换
- ASP.NET MVC excel导入
- (轉載)Excel 文件用C#导入 Access 数字字符混排的问题
- ASP.NET Aries 高级开发教程:Excel导入之多表高级导入配置(中)
- 用asp.net将Excel导入到数据库并显示