标题:VB6.0中按钮点击后查询出ACCESS数据库中的信息,并显示到LABLE中,
取消只看楼主
wangyiaihu
Rank: 1
等 级:新手上路
帖 子:96
专家分:0
注 册:2020-4-22
结帖率:100%
已结贴  问题点数:10 回复次数:4 
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
wangyiaihu
Rank: 1
等 级:新手上路
帖 子:96
专家分:0
注 册:2020-4-22
得分:0 
回复 3楼 ZHRXJR
邮箱发给我,我发给你,请你帮我修改下,
2020-04-24 18:45
wangyiaihu
Rank: 1
等 级:新手上路
帖 子:96
专家分:0
注 册:2020-4-22
得分:0 
回复 5楼 ZHRXJR
已私信给你了,请帮忙,谢谢,
2020-04-24 19:07
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.014403 second(s), 9 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved