半条命之针锋相对:把Excel数据读到SQL数据库里怎么用程序实现阿

Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Provider=MSDASQL.1;Persist Security " & _
"Info=False;Extended Properties=""DBQ=" & _
file & ";DefaultDir=" & path & _
";Driver={Microsoft Excel Driver (*.xls)};" & _
"DriverId=790;FIL=excel 8.0;MaxBufferSize=2048;"& _
"MaxScanRows=8;PageTimeout=5;ReadOnly=0;" & _
"SafeTransactions=0;" & _
Threads=3;UID=admin;UserCommitSync=Yes;"""

其中FILE是EXCEL文件的路径；
PATH是EXCEL文件所在目录的路径；
EXCEL中的每一个SHEET可以作为一个表名，名称为该SHEET的名称
例如：需导入EXCEL中的SHEET1，那么执行

SET RS=cn.execute("SELECT*FROM [SHEET1$]")

便可得到该SHEET内容的记录集

接下来，你可以自己完成将RS中数据逐行写入SQL SERVER的部分。

Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
if Err.Number <> 0 Then
end if
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/bm.mdb")
'&";Jet OLEDB:Database Password=bm"
if Err.Number <> 0 Then
end if