*****************一个关于从一个数据库向另一个数据库导数据的小问题,请诸位大侠多多帮忙啊!小弟先谢了*****************

a9a9a9 2001-07-10 10:09:09
我从ORACLE 8的一个表向一个ACCESS表中导数据,两表情况如下:
表1:ORACLE
JYH CHAR( 20)
JYRQ DATE
表2:ACCESS
JYH 备注
JYRQ 日期/时间



导入程序如下
RST_getdata:用SQL语句从ORACLE中读数据 select jyh,jyrq from 表1
RST_fetch :将读出数据写入ACCESS中

While Not RST_getdata.EOF
RST_fetch.AddNew
For i = 0 To RST_getdata.RecordCount - 1
RST_fetch.Update RST_getdata.Fields(i).Name, Trim(RST_getdata.Fields(i))
Next i
RST_getdata.MoveNext


我用相同的程序处理其它表的时候,没有任何问题.唯独处理这个表的时候,JYH字段总为空.但RST_getdata的这个字段确实有值.所以我觉得肯定是数据库的问题,可又找不出原因.请各位大侠多多帮忙啊!
...全文
56 点赞 收藏 7
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
a9a9a9 2001-07-10
rushing() 先给你加上分!多谢兄台
回复
a9a9a9 2001-07-10
比如:改成 文本 50 应该也行吧?
另问一个小问题也是关于导入的: ORACLE ->ACCESS
这次是其它的表,一运行程序就在 RST_getdata.RecordCount报错,说RecordCount方法不存在???????
Dim cnn As New ADODB.connect
Dim rst As New ADODB.recordset
Dim cnnStr As String

cnnStr="User ID=test;Password=test;Data Source=test"
cnn.open cnnStr
rst.open "select jyh,spbm,spmc from xsgkb",cnn
其中,jyh和sxh是表的主键,但我只选了jyh.此SQL语句在SQL PLUS中正常.
[:(




回复
rushing 2001-07-10
是的。
回复
a9a9a9 2001-07-10
是将ACCESS的JYH改为 文本 20 吗?
回复
xxfly 2001-07-10
把JYH、改为char类型
回复
rushing 2001-07-10
表2的JYH项应该也是字符串 string 20。
回复
a9a9a9 2001-07-10
Sorry 程序拷错了应该是
While Not RST_getdata.EOF
RST_fetch.AddNew
For i = 0 To RST_getdata.Fields.Count-1
RST_fetch.Update RST_getdata.Fields(i).Name, Trim(RST_getdata.Fields(i))
Next i
RST_getdata.MoveNext



回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2001-07-10 10:09
社区公告
暂无公告