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

判断指定的WORD文档是否被打开的函数代码如下：

Function WordDocIsOpen(ByVal strDocName As String) As Boolean

Dim objWordApp As Object

Dim objWordDoc As Object

On Error Resume Next '此句不能少

strDocName = UCase(strDocName)

Set objWordApp = GetObject(, "Word.Application")

For Each objWordDoc In objWordApp.Documents

If UCase(objWordDoc.FullName) = strDocName Then

WordDocIsOpen = True

Exit For

End If

Next

Set objWordDoc = Nothing

Set objWordApp = Nothing

End Function

调用代码：

Private Sub main()

If WordDocIsOpen("e:/1.doc") Then

MsgBox "该文档已被打开"

Else

MsgBox "该文档未被打开"

End If

End Sub

---