Updating table takes 5 sec in a local PC setup.

[Stan Mathews]

Re: Updating table takes 5 sec in a local PC setup.

I did find a Record_Add() function in the Wiki but the page has weird chars on it so the syntax example wasn't much help.

weird chars on it = HTML for Left Arrow with Hook

[MikeData]

Re: Updating table takes 5 sec in a local PC setup.

Record_Add in the Alpha documentation there is method of use. It could use mode details.
It probably has benefits too.

[pboomwork]

Re: Updating table takes 5 sec in a local PC setup.

I have used the method MoGrace describes to append large numbers of records, over 100,000 and it is slightly faster. However when used for this number of appends the A5 enviroment became unstable started throwing wierd errors, stack space etc. that required a restart of Alpha5. The speed gain wasn't enought to warrent investigating the error messages further so I have no more details on the errors sorry.

[MoGrace]

Re: Updating table takes 5 sec in a local PC setup.

It does the same as Stan's code it is just easier to use when you have the form's field values available.

Edit: I tried to find the Wiki page for these methods with no luck (there is also a change_record() table method.
In the legacy documentation if you have it, I found it under:

What's New in V10 - Field Rules Now Honored During Xbasic Data Entry v10

I did find a Record_Add() function in the Wiki but the page has weird chars on it so the syntax example wasn't much help.

[MikeData]

Re: Updating table takes 5 sec in a local PC setup.

I will try it. Thanks
After this experience, I wonder how many other newer programmers out there, as I recall wondering how to make their network faster, as they complaint they had an slow network.
Perhaps this was one of their issues; This would have help them.
In my case in just one click, I was doing 2 tables record entry. Each one in the network using 12 to 15 seconds each. Now the 2 are a second or less.
I have to try Robins code. As I am sure there will be use for that different code.
Again thanks to all.

[MoGrace]

Re: Updating table takes 5 sec in a local PC setup.

Here's another alternative using pointer dot variables:

dim ra as p
dim rb as p
dim tbla as p
dim tblb as p
dim tblx as p

tblx = table.current()

'map all the field values you need first
ra.afield1 = tblx.field1
...
ra.afield8 = tblx.field8

rb.bfield1 = tblx.field1
...
rb.bfield12 = tblx.field12

tbla = table.open(tablea)
tbla.enter_record(ra)
tbla.close()

tblb = table.open(tableb)
tblb.enter_record(rb)
tblb.close()

I would add a ui_beep() to it since it goes so fast you will think nothing happened!

[Stan Mathews]

Re: Updating table takes 5 sec in a local PC setup.

The script was designed to create a new record in another table based on the currently selected record in an already open table. As written it is not suitable to any other purpose so beware trying to adapt it to something else.

[MikeData]

Re: Updating table takes 5 sec in a local PC setup.

Untimeable!!!
It is now less than a second.
Thanks Stan
Time to revise all the others....
Originally it was started using as an operation.
In 'Operation' you only have append, post or import to add records.
I have been using append all this time. Hell of improvement today.

[Stan Mathews]

Re: Updating table takes 5 sec in a local PC setup.

There's no reason to do an append when all you want is to add a record. The query required by the filter in append.t_filter is what is slowing things down.

Revising based on Ronalds Idea
I created script :
DIM Append as P

a_tbl = table.open("tableA")
append.t_db = "tablex"

append.m_key = ""
append.t_key = ""
append.m_filter = ""
append.t_filter = "Acc=Var->gHx"
append.type = "All"
append.m_count = 8
append.m_field1 = "name"
append.m_exp1 = "@Ttablex->nameidLID"
append.m_field2 = "Age"
append.m_exp2 = "@tablex->Age1"
........to 8

append.t_count = 0

a_tbl.append()

It took the same time.

Try

a_tbl = table.open("tableA")
b_tbl = table.current()
a_tbl.enter_begin()
a_tbl.name = b_tbl.nameidLID
a_tbl.age = b_tbl.age1
'''''' up to 8
a_tbl.enter_end()
a_tbl.close()

[Stan Mathews]

Re: Updating table takes 5 sec in a local PC setup.

Mike,

Why not go back to the beginning and describe what you are doing? Your thread title mentions updating (a kind of Alpha operation) but you aren't updating anything. Your initial description mentions posting (a kind of Alpha operation) but you aren't posting anything.

So try to describe the situation where you do something on the form which adds a new record to two other tables. Do you have a script which adds the records? If so, show it to us.

[MikeData]

Re: Updating table takes 5 sec in a local PC setup.

from a form using Tablex that is open(the source.)
Tables A and B are not.

[MoGrace]

Re: Updating table takes 5 sec in a local PC setup.

Are you doing this from a form where both tables are open and you can apply a filter? Or are you updating all those records?

[MikeData]

Re: Updating table takes 5 sec in a local PC setup.

Revising based on Ronalds Idea
I created script :
DIM Append as P

a_tbl = table.open("tableA")
append.t_db = "tablex"

append.m_key = ""
append.t_key = ""
append.m_filter = ""
append.t_filter = "Acc=Var->gHx"
append.type = "All"
append.m_count = 8
append.m_field1 = "name"
append.m_exp1 = "@Ttablex->nameidLID"
append.m_field2 = "Age"
append.m_exp2 = "@tablex->Age1"
........to 8

append.t_count = 0

a_tbl.append()

It took the same time.

[MikeData]

Re: Updating table takes 5 sec in a local PC setup.

Thanks for the response, I see that other factors could come to play.
Actually, I am not modifying, I am entering a new record in both table.

[Ronald Anusiewicz]

Re: Updating table takes 5 sec in a local PC setup.

I guess the starting point would be indexing and looking at your code.
Depending on what you are trying to do I think I would try:
Table.open(mytable)
Table.order(keyfield, filter the records that need to be updated)
table.change_begin()
my code to write the changes
probably fetch first etc...
table.change_end()
Table.close()