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

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
帮帮忙阿各位
回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2001-11-09 10:15
社区公告
暂无公告