Import for RT ?

[Keith Hubert]

Hi Guys,

I have built an application for my customer for him to carry on using his existing data from an old access database.

As I only needed two of the tables I created buttons to do the import.

This was built in my developer version and has now been installed as a RT application.

When the Import button is pressed, he gets a message on the RT machine that says the full version of Alpha must be installed to do the Import.

My question is, how do I put an Import routine onto the RunTime machine for the end user, to import records from a table that would have to be browsed to?

[Stan Mathews]

Re: Import for RT

Message seems strange. Can't see why an import operation wouldn't run.

Have you tried converting it to xbasic?

[Keith Hubert]

Re: Import for RT ?

Hi Stan,

This was all done with AS and I have just got back from the client, so I have not done any changes yet.

By changing to XB, what further would I need to change to allow this to work on the RT?

XB conversion:

'Create new 'Import records' operation for current table or set.
operation_startup("import records","",.t.)

[Stan Mathews]

Re: Import for RT ?

Since you have the table structure set, I would define an import operation to import to the existing table from whatever form the data is presently and save it. Then convert it to xbasic and modify it to accept the user location selection.

The xbasic to import the Northwind customers table in the Northwind Alphasports sample to an existing customers2 table in AlphaSports is

dim connectionString as c 
connectionString = "{A5API=Access,FileName='C:\Program Files\A5V8\MDBFiles\Northwind.mdb',UserName='Admin'}" 

delete options 
dim options as p 
options.ConsolidateArguments= .t.
options.AddTablesToDatabase= .t.
options.ShowProgress= .t.
options.AllowCancel= .t.


delete a_import
dim a_import[0] as p 


a_import[].ObjectName = "Customers"
a_import[..].SQLSelectStatement = "SELECT * FROM Customers"
a_import[..].SQLType = "Portable"
a_import[..].Arguments = ""
a_import[..].ImportType = "Append to existing table"
a_import[..].AppendOption = "Append all"
a_import[..].AppendToTableName = a5.get_path() + chr(92) + "customers2"+".dbf"
a_import[..].AppendFieldMap = ""

dim flagSilent as l
flagSilent = .t.
delete p 
dim p as p 
p = a5_AlphaDAO_Import(connectionString,a_import,options,flagSilent)

The modification necessary to allow a user to run this and locate the mdb for themselves is

[COLOR="Red"]loc = ui_get_file("Select","Locate the .mdb to be imported.")
if loc = ""
end 
end if[/COLOR]

dim connectionString as c 
[COLOR="red"]connectionString = "{A5API=Access,FileName='"+var->loc+"',UserName='Admin'}" [/COLOR]

delete options 
dim options as p 
options.ConsolidateArguments= .t.
options.AddTablesToDatabase= .t.
options.ShowProgress= .t.
options.AllowCancel= .t.


delete a_import
dim a_import[0] as p 


a_import[].ObjectName = "Customers"
a_import[..].SQLSelectStatement = "SELECT * FROM Customers"
a_import[..].SQLType = "Portable"
a_import[..].Arguments = ""
a_import[..].ImportType = "Append to existing table"
a_import[..].AppendOption = "Append all"
a_import[..].AppendToTableName = a5.get_path() + chr(92) + "customers2"+".dbf"
a_import[..].AppendFieldMap = ""

dim flagSilent as l
flagSilent = .t.
delete p 
dim p as p 
p = a5_AlphaDAO_Import(connectionString,a_import,options,flagSilent)

operation_startup("import records","",.t.)

What were you thinking???? The documentation specifically states
Note : This function is not available in the Alpha Five Runtime.

[Keith Hubert]

Re: Import for RT ?

Hi Stan,

The documentation specifically states
Note : This function is not available in the Alpha Five Runtime.

You mean I have to read that as well!!!!!

Will this script allow me to map to desired fields?

As always, many thanks for your help.

[Stan Mathews]

Re: Import for RT ?

You just take the xbasic of the defined operation and modify it to allow the user to navigate to the mdb. If you map the fields in the operation they will be mapped in the xbasic.