FoxPro 2.6 to ACCESS

Hello,

I need a function in VB6 that will either import data from FP 2.6 tables or using VBA automate the same process.  I cannot use the import function in ACCESS to do this, because it needs to be automatic.  Please provide example code, no links.

Thanks in advance,
aj85
aj85Asked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

GoofytouyCommented:

On a form, you must put 2 data controls bounded to the source DB in Fox 2.6 and state the Connection property to FP 2.6

The 2nd data control, must be bounded to the target DB, Connection Access.
I presume you know the fields definition of the source DB and you have copied it to the target DB.

Let's presume you have 10 fields on each base, source data control named Source, and target db name Target


Private Sub moverecords()
        Source.Recordset.MoveFirst
        Do While Not Source.Recordset.EOF
              Target.Recordset.AddNew
              For N=0 to 9        && 9 is because from 0 to 9 you have 10 items, and field indexes start in 0
                      Target.Recordset.Fields(N)=Source.Recordset.Fields(N)
              Next N
              Target.Recordset.Update
              Source.Recordset.MoveNext
        Loop
End Sub

Hope this example, helps.

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
aj85Author Commented:
I am working on this I will get back to you shortly.

Thanks,
aj85
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.