手机
当前位置:查字典教程网 >编程开发 >vb >VB使用ADO操作Access数据库
VB使用ADO操作Access数据库
摘要:这里只是个简单不能再简单的VB小程序实例,但它包含这几个关键字:VB6.0、ADO、Access环境:visualbasic6.0企业版(非...

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

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

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

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

代码:

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实现的《QQ美女找茬游戏》作弊器实例

关于MSCOMM控件的一些说明第1/2页

VB编程基础课教程

VB返回记录集结果到HTML表格的方法

如何产生真正的随机函数?

VB的TextBox文本框实现垂直居中显示的方法

VB键盘鼠标无动作调用程序的尝试

VB实现鼠标绘图实例代码

VB读取线程、句柄及写入内存的API代码实例

VB使用shell函数打开外部exe程序的实现方法

精品推荐
分类导航