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

[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中，怎么写啊？？

[ldy888]

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

[slowgrace]

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

[jingyes239]

Label1.caption = RS！A

[chinaboyzyq]

[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

[ChinaITOldMan]

Label1.caption = RS.getstring

[孤独剑_LPZ]

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

[饮水需思源]

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

[clear_zero]

Label1.caption = RS！A

[wcabinboy]

楼上正解

[水猿兵团五哥]

[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