vb6用ado 连接数据库后，如何获得数据

VB6用Ado连接数据库后，通过Sql结构化查询语句获得数据库中表的数据。

结构化查询语言(Structured Query Language)简称SQL，是一种特殊目的的编程语言，是一种数据库查询和程序设计语言，用于存取数据以及查询、更新和管理关系数据库系统；同时也是数据库脚本文件的扩展名。

ADO 是为 Microsoft最新和最强大的数据访问范例 OLE DB 而设计的，是一个便于使用的应用程序层接口。OLE DB为任何数据源提供了高性能的访问，这些数据源包括关系和非关系数据库、电子邮件和文件系统、文本和图形、自定义业务对象等等。ADO 在关键的 Internet方案中使用最少的网络流量，并且在前端和数据源之间使用最少的层数，所有这些都是为了提供轻量、高性能的接口。

应用代码示例：

Private Sub Command1_Click()

  Dim cn As New ADODB.Connection '定义数据库的连接

  Dim rs As New ADODB.Recordset

  Dim sql As String

  sql = "select * from jishijilu"

  cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &App.Path &"\wd.mdbPersist Security Info=False"

  cn.Open

  rs.CursorLocation = adUseClient

  rs.Open sql, cn, adOpenDynamic, adLockOptimistic

  Set DataGrid1.DataSource = rs

End Sub

你既然单个ado可以 *** 作数据库，那对于 *** 作多个数据源，应该可以使用多个不同的ado对象分别 *** 作不同的数据源，从而进行所谓的跨数据源 *** 作的呀？

提示：ado1 *** 作数据库1，ado2 *** 作数据库2，然后所谓跨数据库，无非就是在使用数据前的对象指明ado1或ado2就可以了呀！

If

DBconnect.State

=

adStateOpen

And

Not

IsEmpty(adStateOpen)

Then

DBconnect.Close

这一句该会出问题。我也曾经试过判断过。后来我改用如下在判断语句:

if

DBConnect.State

=

1

then

DBConnect.Close

---