ASP中将Excel数据导入到Access

欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【ASP中将Excel数据导入到Access】，下面是详细的分享！

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 
%> 

以上所分享的是关于ASP中将Excel数据导入到Access，下面是编辑为你推荐的有价值的用户互动：

　　相关问题：如何将excel中的数据导入到已有ACCESS的数据库

　　答：以BOOK1，BOOK2，在ACESS 2007中的操作： 在ACCESS2007中创建新空白文档。 导入BOOK1表SHEET1,如已有ACCESS表，打开，如表结构相同，进行追加即可。 选BOOK1中SHEET1 完成一新EXCEL表的导入。 后面在ACCESS中以追加方式添加数据，先关闭ACCESS表... >>详细

　　相关问题：ASP.NET如何将excel的数据导入到Access的表中

　　答：你数据库必须有这几张表，或者在导入的时候根据excel的表头去创建拿几张表，读取excel的数据insert到表中。/// /// 将Excel中的数据通过OLE连接导入DataSet /// /// /// /// public void ImportExcelToDataSet(string filePath, DataSet ds) { s... >>详细

　　相关问题：如何将excel数据导入access2007

　　答：1.启动Access，新建一数据库文件。 2.在“表”选项中，执行“文件→获取外部数据→导入”命令，打开“导入”对话框。 3.按“文件类型”右侧的下拉按钮，选中“Microsoft Excel（.xls）”选项，再定位到需要转换的工作簿文件所在的文件夹，选中相应的工作簿，... >>详细