VB6.0中怎样使用data控件实现数据库查找功能

1、使用data控件的FindFirst方法可以实现数据库记录的查找。

2、工具：vb6。

3、具体实现方法：

a)在窗体上添加data1、dbgrid1、text1、command1、label1

b)在dbgrid1的DataSource属性里选择data1

c)实现代码如下：

Private Sub Command1_Click()

    '查找定位记录

    Data1.Recordset.FindFirst "CategoryID=" & Text1.Text

DBGrid1.DataSource

End Sub

Private Sub Form_Load()

    Data1.Connect = "Access 2000" '设置数据库类型

    Data1.DatabaseName = "C:\db1.MDB" '连接数据库

    Data1.RecordSource = "Categories" '数据库中的表

    Data1.Refresh '打开数据库

End Sub

4、注意：数据库可以使用vb6文件夹内的NWIND.MDB

Private Function Selectsql(SQL As String) As ADODB.Recordset      

   Dim ConnStr As String

    Dim Conn As ADODB.Connection

    Dim rs As ADODB.Recordset

    Set rs = New ADODB.Recordset

    Set Conn = New ADODB.Connection

        path1 = App.Path + "\db1.mdb"   '数据库路径

    ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" & path1 & "Persist Security Info=False"      

Conn.Open ConnStr

    rs.CursorLocation = adUseClient

    rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic

    Set Selectsql = rs

    End Function  Private Sub Command1_Click()

 SQL1 = "select time  from timetable  where name= '" & Trim(Text1.Text) & "'"

 Set rs = Selectsql(SQL1)

 Text2.Text = rs("time")

End Sub

下面的代码基于以下4点假设：

1，控件的名称分别是：

3个文本框从上到下：Text1、Text2、Text3

ADO控件名为：Adodc1，网格控件名为：DataGrid1

2，根据你给出的图片，字段[钢级]为字符类型、[外径]和[壁厚]为数值类型。

3，你的数据库文件名为“数据库.mdb”,且已经保存在与本工程文件同一个文件夹里。

4，你所使用的数据表名为“钢材数据表”

那么，在[查询]按钮的单击事件里，编写如下代码就可以实现你的要求：

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &App.Path &"\数据库.mdbPersist Security Info=False"

Adodc1.RecordSource = "select * From 钢材数据表 Where 钢级='" &Text1.text &"' And 外径=" &trext2.text &" And 壁厚=" &text3.text

Adodc1.Refresh

If Not (Adodc1.Recordset.EOF And Adodc1.Recordset.BOF) Then

　Set DataGrid1.DataSource = Adodc1

Else

　MsgBox "没找到！"

End If

---