Writing data from a set to a new dbf

[Darrell Payne]

I Know there Has to be a way, but i cant figure out how to write the data of the fields in the linked file of a set. I can write the master files field but not the linked files fields using xbasic to fetch thru set in a while not eof loop .


Thanks in advance for any suggestions

[Tom Cone Jr]

RE: Writing data from a set to a new dbf

Darrell,

First thought here would be to use a new set, inverting the original sequence of your tables, linking 1:1.

-- tom

[Jim Chapman]

RE: Writing data from a set to a new dbf

Hello Darrell,

The following script assumes that you have a table named "YourSecondTable", in the AlphaSports database. It also assumes that the structure of "YourSecondTable" is identical to the Invoice_Items table in the AlphaSports database.


t = table.get("Invoice_items")
t2 = table.open("YourSecondTable")
vRecNo = t.recno()
t.fetch_first()

while .not. t.fetch_eof()
vdata = t.record_data_get()
t2.enter_begin()
t2.record_data_set(vdata)
t2.enter_end()
t.fetch_next()

end while
t2.close()
t.fetch_goto(vRecno)


The reason I get the record number of the Invoice_Items table, then reset the record pointer at the end of the script is that I am manipulating the record pointer via Xbasic. The form knows nothing of this after the script ends, if I didn't reset the record number pointer you might see some strange behavior in the form.

If the structure of your two tables are not identical, instead of using the *.Record_data_set() and *.Record_data_get() methods you'd just field by field set the data such as:

t2.field1 = t.someField
t2.field2 = t.someOtherField
etc.


Good luck,
Jim

[Tom Cone Jr]

RE: Writing data from a set to a new dbf

Darrell,

Yet another approach would be to use nested while .. end while loops to step through the records in your original set.

To do this you'd establish pointers to the primary and child tables in the current set. The outer loop would step through the primary table. The inner loop would step through the linked child table records, reading and then writing the field values to the target table as you go.

Personally, I think building an inverted set design would be easier, but ...

-- tom

[Tom Cone Jr]

RE: Writing data from a set to a new dbf

Here's an example, using the nested loops approach.

Unzip the attachment to an empty folder.

Open the only form. the form is based on a simple two table one to many set. The only button on the form copies the child table records to another table.

Check the code tab of the control panel for the 'CopyPhones' script. It does the same thing, but is designed to be used when the orignal set is not already open.

-- tom

[Darrell Payne]

RE: Writing data from a set to a new dbf

Thanks Tom and everyone else for all the help. sorry I havn't responded earlier but we just finished Phisical Inv.
and then I had End of Month last night(20 hr day :) ) I will start puting your suggestion to use soon as I get some sleep so I can read and understand it all.


Thanks again
Darrell