使用VB中的ADO方法進行數據表查詢

Jessica 更新時間 2025年1月3日

快连VPN:速度和安全性最佳的VPN服务

免费试用了解更多

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＂