标题:VB6.0中按钮点击后查询出ACCESS数据库中的信息,并显示到LABLE中,
只看楼主
wangyiaihu
Rank: 1
等 级:新手上路
帖 子:96
专家分:0
注 册:2020-4-22
结帖率:100%
已结贴  问题点数:10 回复次数:7 
VB6.0中按钮点击后查询出ACCESS数据库中的信息,并显示到LABLE中,

点击按钮后,根据text内的信息,查询ACCESS数据库中相应的信息,并且显示到4个LAble中,
程序代码:
Dim cn12 As New ADODB.Connection
Dim rs12 As New ADODB.Recordset
cn12.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Aging.mdb "

rs12.Open "Select * From 注册 Where 用户='" & Text1.Text & "', cn12, adOpenDynamic, adLockOptimistic, adCmdText"

rs12.AddNew
   
Label1.Caption = rs!用户
Label2.Caption = rs!权限
Label4.Caption = rs!班次
Label3.Caption = rs!所属
    
            rs12.Close
            Set rs12 = Nothing
            cn12.Close
            Set cn12 = Nothing

 
            Exit Sub


当前代码有问题,SELCECT那句,请问该怎么修改,
搜索更多相关主题的帖子: 信息 LABLE Caption 显示 按钮 
2020-04-24 18:30
wangyiaihu
Rank: 1
等 级:新手上路
帖 子:96
专家分:0
注 册:2020-4-22
得分:0 
这个问题以及困扰了两三天了,请教大神指导,
2020-04-24 18:31
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
得分:5 
应该与你前面提的问题是一个问题,将你需要实现的目的说清楚,并将你的工程打包发给我,我给你修改一下,一般来说应该可以正常运行。

请不要选我!!!
2020-04-24 18:34
wangyiaihu
Rank: 1
等 级:新手上路
帖 子:96
专家分:0
注 册:2020-4-22
得分:0 
回复 3楼 ZHRXJR
邮箱发给我,我发给你,请你帮我修改下,
2020-04-24 18:45
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
得分:0 
看私信

请不要选我!!!
2020-04-24 18:56
wangyiaihu
Rank: 1
等 级:新手上路
帖 子:96
专家分:0
注 册:2020-4-22
得分:0 
回复 5楼 ZHRXJR
已私信给你了,请帮忙,谢谢,
2020-04-24 19:07
show147
Rank: 2
等 级:论坛游民
威 望:3
帖 子:40
专家分:81
注 册:2020-3-14
得分:5 
rs12.Open "Select * From 注册 Where 用户='" & Text1.Text & "', cn12, adOpenDynamic, adLockOptimistic, adCmdText"
 & Text1.Text & "'  这里明显少一个引号,应该这样写"Select * From 注册 Where 用户='" & Text1.Text & "'"
另,
rs12.AddNew  什么意思,增加一条新记录?!而你想达到的目的是查询已有记录,这个应该不须要吧!
2020-04-24 22:44
wangyiaihu
Rank: 1
等 级:新手上路
帖 子:96
专家分:0
注 册:2020-4-22
得分:0 
回复 7楼 show147
你的这个语法是对的,
2020-04-25 16:21



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-501234-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.090232 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved