VB如何調用并使用數據庫？

VB可將sql結構化查詢語句賦值Ado(ActiveX 數據對象)或ADO Data 控件，訪問和操作數據庫。

ADO (ActiveX 數據對象)，這項新的數據訪問技術的特性包括：更簡單的對象模型；與其它 Microsoft 和非 Microsoft 的技術更好的集成；為本地和遠程數據數據提供的通用接口；可遠程訪問的和斷開的記錄集；用戶可訪問的數據綁定接口；以及層次結構的記錄集。

ADO Data 控件， 這是一種新的、OLEDB 識別的數據源控件，其功能與內部的 Data 控件和 Remote Data 控件十分相似，通過這種方式允許用戶用最少的代碼來創建數據庫應用程序。

Visual Basic 6.0 中，已經可以將任何 ADO/OLE DB 數據源綁定到任何 ADO/OLE DB 數據使用者上。在運行時，可以設置控件的 DataSource 屬性來將控件動態地綁定到數據源。可以創建用作數據源和數據使用者的類，并且通過新的 BindingsCollection 對象將這些類綁定在一起。可以創建與 ADO 數據控件相似的、用作數據源的用戶控件。還可以創建與 DataGrid 控件相似的、復雜綁定的用戶控件。

以下是經ADO (ActiveX 數據對象)訪問Access數據庫的實例代碼：

Dim cnn As New Connection Dim rs As New Recordset Dim sql As String Dim ARR cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\wdOld.mdb;Persist Security Info=False" sql = "select 故障名稱 from guzhang_bm" rs.Open sql, cnn Combo1.Text = "故障名稱" Do While Not rs.EOF Combo1.AddItem rs("故障名稱") rs.MoveNext '打開表 Loop rs.Close cnn.Close

以下是使用ADO Data 控件訪問Access數據庫德實例代碼：

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\wd.mdb;Persist Security Info=False" Adodc1.RecordSource = "select * from jishijilu" ' where shijian like'%8112%' And gyh_riqi like'%10%'" Adodc1.Refresh Set MSHFlexGrid1.DataSource = Adodc1 MSHFlexGrid1.Row = 1 MSHFlexGrid1.ColSel = MSHFlexGrid1.Cols - 1