编程论坛 → VB6论坛

VB6.0中按钮点击后查询出ACCESS数据库中的信息，并显示到LABLE中，

wangyiaihu 发布于 2020-04-24 18:30， 2177 次点击

只有本站会员才能查看附件，请登录

点击按钮后，根据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那句，请问该怎么修改，

7 回复

#2

wangyiaihu2020-04-24 18:31

这个问题以及困扰了两三天了，请教大神指导，

#3

ZHRXJR2020-04-24 18:34

应该与你前面提的问题是一个问题，将你需要实现的目的说清楚，并将你的工程打包发给我，我给你修改一下，一般来说应该可以正常运行。

#4

wangyiaihu2020-04-24 18:45

回复 3楼 ZHRXJR

邮箱发给我，我发给你，请你帮我修改下，

#5

ZHRXJR2020-04-24 18:56

看私信

#6

wangyiaihu2020-04-24 19:07

回复 5楼 ZHRXJR

已私信给你了，请帮忙，谢谢，

#7

show1472020-04-24 22:44

rs12.Open "Select * From 注册 Where 用户='" & Text1.Text & "', cn12, adOpenDynamic, adLockOptimistic, adCmdText"
& Text1.Text & "' 这里明显少一个引号，应该这样写"Select * From 注册 Where 用户='" & Text1.Text & "'"
另，
rs12.AddNew 什么意思，增加一条新记录？！而你想达到的目的是查询已有记录，这个应该不须要吧！

#8

wangyiaihu2020-04-25 16:21

回复 7楼 show147

你的这个语法是对的，

1