向大家请教，怎样列出符合查询条件的纪录的各项数据呢？我编完后运行总是“没有找到该数据”可是我明明输入和数据库表里相应字段一样的字符串了阿，可就是查不到，也无法显示找到的数据

[ozarkgirl]

向大家请教，怎样列出符合查询条件的纪录的各项数据呢？我编完后运行总是“没有找到该数据”可是我明明输入和数据库表里相应字段一样的字符串了阿，可就是查不到，也无法显示找到的数据，以下是我的代码
Private Sub Command2_Click()
If Data1.Recordset("客户") = kehu.Text Then
show1.Text = Data1.Recordset("客户")
show2.Text = Data1.Recordset("名称")
show3.Text = Data1.Recordset("地址")
show4.Text = Data1.Recordset("电话")

Else
MsgBox "没有找到该数据"
End If

End Sub

[ozarkgirl]

帮帮忙阿各位

[ozarkgirl]

代码在上面请高手帮我看看

[cqq_chen]

我没有用过DATA控件，但你的代码一看就有问题。问题在：你的记录没有移动，DATA如何给你所要查找的记录定位呢？

[ozarkgirl]

一定给分一定给分

[baoxiang]

先写个
Data1.RecordSource="select * from 你的表名 where 客户 = '" & kehu.Text "'"
或用以下写法
if not data1.recordset.eof and not data1.recordset.bof then
data1.recordset.movefirst
do while not data1.recordset.eof
If Data1.Recordset("客户") = kehu.Text Then
show1.Text = Data1.Recordset("客户")
show2.Text = Data1.Recordset("名称")
show3.Text = Data1.Recordset("地址")
show4.Text = Data1.Recordset("电话")
End If
data1.recordset.movenext
loop
end if

这样就把第一条纪录读出来了

[ozarkgirl]

瓦赛~~~我太爱你们了，我的分都给你们我也认了

[ozarkgirl]

楼上的兄弟着行报错啊
If Not Data1.Recordset.EOF And Not Data1.Recordset.BOF Then

[cqq_chen]

看看MSDN中关于DATA的帮助啊！有时得自己看看，学的快些。

[ozarkgirl]

怎样得到msdn的data的帮助呢？

[baoxiang]

报错？？？
不会吧。
你的RecordSource设过了？
这行没错啊。
Data1.Databasename=""
data1.recordsource=""
data1.refresh
if not data1.recordset.eof and not data1.recordset.bof then
data1.recordset.movefirst
do while not data1.recordset.eof
If Data1.Recordset("客户") = kehu.Text Then
show1.Text = Data1.Recordset("客户")
show2.Text = Data1.Recordset("名称")
show3.Text = Data1.Recordset("地址")
show4.Text = Data1.Recordset("电话")
End If
data1.recordset.movenext
loop
end if

[ozarkgirl]

Data1.Databasename=""
data1.recordsource=""
data1.refresh
if not data1.recordset.eof and not data1.recordset.bof then
data1.recordset.movefirst
do while not data1.recordset.eof
If Data1.Recordset("客户") = kehu.Text Then
show1.Text = Data1.Recordset("客户")
show2.Text = Data1.Recordset("名称")
show3.Text = Data1.Recordset("地址")
show4.Text = Data1.Recordset("电话")
End If
data1.recordset.movenext
loop
end if
以上这段代码和以下折断代码是放在一起用嘛？
Data1.RecordSource="select * from 你的表名 where 客户 = '" & kehu.Text &"'"

--------------------------------------------------------------------------------
我的Data1.Databasename="try.mdb"没错，Data1.RecordSource="select * from database where 客户 = '" & kehu.Text &"'"也没错啊

[ozarkgirl]

包香大师您再帮我看看啊