`
bolutes
  • 浏览: 863446 次
文章分类
社区版块
存档分类
最新评论

Excel 数据导入到 Access、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

分享到:
评论

相关推荐

    Excel2DB-Excel导入数据共通程序

    终于在一个"寂寞难耐"的周末,完成了一个Excel导入数据库(支持Sql Server 2000,2005; Access,Oracle未测试)的共通程序(可配置和验证).闲暇时间测试了一下,功能和效率(1000条3-4秒)方面还不错. 此DLL在做导入程序至少...

    Access 2007 VBA宝典 1/4

     18.2 准备要升迁到SQL Server的Access数据库  18.3 为Access数据配置SQL Server 2005  18.3.1 通过防火墙  18.3.2 其他安全障碍  18.4 使用升迁向导  18.4.1 将Access表转换为SQL Server表  18.4.2 ...

    Access 2007 VBA宝典 3/4

     18.2 准备要升迁到SQL Server的Access数据库  18.3 为Access数据配置SQL Server 2005  18.3.1 通过防火墙  18.3.2 其他安全障碍  18.4 使用升迁向导  18.4.1 将Access表转换为SQL Server表  18.4.2 ...

    Access 2007 VBA宝典 2/4

     18.2 准备要升迁到SQL Server的Access数据库  18.3 为Access数据配置SQL Server 2005  18.3.1 通过防火墙  18.3.2 其他安全障碍  18.4 使用升迁向导  18.4.1 将Access表转换为SQL Server表  18.4.2 ...

    基于MySQL玩转SQL数据分析课程 互联网数据分析师-SQL数据分析实战视频教程.txt

    ├─(54) 数据导入.xlsx ├─(55) 数据导出2.csv ├─(56) 熟悉dbeaver工具.sql (16)\SQL课程素材软件下载\SQL素材下载\第三章 数Ju库工具\SQL server 2008;目录中文件数:1个 ├─(57) SQL server 2008安装有关...

    DataPie导入导出工具 v2.0.4源码

    可以从Excel中导入数据到数据库,也可以将数据库中的数据导出。 更新日志: V2.04,2012年3月12日 新增treeview控件节点的双击事件,添加导出默认文件名,修订打包程序,修订默认导出表最大数量为10,新增存储过程...

    Access 2007 VBA宝典 4/4

     18.2 准备要升迁到SQL Server的Access数据库  18.3 为Access数据配置SQL Server 2005  18.3.1 通过防火墙  18.3.2 其他安全障碍  18.4 使用升迁向导  18.4.1 将Access表转换为SQL Server表  18.4.2 ...

    Access 2000数据库系统设计(PDF)---002

    1457.2.4 处理外部文件中的图像 1487.2.5 将字段数据类型转换为Access数据 类型 1497.2.6 使用链接表管理器加载项重新 链接表 1507.2.7 导入表和将数据库文件链接为表 1507.3 导入和链接电子数据表文件 1517.3.1 ...

    Access 2000数据库系统设计(PDF)---003

    1457.2.4 处理外部文件中的图像 1487.2.5 将字段数据类型转换为Access数据 类型 1497.2.6 使用链接表管理器加载项重新 链接表 1507.2.7 导入表和将数据库文件链接为表 1507.3 导入和链接电子数据表文件 1517.3.1 ...

    Access 2000数据库系统设计(PDF)---009

    1457.2.4 处理外部文件中的图像 1487.2.5 将字段数据类型转换为Access数据 类型 1497.2.6 使用链接表管理器加载项重新 链接表 1507.2.7 导入表和将数据库文件链接为表 1507.3 导入和链接电子数据表文件 1517.3.1 ...

    Access 2000数据库系统设计(PDF)---018

    101.6 浏览和编辑子数据表中的相关记录 111.7 使Jet和SQL Server 7.0/MSDE数据库相一致 111.8 Access在2000年问题上的改进 121.8.1 四位数年份选项设置 121.8.2 数据库窗口 131.8.3 窗体和报表 141.8.4 名称自动更正...

    Access 2000数据库系统设计(PDF)---011

    101.6 浏览和编辑子数据表中的相关记录 111.7 使Jet和SQL Server 7.0/MSDE数据库相一致 111.8 Access在2000年问题上的改进 121.8.1 四位数年份选项设置 121.8.2 数据库窗口 131.8.3 窗体和报表 141.8.4 名称自动更正...

    Access 2000数据库系统设计(PDF)---020

    101.6 浏览和编辑子数据表中的相关记录 111.7 使Jet和SQL Server 7.0/MSDE数据库相一致 111.8 Access在2000年问题上的改进 121.8.1 四位数年份选项设置 121.8.2 数据库窗口 131.8.3 窗体和报表 141.8.4 名称自动更正...

    Access 2000数据库系统设计(PDF)---001

    1457.2.4 处理外部文件中的图像 1487.2.5 将字段数据类型转换为Access数据 类型 1497.2.6 使用链接表管理器加载项重新 链接表 1507.2.7 导入表和将数据库文件链接为表 1507.3 导入和链接电子数据表文件 1517.3.1 ...

    Access 2000数据库系统设计(PDF)---015

    101.6 浏览和编辑子数据表中的相关记录 111.7 使Jet和SQL Server 7.0/MSDE数据库相一致 111.8 Access在2000年问题上的改进 121.8.1 四位数年份选项设置 121.8.2 数据库窗口 131.8.3 窗体和报表 141.8.4 名称自动更正...

    Access 2000数据库系统设计(PDF)---012

    101.6 浏览和编辑子数据表中的相关记录 111.7 使Jet和SQL Server 7.0/MSDE数据库相一致 111.8 Access在2000年问题上的改进 121.8.1 四位数年份选项设置 121.8.2 数据库窗口 131.8.3 窗体和报表 141.8.4 名称自动更正...

    Access 2000数据库系统设计(PDF)---025

    101.6 浏览和编辑子数据表中的相关记录 111.7 使Jet和SQL Server 7.0/MSDE数据库相一致 111.8 Access在2000年问题上的改进 121.8.1 四位数年份选项设置 121.8.2 数据库窗口 131.8.3 窗体和报表 141.8.4 名称自动更正...

    Access 2000数据库系统设计(PDF)---027

    101.6 浏览和编辑子数据表中的相关记录 111.7 使Jet和SQL Server 7.0/MSDE数据库相一致 111.8 Access在2000年问题上的改进 121.8.1 四位数年份选项设置 121.8.2 数据库窗口 131.8.3 窗体和报表 141.8.4 名称自动更正...

    Access 2000数据库系统设计(PDF)---026

    101.6 浏览和编辑子数据表中的相关记录 111.7 使Jet和SQL Server 7.0/MSDE数据库相一致 111.8 Access在2000年问题上的改进 121.8.1 四位数年份选项设置 121.8.2 数据库窗口 131.8.3 窗体和报表 141.8.4 名称自动更正...

    Access 2000数据库系统设计(PDF)---029

    101.6 浏览和编辑子数据表中的相关记录 111.7 使Jet和SQL Server 7.0/MSDE数据库相一致 111.8 Access在2000年问题上的改进 121.8.1 四位数年份选项设置 121.8.2 数据库窗口 131.8.3 窗体和报表 141.8.4 名称自动更正...

Global site tag (gtag.js) - Google Analytics