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

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
...全文
186 12 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
  • 打赏
  • 举报
回复
帮帮忙阿各位

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧