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

Question

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

Answer 1

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.0;Data Source=" & App.Path & "\wd.mdb;Persist Security Info=False"

      cn.Open

      rs.CursorLocation = adUseClient

      rs.Open sql, cn, adOpenDynamic, adLockOptimistic

      Set DataGrid1.DataSource = rs

  End Sub

Answer 2

'在工程里引用 microsoft activex data objects 2.7 library
'然后随便画个命令控件，在命令控件的单击事件里(click)输入以下代码，并改成你的数据库名和数据库里的字段名。
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
dim i As Long
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Jet OLEDB:Database Password = 111;Data Source=" & App.Path & "\1.mdb" '1.mdb 替换成你的数据库
cn.Open
rs.Open "select * from 表1 ", cn, adOpenStatic, adLockOptimistic '表1这里改成你的表名
i=1
do while not rs.eof
'这里编程输出查询结果
if i=5 then msgbox rs.Fields (0) & " 这就是第5条记录"
i=i+1
rs.MoveNext
loop
rs.Close