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

ozarkgirl 2001-11-09 10:15:34

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

...全文

129 点赞收藏 12

写回复

12 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

ozarkgirl 2001-11-09

包香大师您再帮我看看啊

回复赞

ozarkgirl 2001-11-09

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 &"'"也没错啊

回复赞

baoxiang 2001-11-09

报错？？？
不会吧。
你的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 2001-11-09

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

回复赞

cqq_chen 2001-11-09

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

回复赞

ozarkgirl 2001-11-09

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

回复赞

ozarkgirl 2001-11-09

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

回复赞

baoxiang 2001-11-09

先写个
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 2001-11-09

一定给分一定给分

回复赞

cqq_chen 2001-11-09

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

回复赞

ozarkgirl 2001-11-09

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

回复赞

ozarkgirl 2001-11-09

帮帮忙阿各位