李欢庆 發表於 2015-6-17 10:53:53

VB使用ADO操作Access数据库

<p>这里只是个简单不能再简单的VB小程序实例，但它包含这几个关键字：VB6.0、ADO、Access</p>
<p>环境：visual basic 6.0 企业版（非精简版，不然会缺少必须的控件）</p>
<p>数据库：Access数据库，数据库是xs.mbd，内建表为xj</p>
<p>结果：vb使用ADO连接access数据库，查询xj表中的所有数据，然后把查询到的结果循环输出到窗口中。</p>
<p>代码：</p>
<div class="jb51code">
<pre class="brush:vb;">
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 =" &amp;amp; App.Path &amp;amp; "/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
</pre>
</div>
<p>以上所述就是本文的全部内容了，希望大家能够喜欢。</p>
                           
                            <div class="art_xg">
                              <b>您可能感兴趣的文章:</b><ul><li>VB返回记录集结果到HTML表格的方法</li><li>VB获取文件大小的方法</li><li>VB.NET获取文件默认图标的方法</li><li>VB实现按行读取文本文件的方法</li><li>VB打开与保存txt文件的方法</li><li>VB键盘鼠标无动作调用程序的尝试</li><li>VB简单实现防止文件被改写</li><li>VB实现的《QQ美女找茬游戏》实例</li></ul>
                            </div>

                        </div>
                        <!--endmain-->
頁: [1]
查看完整版本: VB使用ADO操作Access数据库