***************关于ADO的小问题?*************请大侠们进来帮忙!

Question

dim strTbName as string
dim strFldName as stringstrtbname=list1.list(list1.lstindex)
strsql="select * from " & strtbname & " where 0=1"
rsList2.open strsql,cnn
for i=0 to rslist2.fields.count-1
    strfldname=rslist2.fields(i).name
    list2.additem strfldname
next i
list2.listindex=0
set rslist2=nothing

Answer 1

为啥老在rsList2这儿报错?
run-time err:'424'
object required!

Answer 2

dim rsList2 as new recordset

Answer 3

改过后还是报错:
Compile error:
Invalid use of Nes keyword
我的源程序是这样的:
Dim i As Integer
Dim strTbName As String
Dim strFldName As String
Dim cnn2
Dim cnn2str
Dim rslist2 As New Recordset
   List2.Clear
Set cnn2 = CreateObject("ADODB.Connection")
cnn2str = "User ID=" & userIDS & ";Password=" & pwdS & ";Data Source=" & dsnS
cnn2.Open cnn2str
strTbName = List1.Text
strsql = "select * from " & strTbName & " where 0=1"
rslist2.Open strsql, cnn2
For i = 0 To rslist2.Fields.Count - 1
    strFldName = rslist2.Fields(i).Name
    List2.AddItem strFldName
Next i
List2.ListIndex = 0
Set rslist2 = Nothing

Answer 4

debug时,错误待在dim rslist2 as new recordset

Answer 5

dim rslist2 as new adodb.recordset 
在双击list1后随便选出当前表的一条记录然后用recordset.field(i).name做循环取出表的字段

Answer 6

Kradwang(猕猴桃)?那相应的字段属性呢?应该用什么方法?谢谢!....

Answer 7

你指的字段属性是什么属性?字段类型:recordset.field(i).type字段长度:recordset.field(i).Precision
field对象还有properties属性他是一个集合,可以用properties(i)的方法访问.
你上面的代码好像没有指定数据库在连接字符串中再加上";database=" & yourdatabase应该可以.我试过了没太大问题的

Answer 8

Dim i As Integer
Dim strTbName As String
Dim strFldName As String
Dim cnn2 as adodb.connection  ——>
Dim cnn2str as string         ——>
Dim rslist2 As New Recordset  ——>最好是Dim rslist2 As New adodb.Recordset
  List2.Clear
Set cnn2 = CreateObject("ADODB.Connection")
cnn2str = "User ID=" & userIDS & ";Password=" & pwdS & ";Data Source=" & dsnS
cnn2.Open cnn2str
strTbName = List1.Text
strsql = "select * from " & strTbName & " where 0=1"
rslist2.Open strsql, cnn2
For i = 0 To rslist2.Fields.Count - 1
    strFldName = rslist2.Fields(i).Name
    List2.AddItem strFldName
Next i
List2.ListIndex = 0
Set rslist2 = Nothing 下面的好像没有错误呀，最多在select 语句之前加一个判断数据库里面是否存在此表
你用的是odbc?