您现在的位置是：首页 > 故事语录 > 励志语录励志语录
VBA连接数据库(vba连接网络数据库)
admin2022-11-28 09:01:37励志语录135人已围观
简介VBA连接数据库(vba连接网络数据库),本文通过数据整理汇集了VBA连接数据库(vba连接网络数据库)相关信息，下面一起看看。今天讲解的内容是如何建立数据库连接，并举例说明如何从数据库中找到有用的记录并填入表格中。首先我们需要打开一个工作表，它的A列值是数据库中要查询的字段，用数据库中找到的其他内容填充这个工作表中B:G列的位置。好了，我们先来看下面这
VBA连接数据库(vba连接网络数据库),本文通过数据整理汇集了VBA连接数据库(vba连接网络数据库)相关信息，下面一起看看。
今天讲解的内容是如何建立数据库连接，并举例说明如何从数据库中找到有用的记录并填入表格中。
首先我们需要打开一个工作表，它的A列值是数据库中要查询的字段，用数据库中找到的其他内容填充这个工作表中B: G列的位置。好了，我们先来看下面这段代码，在代码的过程中有详细的讲解。有些比较容易，有些比较难懂，但没关系。有兴趣的读者可以仔细琢磨，一步一步来看。当我研究VBA的时候，资料很少，有些需要我自己去探索。当这个平台上的资料多了，我也希望有英雄能给我一本书，对大家的学习都有好处。
1将我的数据显示为字符串，将我的表显示为字符串
2 Dim wb作为工作簿
3将ws作为工作表变暗
4 Dim i一样长，j一样长
5
6
7 Dim cnn As ADODB。关系
8 Dim rs As ADODB。记录集
“Set WB=thisworkbook”指定工作簿。
1setws=wb.sheets ('a-RR ')'指定工作表名称。
11昏暗路径
1path=activeworkbook.path'' \ ' '路径名
13 ChDir路径
1mydata=' d: \ rr'' \ mydata.mdb ' '指定新的数据库名称(完整路径)
15 myTable='RR data ' '指定数据库的数据表的名称。
检查是否已经存在同名的数据库文件。
16如果Dir(myData)="，则
7msgbox (mydata '不存在！')
如果它不存在，释放变量并退出。
18设置wb=无
19设置ws=无
20套rs=无
21
22
23设置cnn=无
24结束
其他25个
如果数据库文件已经存在，请检查数据表是否存在。
建立到数据库的连接。
26设置cnn=New ADODB。关系
27与cnn
28 .provider=' Microsoft . jet . oledb . 4.0 '
29 .打开我的数据
30结尾为
开始查询数据表是否存在。
31套rs=cnn。OpenSchema(adSchemaTables)
32个直到rs。文件结束
33 If LCase(rs！Table _ name)=lcase (my table)然后gotohh '如果找到了，就退出循环。
继续查询。
34 rs。下一步
35圈
释放变量，退出(这个没有找到)
36设置wb=无
37设置ws=无
38套rs=无
39
40
41设置cnn=无
4msgbox('此工作表不存在！')
43结束
hhh:
44结束If
在这里，我找到了一条记录，打开了数据库。
45张(' A-RR ')。挑选
4范围(' B2: G3000 ')。“清除”以准备填充数据。
47 Set rs=New ADODB。记录集
48 t=2
49 Do While Cells(t，1)' '
50个细胞(t，1)。挑选
51 Sql='select * from ' myTable _
52 '其中RR=' ' '' ws。单元格(t，1)。值'''
53 rs。打开Sql，cnn，adOpenKeyset，adLockOptimistic
54如果rs。那么RecordCount=0
如果数据库中的工作表行中没有数据，只需
55 ws。单元格(t，2)。值='找不到'
56 ws。细胞(t，3)。值='找不到'
其他57个
如果数据库中有一行工作表数据，数据将被更新。
58 ws。单元格(t，2)。价值=卢比。字段(1)
59 ws。细胞(t，3)。价值=卢比。字段(2)
60结束If
61 rs。‘关’是关，这里的RS必须关，这是必须的。
62吨=1吨
63回路
6msgbox“完成！”，vbInformation vbOKOnly
关闭数据库并查询数据集。
65 cnn。关闭
释放变量。
66设定wb=无
67设置ws=无
68集rs=无
69设置myCmd=Nothing
70 Set myCat=Nothing
71设置cnn=无
看看下面的截图：
到目前为止，这项任务已经完成。用VBA控制EXCEL是这个平台的高级内容，但是程序的思想、思路、编写功能是一致的，都要按照规定的路线进行。如果你检测到你没有按照自己的想法运行程序，那是绝对不可能的。关注这个平台，经常会有类似的大段代码供你参考。当然，上面的代码也是解决这类问题的通用代码。读者可以用，没问题。
分享成果，享受正能量。
更多VBA连接数据库(vba连接网络数据库)相关信息请关注本站，本文仅仅做为展示！
很赞哦！ ()
相关文章
随机图文
| 留言与评论 （共有 条评论） |