Excel数据导入到Access,Sql Server中示例代码

 将Excel中的数据导入到Access中，前提是在Access中的表已经建好。 字串7

dim conn
dim conn2
set conn=CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=c:\book1.mdb"

字串2

set conn2=CreateObject("ADODB.Connection")
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source=c:\book1.xls" 字串2

sql = "SELECT * FROM [Sheet1$]"
set rs = conn2.execute(sql)
while not rs.eof
 sql = "insert into xxx([a],[b],[c],[d]) values('"& fixsql(rs(0)) &"','"& fixsql(rs(1)) &"','"& fixsql(rs(2)) &"','"& fixsql(rs(3)) &"')"
 conn.execute(sql)
 rs.movenext
wend 字串7

conn.close
set conn = nothing
conn2.close
set conn2 = nothing 字串6

function fixsql(str)
 dim newstr
 newstr = str
 if isnull(newstr) then
  newstr = ""
 else
  newstr = replace(newstr,"'","''")
 end if
 fixsql = newstr
end function 字串9

导入到Sql Server数据库中时，如果Excel文件和数据库不在同一台服务器上时，请参考上面的代码。在同一机器上可以参考下面代码（不需要先把表建表，程序会自己动建表，用Excel中的第一行数据做为表的字段名）： 字串8

dim conn
set conn=CreateObject("ADODB.Connection")
conn.Open ("driver={SQL Server};server=localhost;uid=sa;pwd=sa;database=hwtemp;")
sql = "SELECT * into newtable FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=""c:\book1.xls"";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$] "
conn.execute(sql) 字串7

conn.close
set conn = nothing

字串3

选择自 sxycgxj 的 Blog 字串3

===================================================================================
Excel数据如何导入Access数据库
 

<% Server.ScriptTimeOut=9999999 %>

<%

set rs=server.CreateObject("adodb.recordset")
update_sql="select xingming,b,c,d from biao"
rs.open update_sql,conn,2,3

Set xlApp = server.CreateObject("Excel.Application")
strsource = server.mappath("1.xls")
Set xlbook = xlApp.Workbooks.Open(strsource)
Set xlsheet= xlbook.Worksheets(1)

i=1
do while (not xlsheet.cells(1,i)="")
i=i+1
loop
ii=i-1
RecNo=1
j=2

Do While (xlsheet.cells(j,1)<>"")
rs.addnew
i=1
for i=1 to ii
rs(i-1)=xlsheet.cells(j,i)
next
j=j+1
rs.update
RecNo=RecNo+1
Loop

if err.number=0 then
response.Write("")
end if
rs.close
set rs=nothing
set db=nothing

xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象

%>

=================
Server 对象 错误 'ASP 0177 800401f3' 的解决方案2006-11-22 19:32Server 对象 错误 'ASP 0177 800401f3' 的解决方案 Server 对象 错误 'ASP 0177  800401f3'

 

错误:

Server 对象 错误 'ASP 0177  800401f3'

Server.CreateObject 失败

oblog313index.asp，行 5

800401f3

系统没有开启FSO组件.

FSO组件的开启和关闭方法

Dll 文件的注册和注销：

win2000系统：

在CMD命令行状态输入以下命令：

关闭命令：RegSvr32 /u C:\WINNT\SYSTEM32\scrrun.dll

打开命令：RegSvr32 C:\WINNT\SYSTEM32\scrrun.dll 

win2003：

运行regsvr32 scrrun.dll即可。

如果想关闭FSO组件，请运行 regsvr32 /u scrrun.dll即可。