Database Question

[PremiumL]

I have 2 databases.

Mail.dbf
Master.dbf

Basically, both of these databases have the same layout. They both have a field called contact (which is filled with people's names). The contact field in mail.dbf is blank. I need a program that will match up the phone numbers in both databases (the field is called phone), and when there is a match, I want the program to copy the contact field from master.dbf to mail.dbf. Thanks for your help.

Thanks,

Jarrett

 

[alvechurchdata]

There are many ways of doing this. One is to use SET RELATION to link the tables on PhoneNumber then do a REPLACE from the Contact field in one table to the other.

Geoff Franklin

http://www.alvechurchdata.co.uk

 

[PremiumL]

I'm a newbie to Foxdos. What commands do I need to put in the program in order to do that?

Thanks for your help,

Jarrett

 

[Skarcrow]

Close Data
use master
select 0
use mail
scan
select master
if locate for (master.phone = mail.phone) and empty(master.phone)
select mail
replace contact with master.contact
endif
select mail
endscan
close data

 

[DSummZZZ]

Skarcrow,
The statement:

if locate for (master.phone = mail.phone) and empty(master.phone)

isn't valid.

Try this instead:

Close Data
use master
select 0
use mail
scan
    select master
    locate for (master.phone = mail.phone) ;
        and empty(master.phone)
    if found()
       select mail
       replace contact with master.contact
    endif
    select mail
endscan
close data

-Dave Summers-

Even more Fox stuff at:

http://www.davesummers.net/foxprolinks.htm

 

[severach]

The above code may work but wouldn't be appropriate if the files are very large. Here is the same thing in high performance code that makes full use of the Fox relational database:

set talk on
CLOS DATA
USE MASTER
INDEX ON PHONE UNIQUE COMPACT TO TEMP
SELE 0
USE MAIL
SET RELA TO PHONE INTO MASTER
REPL FOR NOT EOF("MASTER") CONTACT WITH MASTER.CONTACT
CLOS DATA
ERASE ("TEMP.IDX")