Question

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

'Data1.RecordSource = "select*form people where 姓名 like" + Chr(34) + Text16.Text + "*" + Chr(34) + ""这个语句没有指针变化

用Data1.Recordset.FindFirst ("姓名='张三'")可以找到，怎样把张三变成字符串变量呢?
例如dim xingming as string
xingming= = InputBox$("请输入姓名", "查窗体", 1)
Data1.Recordset.FindFirst ("姓名='xingming'")

Answer 1

　　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

Answer 2

用Data1.Recordset.FindFirst ("姓名='张三'")可以找到，怎样把张三变成字符串变量呢?

可以这么写：
Data1.Recordset.FindFirst ("姓名="&"'"+xingming+"')"这样就把输入的变量拼进去了。

Answer 3

1. 如果没有绑定数据源，是通过select语句实现一个记录集，绑定上

2. 如果有绑定数据源了，那就通过find语句在记录集中进行数据的查找。