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 = rsEnd Sub

Answer 2

'在工程里引用 microsoft activex data objects 2.7 library'然后随便画个命令控件，在命令控件的单击事件里(click)输入以下代码，并改成你的数据库名和数据库里的字段名。Dim cn As ADODB.ConnectionDim rs As ADODB.Recordsetdim i As LongSet cn = New ADODB.ConnectionSet rs = New ADODB.Recordsetcn.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.Openrs.Open "select * from 表1 ", cn, adOpenStatic, adLockOptimistic '表1这里改成你的表名i=1do while not rs.eof'这里编程输出查询结果if i=5 then msgbox rs.Fields (0) & " 这就是第5条记录"i=i+1rs.MoveNextlooprs.Close