VB查询的数据显示在TEXT（高分啊 在线结贴）

Question

这是个查询 我已经查出内容了 但是我现在想把查出的内容显示在text文本框里。忘了怎么写了呵呵
  各位大侠 帮个忙指点下 哈哈··
sSql = "SELECT " & sCol & " FROM " & sTable & " WHERE " & sWhere
   Set colDataCollection = moProRawSql.QueryDatabase(sSql)
    If colDataCollection.count = 0 Then
        Call RaiseError(glERR_ERRMSG, _
                FormatErrorText(gsETX_ERRMSG, "Can not get any Records.", "数据库没有您要查到中文"))    Else
        Chain_text.Text = 
                ?????查询到到CNAME显示出来
    End If

Answer 1

colDataCollection 这个是什么?
如果是recordset的话
txt.text=colDataCollection.fields(0)就好了

Answer 2

text1.text=rs!字段名 & ""

Answer 3

Dim colDataCollection As Collection 是变量

Answer 4

dim rs as recordsetsSql = "SELECT " & sCol & " FROM " & sTable & " WHERE " & sWhere 
  Set rs = moProRawSql.QueryDatabase(sSql) 
    If colDataCollection.count = 0 Then 
        Call RaiseError(glERR_ERRMSG, _ 
                FormatErrorText(gsETX_ERRMSG, "Can not get any Records.", "数据库没有您要查到中文"))     Else 
        Chain_text.Text = rs.fields(0)
                '?????查询到到CNAME显示出来 
    End If

Answer 5

    Dim i As Long
    Dim s As String, tmp As String
    
    Do While Not colDataCollection.EOF()
        For i = 0 To colDataCollection.Fields.Count - 1  
            s = s + CStr(colDataCollection.Fields(i).Value) + ","
        Next
        tmp = tmp + s + vbCrLf
        s = ""
        colDataCollection.MoveNext
    Loop
    Chain_text.Text = tmp

Answer 6

dim rs as recordsetsSql = "SELECT " & sCol & " FROM " & sTable & " WHERE " & sWhere 
  Set rs = moProRawSql.QueryDatabase(sSql) 
    If colDataCollection.count = 0 Then 
        Call RaiseError(glERR_ERRMSG, _ 
                FormatErrorText(gsETX_ERRMSG, "Can not get any Records.", "数据库没有您要查到中文"))     Else     Dim i As Long 
    Dim s As String, tmp As String 
    
    Do While Not colDataCollection.EOF() 
        For i = 0 To colDataCollection.Fields.Count - 1  
            s = s + CStr(colDataCollection.Fields(i).Value) + "," 
        Next 
        tmp = tmp + s + vbCrLf 
        s = "" 
        colDataCollection.MoveNext 
    Loop 
    Chain_text.Text = tmp     End If

Answer 7

查询结果是单行还是多行?是多个字段还是单个字段?
如果是单行,直接使用chain_text.text=rs!字段名
如果是多行,可以先连接数据后再赋值,比如:s=rs.getstring():chain_text.text=s

Answer 8

txtChain.Text = colDataCollection.Item(1).Item(1)