如何将vfp6.0里的数据到如access中呢？

Question

小弟初学VB~请教各位达淫~该怎么搞呢？
俺像下面这么写，失败了~救命！
        cn.ConnectionTimeout = 100
        cn.Open "Driver={Microsoft Visual FoxPro Driver};" & _
           "SourceType=DBC;" & _
           "SourceDB=" & txt_foxfile.Text & _
           ";Exclusive=No;"        cn.Execute "insert into [;DATABASE=" & Gs_App_Path & _
        "\server.mdb;Pwd=null].Population_Info(Personal_ID,name,gender,folk,birthday,office,health,education" & _
        ",occupation,residence,register,marriage_record,marriage_status,consort,monther_son,firstmarriage_time" & _
        ",remarriage_time) values select 编号,姓名,性别,民族,出生日期" & _
        ",工作单位,健康状况,文化程度,职业状况,人户状况,户口性质,婚姻未报,婚姻状况" & _
        ",夫妻关系,母子关系,初婚时间,再婚时间 from 户内人口"

Answer 1

试试去掉“remarriage_time) values select 编号,姓名,性别”中的“values”

Answer 2

原来没加~不行之后才加上的~赫赫。是不是他链接access有问题啊？郁闷

Answer 3

cn.Execute "insert into Population_Info in """ & Gs_App_Path & _
        "\server.mdb""" select 编号 as Personal_ID,姓名 as [name],性别 as gender,民族 as folk,出生日期 as birthday" & _
        ",工作单位 as office,健康状况 as health,文化程度 as education,职业状况 as occupation,人户状况 as residence,户口性质 as register,婚姻未报 as marriage_record,婚姻状况 as marriage_status" & _
        ",夫妻关系 as consort,母子关系 as monther_son,初婚时间 as firstmarriage_time,再婚时间 as remarriage_time from 户内人口"

Answer 4

cn.Execute "insert into Population_Info in " & Gs_App_Path & _
        "\server.mdb select 编号 as Personal_ID,姓名 as [name],性别 as gender,民族 as folk,出生日期 as birthday" & _
        ",工作单位 as office,健康状况 as health,文化程度 as education,职业状况 as occupation,人户状况 as residence,户口性质 as register,婚姻未报 as marriage_record,婚姻状况 as marriage_status" & _
        ",夫妻关系 as consort,母子关系 as monther_son,初婚时间 as firstmarriage_time,再婚时间 as remarriage_time from 户内人口"

Answer 5

access 密码写在那里？of123() 兄

Answer 6

cn.Execute "insert into OpenDataSource('Microsoft.Jet.OLEDB.4.0', 'Data Source = " & Gs_App_Path & "\server.mdb" & ";User ID=Admin;Password=') select 编号,姓名,性别,民族,出生日期" & _
        ",工作单位,健康状况,文化程度,职业状况,人户状况,户口性质,婚姻未报,婚姻状况" & _
        ",夫妻关系,母子关系,初婚时间,再婚时间 from 户内人口"

Answer 7

谢谢~ of123和RUKYO,但是我试了上面的方法还是出那个提示~
是语法的问题还是连接的问题啊~哪里有语法帮助阿

Answer 8

不行了~都搞了~一天了我改成下面的样子还是不行~差哪里呢?~各位大人帮忙啊!        cn.Execute "insert into openrowset('Microsoft.Jet.OLEDB.4.0', '" & _
                    Gs_App_Path & "\server.mdb';;'null','select Personal_ID,name,gender,folk" & _
                    ",birthday,office,health,education,occupation,residence,register" & _
                    ",marriage_record,marriage_status,consort,monther_son,firstmarriage_time" & _
                    " from Population_Info') " & _
                    " select 编号,姓名,性别,民族,出生日期" & _
                    ",工作单位,健康状况,文化程度,职业状况,人户状况,户口性质,婚姻未报,婚姻状况" & _
                    ",夫妻关系,母子关系,初婚时间,再婚时间 from 户内人口"

Answer 9

用VB工具Visdata来倒吧,别那么麻烦