【关于VB连接EXCEL数据库以ADODB方式】

已于 2022-12-13 19:59:59 修改
阅读量1k 收藏 4
点赞数 1
分类专栏： visha blasic 6.0 文章标签： 数据库 excel
于 2022-12-13 19:58:44 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/Thisnameisabout/article/details/128307028
版权

ADODB数据库连接EXCEL的故事

唐僧ADODB想熄灭火焰
大徒弟悟空ADODB.Connection能打开Open剧情找到铁扇公主EXCEL
ADODB.Connection用Execute向公主的铁扇Sheet1$发出sql语句得到扇子数据给八戒ADODB.Recordset
随后牛魔王arr1赶来让ADODB.Recordset被骗getrows(-1)获取了数据

dim AdodbConnection as new ADODB.Connection
dim AdodbRecordset as new ADODB.Recordset
Tieshanstr=file1.path & “” & file1.filename
set AdodbConnection.open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & Tieshanstr & “;Extended Properties=”“Excel 8.0;HDR=No;IMEX=1"”"
set AdodbRecordset = AdodbConnection.execute (“select * form [Sheet1$]”)
arr1= AdodbRecordset.Getrows(-1)

VISUSALBAISIC6.0
关注
  • 1
    点赞
  • 踩
  • 4
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
专栏目录
VB访问Excel的三种方法(dao,adodb,excel对象)
03-06
VB访问Excel的三种方法(dao,adodb,excel对象) 绝对的源码+详细说明，绝对的可以运行，绝对的让你满意
【VBA研究】Excel VBA利用ADODB访问数据库使用小结
热门推荐
驽马十驾 才定不舍
01-09 4万+
作者：iamlaosong ▲连接Oracle数据库    Set cnn = CreateObject("ADODB.Connection")    cnn.Open "Provider=msdaora;Data Source=dl580;User Id=emssxjk;Password=emssxjk;"    dl580是tnsnames.ora中配置的服务名。▲创建记录集recordset...
Excel - 使用VBA通过ADO数据库连接来操作一个Excel数据源
guoqx的专栏
08-14 4788
这是Excel提供的一个非常关键的功能，因为想象一下，如果你的Excel文件包含非常巨大的数据，比如说超过10000x500个单元格的数据，你必须根据一些条件从整个工作簿中获取一些数据。你可以将Excel工作簿作为一个完整的数据库来阅读，也就是说，Excel文件可以作为数据库。1，在你的Excel文件中存储数据，并将其保存在系统中的某个位置，例如 "DB Data.xlsx"3，打开一个新的excel文件，你将从 "DB Data.xlsx "中获取数据。10，可以将此VBA函数指定一个按键，方便执行。..
vb调用excel及access
demonzsmj12315的博客
01-11 228
菜单 [工程]-[引用] Microsoft ActiveX Data Objects 2.x VB中操作Excel的一般做法1、定义Excel操作变量Dim objExcelFile As Excel.ApplicationDim objWorkBook As Excel.WorkbookDim objImportSheet As Excel.Worksheet2、打开Excel进程...
Excel VBA利用ADODB访问数据库使用小结
Jacky's Blog
05-09 8502
连接Oracle数据库     Set cnn = CreateObject("ADODB.Connection")     cnn.Open "Provider=msdaora;Data Source=dl580;User Id=emssxjk;Password=emssxjk;"     dl580是tnsnames.ora中配置的服务名。 ▲创建记录集recordse
excel-ADO技术-VBA连接mySQL 与orcal
mfkpie的专栏
07-19 5042
转至http://club.excelhome.net/tree/index-164.html http://club.excelhome.net/tree/index-164.html 可以使用以下代码在EXCEL上使用VBA连接MYSQL数据库 Dim strconnt As String   strconnt = ""   Set connt = New ADODB.Con
vb与EXCEL的连接
sun13047140038的博客
07-31 1294
绘制消息框前发送此消息给消息框的所有者窗口，通过响应这条消息，所有者窗口可以通过使用给定的相关显示设备的句柄来设置消息框的文本和背景颜色。，如果某个菜单是激活的，就发送此消息个此窗口关联的菜单，否则就发送给有焦点的窗口，如果当前都没有焦点，就把此消息发送给当前激活的窗口。当用户已经登入或退出后发送此消息给所有的窗口，当用户登入或退出时系统更新用户的具体设置信息，在用户更新设置时系统马上发送此消息；此消息在一个拥有焦点的窗口实现它的逻辑调色板后发送此消息给所有顶级并重叠的窗口，以此来改变系统调色板。
VB使用ADODB操作数据库的常用方法
wmdk007的博客
10-10 5951
准备工作 Dim conn As New ADODB.Connection '创建一个 Connection 实例，在这里使用New等于将Dim和Set合并为一段代码执行 Dim rs As ADODB.Recordset '创建一个 Recordset 实例，不使用New 是因为，经常需要重复使用Set，因此没必要在这里使用 Dim CnStr As String, Sql As String '创建两个字符串变量分别存放两个集合的SQL语句代码段 1、装载数据库(不属于Recordset集合
Excel·VBA使用ADO读取工作簿工作表数据
hhhhh_51的博客
10-07 1958
不打开工作簿读取数据：查询遍历写入数组；查询整体写入数组；查询工作簿所有工作表名称；查询工作簿所有工作表数据
利用ADO操作Excel文件
u012767067的专栏
04-11 2007
http://blog.csdn.net/tabby/article/details/1889217 今天花时间研究了一下ADO操作Excel文件的问题，跟大家分享一下： 首先利用Excel2003创建了一个名为Demo.xls的文件，内容如下： Name Age TY 12 TZL 15 然后打开V
VBS 两种方式读取Excel
07-17 3724
1：ADODB方式 Function GetConfig(sConfigFile, sSheet,sCaseId) ' Call PrintLog(Now, LOG_STATUS_INFO, "GetConfig(" & sConfigFile & "," & sSheet & ")") Dim oDictionary, oConnection Se...
VB连接Excel示例
05-02
摘要:VB源码,数据库应用,Excel　　VB连接Excel，读取Excel中的内容，使用微软提供的驱动可连接到Excel，并读取出各表格中的数值。程序使用说明：数据库密码为：111
VB6实现连接Access数据库的ADODB代码实现方法
09-04
主要介绍了VB6实现连接Access数据库的ADODB代码实现方法,对于初学者掌握VB链接access数据库有着很好的借鉴价值,需要的朋友可以参考下
VB语言使用ADO连接、操作SQLServer数据库教程
09-04
主要介绍了VB语言使用ADO连接、操作SQLServer数据库教程,本文讲解详细、代码中有大量注释,是非常好的一篇教程,需要的朋友可以参考下
php adodb连接不同数据库
12-17
复制代码 代码如下:<... //连接PostgreSQL数据库 ?> 复制代码 代码如下:<?php include(“adodb/adodb.inc.php”); //包含adodb类库文件 $conn = NewADOConnection(‘mysql://root:1981427@localhost/test’);
VB连接SQL数据库示例
12-01
VB连接SQL数据库示例 建一个工程,建立一个form1,form1中的代码如下: Dim rsNew As ADODB.Recordset Dim CnNew As ADODB.Connection Dim wsh As New WshShell Dim serverlink As String Private Sub Command1_Click()
VB Access数据库与ADODB编程入门
04-21
VB Access数据库与ADODB编程入门
【课堂练习】
最新发布
JacksonLeo的博客
04-29 280
虽然现代JVM的垃圾回收机制已经非常高效，但是在性能敏感的场合，仍然需要注意对象的创建频率。例如，在SysLogininforMapper中的deleteLogininforByIds方法，如果处理大量ID时，应考虑使用批处理技术，而不是循环单条处理。例如，在SysMenuMapper中的查询方法，如果涉及到复杂的查询条件或者大量数据的查询，应确保SQL语句的优化和索引的使用。异常处理：代码中应该有更明确的异常处理逻辑，比如使用try-catch块捕获可能的异常，并进行适当的处理，如记录日志、回滚事务等。
探秘MySQL主从复制的多种实现方式
todoitbo的博客
04-26 1031
本文将深入探讨MySQL主从复制的多种实现方式，包括基于语句、基于行和混合模式等。无论您是初学者还是有经验的数据库管理员，都能通过本文全面了解MySQL主从复制技术的多样化选择，从而提高数据库的可用性和性能。
vb导入excel到数据库
06-07
您可以使用以下步骤将 Excel 文件中的数据导入到数据库中： 1. 在 VB 中添加对 ADO 的引用。 2. 定义连接字符串，指定数据库类型、服务器、数据库名称、用户名、密码等信息。 3. 使用 ADO 连接到数据库。 4. 使用 ADO 打开 Excel 文件，将数据读入 DataTable 中。 5. 遍历 DataTable 中的数据，将数据插入到数据库表中。 6. 关闭 ADO 连接和 Excel 文件。 下面是一个示例代码，演示如何将 Excel 文件中的数据导入到 SQL Server 中： ``` Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sConnString As String Dim sExcelFilePath As String Dim sExcelSheetName As String Dim sSQLServerName As String Dim sDatabaseName As String Dim sTableName As String '设置连接字符串 sSQLServerName = "localhost" sDatabaseName = "testdb" sTableName = "mytable" sConnString = "Provider=SQLOLEDB;Data Source=" & sSQLServerName & ";Initial Catalog=" & sDatabaseName & ";Integrated Security=SSPI;" '连接到数据库 conn.Open sConnString '打开 Excel 文件 sExcelFilePath = "C:\data\mydata.xlsx" sExcelSheetName = "Sheet1" rs.Open "SELECT * FROM [" & sExcelSheetName & "$]", "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sExcelFilePath & ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";", adOpenStatic, adLockOptimistic '将数据插入到数据库表中 Do While Not rs.EOF conn.Execute "INSERT INTO " & sTableName & " (col1, col2, col3) VALUES ('" & rs.Fields(0).Value & "', '" & rs.Fields(1).Value & "', '" & rs.Fields(2).Value & "')" rs.MoveNext Loop '关闭连接和记录集 rs.Close conn.Close ``` 在上面的示例代码中，我们假设要将 Excel 文件中的数据插入到 SQL Server 的 testdb 数据库中的 mytable 表中，Excel 文件的路径为 C:\data\mydata.xlsx，Excel 文件中的表名为 Sheet1，数据列分别为 col1、col2 和 col3。您需要根据实际情况修改连接字符串、Excel 文件路径、表名和数据列名等信息。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

VISUSALBAISIC6.0

共享动力努力原创

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值