时间紧！请大家都来帮忙……如解决高分放送

Question

那只能用VB做一个程序，先读出VFP中的数据，然后再写入到DB2数据库中，因为你的表的名与字段名都不相同，如果VFP中表的字段与DB2中的字段的排序是一样的话那还容易一点。例：
dim cn as adodb.connection '用来连接vfp中的数据库
dim rs as adodb.recordset '用来打开个人基本资料表（grjbzl）
dim cn1 as adodb.connection '用来连接db2中的数据库
dim rs1 as adodb.recordset '用来打开个人基本信息表(grjbxx)
... '具体连接略
Dim mFields As ADODB.Field
I=0
   For Each mFields In rs.Fields
            rs1.fields(I).value=mfields.value
            i=I+1
   Next

Answer 1

sunnycai(飞鸟)
谢谢你的办法，但是我觉得还是不太妥，因为db2 数据库是IBM公司的产品，跟微软的平台不能够无逢连接，但是vb和vfp的数据库可以的。
等揭贴后我给您加上100分，谢谢你！