如下代码如何把把sql杳询的结果放到text1.text中?

Question

Private Sub Form_Load()
Dim conn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim CnStr As String, Sql As String
CnStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=pubs;Data Source=192.168.0.1"
conn.Open CnStr
Sql = "select au_id from authors"
Set rs = New ADODB.Recordset
rs.Open Sql, conn, 1, 3End Sub
rs.Open Sql, conn, 1, 3如何把sql杳询的结果放到text1.text中?

Answer 1

text1.text=rs.fields("字段名").value

Answer 2

dim i as long
dim ii as longdim s as long
dim ss as longdim str as stringrs.movefirsts=rs.recordcount
ss=rs.fields.countfor i=1 to s
for ii=1 to ss
 str=str & "," & rs.fields(ii-1) & ""
next
str=mid(str,2,len(str)) & vbcrlf '去掉最左边的逗号，并添加换行
nexttext1.text=str

Answer 3

str=str & "," & rs.fields(ii-1) & ""str=mid(str,2,len(str)) & vbcrlf '去掉最左边的逗号，并添加换行
可以把这两句说清楚一点嘛,我有点不太懂

Answer 4

str=str & "," & rs.fields(ii-1) & ""
把各字段连接成一个串.用,分隔
因为这样第一个字符就是,了.因为str初值为空.
str=mid(str,2,len(str)) & vbcrlf '去掉最左边的逗号，并添加换行
这句就是去掉上面,的.-------------解释了一下楼上的楼上.

Answer 5

但是,根据术主的意思,好像只是简单的取一个字段放到一个textbox.
如下:
Private Sub Form_Load()
Dim conn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim CnStr As String, Sql As String
CnStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=pubs;Data Source=192.168.0.1"
conn.Open CnStr
Sql = "select au_id from authors"
Set rs = New ADODB.Recordset
rs.Open Sql, conn, 1, 3End Sub'=====================下面对你的记录集进行利用
.................
rs.movefirst
text1.text=rs.fields(0)  '<==============第一条记录的au_id,需要后面的,就rs.movenext,只
.................        '                要用这个字段就OK了.

Answer 6

text1.text=rs.fields("au_id").value