Excel 数据导入到 Access、Sql Server 中示例代码
来源:百度文库 编辑:神马文学网 时间:2024/05/20 12:11:39
将Excel中的数据导入到Access中,前提是在Access中的表已经建好。
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"
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"
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
conn.close
set conn = nothing
conn2.close
set conn2 = nothing
function fixsql(str)
dim newstr
newstr = str
if isnull(newstr) then
newstr = ""
else
newstr = replace(newstr,"'","''")
end if
fixsql = newstr
end function
导入到Sql Server数据库中时,如果Excel文件和数据库不在同一台服务器上时,请参考上面的代码。在同一机器上可以参考下面代码(不需要先把表建表,程序会自己动建表,用Excel中的第一行数据做为表的字段名):
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)
conn.close
set conn = nothing
本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/sxycgxj/archive/2006/03/08/618516.aspx
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"
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"
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
conn.close
set conn = nothing
conn2.close
set conn2 = nothing
function fixsql(str)
dim newstr
newstr = str
if isnull(newstr) then
newstr = ""
else
newstr = replace(newstr,"'","''")
end if
fixsql = newstr
end function
导入到Sql Server数据库中时,如果Excel文件和数据库不在同一台服务器上时,请参考上面的代码。在同一机器上可以参考下面代码(不需要先把表建表,程序会自己动建表,用Excel中的第一行数据做为表的字段名):
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)
conn.close
set conn = nothing
本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/sxycgxj/archive/2006/03/08/618516.aspx
Excel 数据导入到 Access、Sql Server 中示例代码
asp代码实现EXCEL数据导入到SQL数据库
asp代码实现EXCEL数据导入到
在SQL Server中谨慎导入导出大容量数据
HOW TO:将数据从 Microsoft SQL Server 导入 Microsoft Excel
使用SQL Server数据转换服务升迁Access数据库
excel导入access方法
将Access数据库移植到SQL Server[摘]
将excel数据导入oracle中- -
将excel数据导入oracle中- -
Access和SQL Server数据类型
excel导入access方法2
Excel中如何调用SQL数据
将网页表格导入到Excel中
SQL Server数据导出到Oracle的方案
谈谈数据从sql server数据库导入mysql数据库的体验章,在线教程,电脑教...
从SQL Server备份文件导入现存数据库
excel导入access方法(转)
SQL SERVER数据库全文索引的示例
SQL SERVER数据库中实现快速的数据提取和数据分页
SQL SERVER数据库中实现快速的数据提取和数据分页
使SQL Server数据支持 XML SQL server技术交流
用ASP.NET/C#连接Access和SQL Server数据库
C#连接Access,Sql Server,Oracle,Mysql,IBM DB2,Sy...