使用VB中的ADO方法進行資料表查詢

VB如何使用ADO方法查詢資料表裡的一段資料

用控制項簡單.

前提條件要把adodc控制項正常連接的資料庫上

datagrid控制項綁定到adodc控制項上

Private Sub Command1_Click()

'連接資料庫

Adodc1.ConnectionString = ＂Provider=Microsoft.Jet.OLEDB.4.0;Data Source=＂ & App.Path & ＂\資料庫.mdb＂

#'查詢

Adodc1.RecordSource = ＂select * from 表 where 姓名 like '＂ & Text1.Text & ＂' and 專業 like '＂ & Text2.Text & ＂'＂

Adodc1.Refresh

End Sub

VB怎麼用ADO控制項連接資料庫用程式碼連線

先引用ADO：工程--引用--選擇MS ActiveX Data Objects

##程式碼：

Dim Access_Con As Connection

#Set Access_Con = New Connection

#Access_Con.ConnectionString = ＂Provider=Microsoft.jet.oledb.4.0;data source=＂ & App_Path & ＂\FHL資料.mdb;＂

Access_Con.Open

Dim rs As Recordset

Set rs = New Recordset

rs.Open ＂select * from 使用者管理＂， Access_Con

''''查詢結果會在rs中，可以把rs綁定在datagrid裡查看資料等

在VB中用ADO控制項連接Access資料庫

新建工程時選資料工程，此時VB6整合偵錯環境左邊工具箱內已載入了有關資料庫程式設計必須的控制項。

然後在FORM1窗體中加入ADODC控制項和DATAGRID控件，將DATAGRID1的屬性DATASOURCE選ADODC1，開啟ADODC1控制項屬性頁使用連接字串，選生成，在提供者選項中選MICROSOFT jet 4.0 OLE DB Provider，然後按要連接資料庫等。在ADODC1控制項屬性頁使用連接字串空白文字視窗就有一長串字串，注意該字串可複製到程式碼用於程式設計。 ADODC1控制項屬性頁的資料來源內有指令文字（SQL）編寫視窗可編寫SQL查詢語言。此視窗的SQL語句可複製到程式碼用於程式設計。

SQL查詢語言主要結構為：

Select 查詢欄位 from 表名 Where 查詢條件語句 [排序語句或分組語句]

查詢欄位必須分別用（西文）逗號分開或就用一個*號代替，上述查詢中排序語句建議最好應用。

SQL查詢語言如有錯程式執行時告訴你出錯，作相應改動即可。本人一般先按上述連接，SQL用＂SELECT * FROM TabelName＂作調試，無問題，用一個按鈕孔件將前述需複製的連接字符串和SQL查詢語言先複製於按鈕控件的CLICK事件中備著，以便放著以後使用。然後刪除ADODC1孔件，再加入ADODC1控制項再添其他內容。

以下為程式碼實例：

Private Sub Form_Load()

Text1 = ＂＂

#With Adodc1

Adodc1.ConnectionString = ＂Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db1.mdb;Persist Security Info=False＂

Adodc1.RecordSource = ＂select name from b1 order by name＂

Adodc1.Refresh

DataGrid1.Refresh

End With

End Sub

Private Sub Text1_Change()

Adodc1.ConnectionString = ＂Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db1.mdb;Persist Security Info=False＂

Adodc1.RecordSource = ＂select name from b1 where name >='＂ & Text1 & ＂' order by name＂

Adodc1.Refresh'對查詢更新

DataGrid1.Refresh

End Sub

以上是使用VB中的ADO方法進行資料表查詢的詳細內容。更多資訊請關注PHP中文網其他相關文章！