特急问题求助：请教如何把Access数据库里 XXX表的数据在FORM1的TEXT1(i)里?..

Question

假设表已经打开,rs
Sub Display()
   dim i as interge
   for i=0 to 26
      if isnull(rs.fields(i)) then
         text(i)=""
      else
         text(i)=cstr(rs.fields(i))
      end if
   next
End Sub

Answer 1

请教text(i)=cstr(rs.fields(i))
中的cstr是什么意思？

Answer 2

Option Explicit
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB;Persist Security Info=False"
rs.Open slecet * from tablename ,cn,adOpenKeyset,adLockPessimistic
Dim i
rs.MoveFirst
For i = 1 To 27
  text1(i).text=cstr(rs.Fields(0)
  rs.MoveNext
Next i
  
End Sub
大致可以这样写，稍加修改就可以了

Answer 3

Cstr()是把其它数据类型转成字符型!

Answer 4

dim cn as new adodb.connection
dim rs as new adodb.recordset
dim i as integer'给你一个例子，不知道是否符合题意？'需要先引用ADO
cn.provider="Microsoft.Jet.OLEDB.4.0"
cn.open "c:\test.mdb"rs.open "select 字段名 from 表名",cn
do while not rs.eof
    if i<26 then
        text1(i).text=rs("字段名").value
    end if
    i=i+1
    rs.movenext
loop
rs.close
set rs=nothingcn.close
set cn=nothing