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

greatgrace 2004-05-04 10:07:53
在用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
???????????????
急啊~~~~~~~~~~~~~~~~~~~~
...全文
63 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
greatgrace 2004-05-04
  • 打赏
  • 举报
回复
嗯,我知道了,谢谢,不过现在还有个问题,我想将访问得到的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 = "广州市花果山"

应该怎样将两个循环合并在一起?????
yenight 2004-05-04
  • 打赏
  • 举报
回复
不能试!
用下面的试试
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
在我的印像中不能用那样的赋值

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧