ado访问excel过程中的问题。。。。。。。。。

[greatgrace]

在用VB的ADO的方法访问Excel文件时
Debug.Print adoRecordset.Fields.Item(0).Name
Debug.Print adoRecordset.Fields.Item(0).value 在立即窗口可以显示出内容

但是改成如果我想在form里显示的话，为什么下面的不行？

Print adoRecordset.Fields.Item(0).Name
Print adoRecordset.Fields.Item(0).value

可以用变量赋值的吗？？？比如说这样，a=Print adoRecordset.Fields.Item(0).Name
???????????????
急啊～～～～～～～～～～～～～～～～～～～～

[yenight]

不能试!
用下面的试试
dim sName as string
dim obj As String

sname=adoRecordset.Fields.Item(0).Name
obj=cstr(adoRecordset.Fields.Item(0).value)
me.print sname
me.print obj
在我的印像中不能用那样的赋值

• 打赏
• 举报

回复 赞

[greatgrace]

嗯，我知道了，谢谢，不过现在还有个问题，我想将访问得到的excel内容来动态的建立access表，字段名，字段内容根据excel的内容来建立，但是循环的控制有点问题。
excel中的循环：
For i = 0 To adoRecordset.Fields.Count - 1

a = adoRecordset.Fields.Item(i).Name
MsgBox a

Debug.Print adoRecordset.Fields.Item(i).Value

Next i
adoRecordset.MoveNext
Loop
access中的循环为，"编号", "姓名", "住址", 这三个字段名要根据excel的来改变
cat.ActiveConnection = pstr
tbl.Name = "MyTable" '表的名称
tbl.Columns.Append ，"编号“，adInteger '表的第一个字段
tbl.Columns.Append "姓名", adVarWChar, 8 '表的第二个字段
tbl.Columns.Append "住址", adVarWChar, 50 '表的第三个字段
cat.Tables.Append tbl '建立数据表
conn.Open pstr
rs.CursorLocation = adUseClient
rs.Open "MyTable", conn, adOpenKeyset, adLockPessimistic
rs.AddNew '往表中添加新记录
rs.Fields(0).Value = 9801 内容也是按照excel中的内容。
rs.Fields(1).Value = "孙悟空"
rs.Fields(2).Value = "广州市花果山"

应该怎样将两个循环合并在一起？？？？？

• 打赏
• 举报

回复 赞