如下代码怎么把值放到text1.text中
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, 3
End Sub
rs.Open Sql, conn, 1, 3如何把sql杳询的结果放到text1.text中?
问题点数：20、回复次数：2Top
1 楼ayusay（阿于）回复于 2005-05-02 21:36:38 得分 20
dim i as long
dim ii as long
dim s as long
dim ss as long
dim str as string
rs.movefirst
s=rs.recordcount
ss=rs.fields.count
for i=1 to s
for ii=1 to ss
str=str & "," & rs.fields(ii-1) & ""
next
str=mid(str,2,len(str)) & vbcrlf '去掉最左边的逗号，并添加换行
next
text1.text=strTop
2 楼yiko88（一剑飘红）回复于 2005-05-03 00:26:39 得分 0
str=str & "," & rs.fields(ii-1)
str=mid(str,2,len(str))
是什么意思,rs.fields是表示什么 mid(}起什么作用户
len()起什么作?Top
