gpt4 book ai didi

VB使用ADO操作Access数据库

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 33 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章VB使用ADO操作Access数据库由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

这里只是个简单不能再简单的VB小程序实例,但它包含这几个关键字:VB6.0、ADO、Access 。

环境:visual basic 6.0 企业版(非精简版,不然会缺少必须的控件) 。

数据库:Access数据库,数据库是xs.mbd,内建表为xj 。

结果:vb使用ADO连接access数据库,查询xj表中的所有数据,然后把查询到的结果循环输出到窗口中.

代码:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Form_Click()
Dim db As New ADODB.Connection, RS As New ADODB.Recordset 'ADO连接对象和记录集
Dim strSQL As String 'SQL字符串
db.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "/xs.mdb" '数据库连接
db.Open '打开数据库
 
strSQL = "select * from xj" 'SQL字符串
RS.Open strSQL, db, 3, 1 '查询数据表
Do While Not RS.EOF '循环输出查询到的结果
Print RS!姓名; RS!性别; RS!班级; RS!出生年月 '在窗口中打印输出结果
RS.MoveNext '记录下移
Loop
RS.Close '关闭记录集
Set RS = Nothing
End Sub

以上所述就是本文的全部内容了,希望大家能够喜欢.

最后此篇关于VB使用ADO操作Access数据库的文章就讲到这里了,如果你想了解更多关于VB使用ADO操作Access数据库的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

33 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com