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

---