All articles| All Pictures| All Softwares| All Video| Go home page| Write articles| Upload pictures

Reading number is top 10 articles
visual c++中的画笔类CPen使用实例
Windows 环境下的 PHP5+Apache+mysql 服务器的配置_[PHP教程]
asp.net2.0验证控件之 CompareValidator控件使用方法详
菜鸟的最爱,.NET经典代码汇总(二)_.net资料_编程技术
ASP.NET,2005,Treeview终极解决方案_[Asp.Net教程]
C#教程:线程的创建
ASP.NET从零起步设计网站全过程(3)_[Asp.Net教程]
HTML语言剖析(九)图形标记_[Html教程]
C#中对象概念和应用实例
跟我学SQL:(四)查询多个表格_mssql学习_编程技术
Reading number is top 10 pictures
日本小萝莉2
这玉米,买还是不卖?
奇趣的世界记录3
影评-疯子,我爱你
你白吃了多少药
Send some Valentine's day cartoon
看看什么叫美景
中国女孩大胆自拍,显露完美身材
美奂绝伦的风景
传销的好处
Download software ranking
Unix video tutorial13
jdk1.6 for windows
Unix video tutorial4
变速齿轮3.26
Tram sex maniac 2 (H) rar bag8
尖东毒玫瑰B
jBuilder2006
Photoshop 8.0图象编辑软件
The Bermuda triangle3
Boxer's Top ten classic battle8
归海一刀 published in(发表于) 2014/2/1 0:09:14 Edit(编辑)
Excel,数据导入到,Access、Sql,Server,中示例代码_[SQL,Server教程]

Excel,数据导入到,Access、Sql,Server,中示例代码_[SQL,Server教程]

Excel 数据导入到 Access、Sql Server 中示例代码_[SQL Server教程]

将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







添加到del.icio.us 添加到新浪ViVi 添加到百度搜藏 添加到POCO网摘 添加到天天网摘365Key 添加到和讯网摘 添加到天极网摘 添加到黑米书签 添加到QQ书签 添加到雅虎收藏 添加到奇客发现 diigo it 添加到饭否 添加到飞豆订阅 添加到抓虾收藏 添加到鲜果订阅 digg it 貼到funP 添加到有道阅读 Live Favorites 添加到Newsvine 打印本页 用Email发送本页 在Facebook上分享


Disclaimer Privacy Policy About us Site Map

If you have any requirements, please contact webmaster。(如果有什么要求,请联系站长)
Copyright ©2011-
uuhomepage.com, Inc. All rights reserved.