VB6.0中通過使用ADO數據對象或使用ADO Data 控件來關聯ACCESS的MDB數據庫和SQL結構化查詢語言來導入數據。
ADO Data 控件, ADO Data 控件使用 Microsoft ActiveX?數據對象(ADO)?來快速建立數據綁定的控件和數據提供者之間的連接。數據綁定控件是任何具有“數據源”屬性的控件。數據提供者可以是任何符合 OLEDB 規範的數據源。使用?Visual Basic 的類模塊也可以很方便地創建子集的數據提供者。
盡管可以在應用程序中直接使用 ActiveX?數據對象(ADO),但 ADO Data 控件有作為壹個圖形控件的優勢(具有“向前”和“向後”按鈕),以及壹個易於使用的界面,使您可以用最少的代碼創建數據庫應用程序。
ADO 是為 Microsoft最新和最強大的數據訪問範例 OLE DB 而設計的,是壹個便於使用的應用程序層接口。OLE DB為任何數據源提供了高性能的訪問,這些數據源包括關系和非關系數據庫、電子郵件和文件系統、文本和圖形、自定義業務對象等等。ADO 在關鍵的 Internet方案中使用最少的網絡流量,並且在前端和數據源之間使用最少的層數,所有這些都是為了提供輕量、高性能的接口。之所以稱為 ADO,是用了壹個比較熟悉的暗喻,OLE自動化接口。同時 ADO 使用了與 DAO和 RDO相似的約定和特性,簡化的語義使它更易於學習。
結構化查詢語言(Structured Query Language)簡稱SQL,是壹種特殊目的的編程語言,是壹種數據庫查詢和程序設計語言,用於存取數據以及查詢、更新和管理關系數據庫系統;同時也是數據庫腳本文件的擴展名。
應用代碼示例:
ADO:
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
ADO Data控件:
Private Sub Command2_Click()
sql = "select * from jishijilu"
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\wd.mdb;Persist Security Info=False"
Adodc1.RecordSource = sql
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub