entering a record with a variable

[martinwcole]

the structure of both tables is the same
I need to copy the records from one to the other
any ideas

t1=table.open(dirname + "\\logintests" + chr(92) + "logintests.dbf")
t2=table.open("logintests")
fcount=t2.fields_get()
t2.fetch_first()
while .not. t2.fetch_eof()
t1.enter_begin()
for i=1 to fcount
fld=t1.field_get(i)
fname=fld.name_get()
eval_valid("t1." + var->fname="t2." + var->fname)
next
t1.enter_end()
t2.fetch_next()
end while
t1.close()
t2.close()

[DVSOL005]

Martin,
In several scripts I am using the EVAL() function, for example:
eval("drc." + var->kind2) = var->kid2

So in your example I would suggest the following:
eval("t1." + var->fname) ="t2." + var->fname
To make it less complicated, you could merge the "t2." in the fname variable and skip that in the eval statement

Regards,

Jo

[martinwcole]

here is a copy that is working

dim global lnum as c
dim global dirname as c
lnum=parentform:labnum.value
t1=table.open(dirname + "\\logintests" + chr(92) + "logintests.dbf")
t1.zap(.t.)
t1.close()
msgbox("","")
t1=table.open(dirname + "\\logintests" + chr(92) + "logintests.dbf")
t2=table.open("logintests")
QClear()
query.filter="labnum=var->lnum"
idx=t2.query_create()
if idx.records_get() > 0
else
t1.close()
t2.close()
end
end if
fcount=t2.fields_get()
t2.fetch_first()
while .not. t2.fetch_eof()
t1.enter_begin()
for i=1 to fcount
fld=t1.field_get(i) '=t2.fld_get(i)
fname=fld.name_get()
eval("t1." + var->fname)=eval("t2." + var->fname)
next
t1.enter_end()
t2.fetch_next()
end while
t1.close()
t2.close()
t1=table.open(dirname + "\\logintests" + chr(92) + "logintests.dbf")
msgbox("","" + t1.records_get())
t1.fetch_first()
while .not. t1.fetch_eof()
msgbox("","" + t1.description)
t1.fetch_next()
end while
t1.close()

end

[Al Buchholz]

This could work too...

cmd="t1." + var->fname+"=t2." + var->fname
myevalid=eval_valid(cmd)
if .not. myevalid then
' write cmd to a error file
end if

[Ted Giles]

As usual, I am lost.
Append not working?

[Al Buchholz]

As usual, I am lost.
Append not working?

A good idea if the table structure is stable. Gets crazy if the file structures don't match..

Not sure if it is in this case.

Another option is to build an append operation in code and then execute that.

Martin

I'd also suggest a batch_begin() and batch_end() around the while loop to improve speed of execution.

[madtowng]

probably take less time to learn mysql enough to do the heavy work in mysql, then bring the results into the dbf table.

[martinwcole]

Well, I looked at using an append, but one of the tables is in a different folder, which append does not like. Anyway, I am satisfied with what is working, and runs in maybe 1.5 seconds.

[Ted Giles]

For anyone watching this, an Append is possible IF the table to accept the appended data is temporarily added to the primary database.
Example;

Workspace 1 somewhere on your realestate
Data Table 1

Workspace 2 somewhere else on your realestate
Data Table 2

Add Data Table 2 to Workspace 1 temporarily.
Data Table 1
Data Table 2

Append. Either way.

Drop Data Table 2 ( or leave it there if you are planning many appends)

If using SQL, do not Drop the table as it may be deleted.

If using DBF, the table is still intact in Workspace 2 and will have the appended records.

[Mike Wilson]

Hi Martin,
I'm a little late on this but you stated here:
"the structure of both tables is the same. I need to copy the records from one to the other"

Gosh, if the table structures are the same, I use a script that has a data variable vdata as B and source table (ts) and target table (tt) open and loops through the source table with the functions -vdata=ts.record_data_set() and write to target table with tt.record_data_get(vdata).. Am I missing something here?

[martinwcole]

well, the two tables are identical, but one is in the main database folder, and the other is in a subfolder of a different folder than the main

[Selwyn Rabins]

it is no problem if the two tables are not in the same workspace (i.e. database) as long as you reference the table that is NOT in the workspace with a fully qualified name (.e. c:\mydata\table1.dbf)

[martinwcole]

thanks, Selwyn