Excel交流网
  • 设为首页|收藏本站|手机版
  • Excel-教程-技巧-培训视频

  • 网站首页
  • Excel教程
  • 新闻动态
  • Excel资源
  • 关于我们

Excel教程

Excel操作
Excel函数
Excel图表
Excel VBA
Excel 行业应用

联系方式

Excel中交流网 联系方式

QQ:18449932 


网  址:www.excel-cn.com  

当前位置:网站首页 > Excel教程 > Excel VBA
Excel VBA

Excel利用ADO录入数据

Excel电子表格,能很方便地录入数据。但是如果我们不想让用户直接在工作表上录入数据,而是通过一个另一个窗体或者其他界面录入呢?

那么我们可以通过ADO(ActiveX Data Objects,以实现访问关系或非关系数据库中的数据)来录入数据

如图所示,在Excel工作表中把数据添加到“Website.mdb"数据库中的一个表中。

e1.jpg


详细VBA代码:

Sub ADO录入数据到Access()

    Dim cnn As Object

    Dim rst As Object

    Set cnn = CreateObject("ADODB.Connection")

    Set rst = CreateObject("ADODB.recordset")

    Dim sql As String

    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & "F:Website.mdb"

'    sql = "insert into news (vtime,week,lunar,weather,title,content) VALUES ('" & [D3].Value & "','" & [D5].Value & "','" & [D7].Value & "','" & [D9].Value & "','" & [D11].Value & "','" & [D13].Value & "')"

    sql = "insert into news (vtime,week,lunar,weather,title,content) VALUES ('" & [D3].Value & "','" & [D5].Value & "','" & [D7].Value & "','" & [D9].Value & "','" & [D11].Value & "','" & [D13].Value & "')"

'    文本用'...',日期用#...#()

    cnn.Execute sql

    cnn.Close

    Set cnn = Nothing

End Sub


注:如果是新版的Access,连接字符串需要改为:cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & "F:Website.accdb" 


摘自:小智雅汇(头条号)




点击次数:  更新时间:2017-08-16 16:22:09  【打印此页】  【关闭】
上一条:Excel快速选择和插入函数  下一条:Excel 批量合并相同内容单元格
本站动态|在线留言|在线反馈|友情链接|会员中心|站内搜索|网站地图|网站管理

中山市天鸣科技发展有限公司 版权所有 1999-2024 粤ICP备10043721号

QQ:18449932

免费Excel教程、Excel技巧、Excel培训、Excel函数公式、Excel图表、Excel VBA

Excel教程|Excel技巧|Excel培训|Excel函数公式|Excel图表|VBA

Powered by MetInfo 5.3.12 ©2008-2025  www.metinfo.cn