VB6用Ado連接數(shù)據(jù)庫后，通過Sql結(jié)構(gòu)化查詢語句獲得數(shù)據(jù)庫中表的數(shù)據(jù)。

• 結(jié)構(gòu)化查詢語言(Structured Query Language)簡稱SQL，是一種特殊目的的編程語言，是一種數(shù)據(jù)庫查詢和程序設(shè)計語言，用于存取數(shù)據(jù)以及查詢、更新和管理關(guān)系數(shù)據(jù)庫系統(tǒng)；同時也是數(shù)據(jù)庫腳本文件的擴展名。

• ADO 是為 Microsoft最新和最強大的數(shù)據(jù)訪問范例 OLE DB 而設(shè)計的，是一個便于使用的應用程序?qū)咏涌凇LE DB為任何數(shù)據(jù)源提供了高性能的訪問，這些數(shù)據(jù)源包括關(guān)系和非關(guān)系數(shù)據(jù)庫、電子郵件和文件系統(tǒng)、文本和圖形、自定義業(yè)務(wù)對象等等。ADO 在關(guān)鍵的 Internet方案中使用最少的網(wǎng)絡(luò)流量，并且在前端和數(shù)據(jù)源之間使用最少的層數(shù)，所有這些都是為了提供輕量、高性能的接口。

• 應用代碼示例：

  Private Sub Command1_Click()

      Dim cn As New ADODB.Connection '定義數(shù)據(jù)庫的連接

      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

'在工程里引用 microsoft activex data objects 2.7 library
'然后隨便畫個命令控件，在命令控件的單擊事件里(click)輸入以下代碼，并改成你的數(shù)據(jù)庫名和數(shù)據(jù)庫里的字段名。
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 替換成你的數(shù)據(jù)庫
cn.Open
rs.Open "select * from 表1 ", cn, adOpenStatic, adLockOptimistic '表1這里改成你的表名
i=1
do while not rs.eof
'這里編程輸出查詢結(jié)果
if i=5 then msgbox rs.Fields (0) & " 這就是第5條記錄"
i=i+1
rs.MoveNext
loop
rs.Close