| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1890 人关注过本帖
标题: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
快速回复:VB6.0中按钮点击后查询出ACCESS数据库中的信息,并显示到LABLE中,
数据加载中...
 
   



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

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