VB 怎么把从数据库查出来的结果显示在label中呢？？

2009-08-16 01:06:00 806 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

RANSAC地面点分割：从原理到C++实战优化本文深入解析RANSAC算法在点云地面分割中的原理与C++实战优化，涵盖动态迭代次数、自适应阈值等关键技巧，通过并行计算和内存访问优化提升性能，适用于激光雷达点云处理。阅读详情

Private Sub Command1_Click()

Dim Cnn As New ADODB.Connection

Dim Rs As New ADODB.Recordset

          Cnn.ConnectionString = "Provider=SQLOLEDB;Data Source=john;UID=sa;PWD=123;initial catalog=aaa"

          Cnn.Open

          Rs.Open "select   A   from   aaa", Cnn

我想把从表aaa中查询出的结果显示在label中，怎么写啊？？

...全文

分数计算器（C++课设）需求概述（1）设计一个分数计算器，进行分数的算术运算和逻辑运算。（2）能够像使用基本数据的对象一样，对分数进行“+”、“-”、“*”和“/”等算术运算和比较两个分数的大小。（3）以a/b的形式输入输出分数，允许输入输出整数这种特殊形式。（4）对不是约化型的分数进行约化，避免分母为负数。（5）如果分数的分母为0、除数为0或输入时格式有错，采用异常处理机制解决。输入以分数的形式输入。（如1/2）若分母为0会抛出异常，重新输入。菜单页面 RationalNumber.h（头文件） #ifnd 阅读详情

wdx222222

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

水猿兵团五哥 2009-08-18

打赏
举报

[Quote=引用 8 楼 leftie 的回复:]
VB codePrivateSub Command1_Click()onerrorgoto errhandleDim CnnAsNew ADODB.ConnectionDim RsAsNew ADODB.Recordset
Cnn.ConnectionString="Provider=SQLOLEDB;Data Source=john;UID=sa;PWD=123;initial catalog=aaa"
Cnn.Openif rs.state<>adstateclosedthen rs.close
Rs.Open"select A from aaa", Cnn ,adopenkeyset,adlockreadonlyif rs.recordcount>0then
label1.caption=rs!a&""
label1.refreshendif
rs.close
cnn.closeexitsub'错误处理ErrHandle:
msgbox"查询失败，错误原因为："& err.description,vbexclamation,"提示"if rs.state<>adstateclosedthen rs.closeif cnn.state<>adstateclosedthen cnn.closeend sub

[/Quote]
OK

wcabinboy 2009-08-18

打赏
举报

楼上正解

clear_zero 2009-08-17

打赏
举报

Label1.caption = RS！A

饮水需思源 2009-08-17

打赏
举报

Private Sub Command1_Click() 

on error goto errhandle

    Dim Cnn As New ADODB.Connection 

    Dim Rs As New ADODB.Recordset 

    Cnn.ConnectionString = "Provider=SQLOLEDB;Data Source=john;UID=sa;PWD=123;initial catalog=aaa" 

    Cnn.Open 

    if rs.state<>adstateclosed then rs.close

    Rs.Open "select  A  from  aaa", Cnn ,adopenkeyset,adlockreadonly

    if rs.recordcount>0 then

        label1.caption=rs!a & ""

        label1.refresh

    end if

    rs.close

    cnn.close

    exit sub

'错误处理

ErrHandle:

    msgbox "查询失败，错误原因为：" & err.description,vbexclamation,"提示"

    if rs.state<>adstateclosed then rs.close

    if cnn.state<>adstateclosed then cnn.close

end sub

孤独剑_LPZ 2009-08-16

打赏
举报

Label1.caption中显示的字符数是有限的，记录多的话就显示不下了，用4楼的循环得到数据即可

ChinaITOldMan 2009-08-16

打赏
举报

Label1.caption = RS.getstring

chinaboyzyq 2009-08-16

打赏
举报

[Quote=引用楼主 wdx222222 的回复:]
Private Sub Command1_Click()
Dim Cnn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Cnn.ConnectionString = "Provider=SQLOLEDB;Data Source=john;UID=sa;PWD=123;initial catalog=aaa"
Cnn.Open
Rs.Open "select A from aaa", Cnn
我想把从表aaa中查询出的结果显示在label中，怎么写啊？？
[/Quote]

如果有多条记录要用循环，并且放到label中可能会乱七八糟，建议改成放到TextBox中

'1、添加text1,设置multiline为true
'2、循环取查到的结果
dim tmp as string
do while not rs.eof
tmp=tmp & rs!A & vbnewline
rs.movenext
loop
'3把结果放到文本框内
text1=tmp

jingyes239 2009-08-16

打赏
举报

Label1.caption = RS！A

slowgrace 2009-08-16

打赏
举报

Label1.caption = RS.fields("字段名")

ldy888 2009-08-16

打赏
举报



Private Sub Command1_Click() 

Dim Cnn As New ADODB.Connection 

Dim Rs As New ADODB.Recordset 

          Cnn.ConnectionString = "Provider=SQLOLEDB;Data Source=john;UID=sa;PWD=123;initial catalog=aaa" 

          Cnn.Open 

          Rs.Open "select  A  from  aaa", Cnn 

Label1.caption = RS.getstring

VB 怎么把从数据库查出来的结果显示在label中呢？？

相关推荐