I'm playing around trying to get a feel for how things work. I am starting with a simple Alpha Five project that will add some database features to what is available with Quickbooks.
I have all of the most recent updates for the tools shown in the thread title.
I have spent several hours trying to get past the following problem but nothing I try works. I'm sure the solution is simple. Please help! If you need more info, let me know. Thanks! ~Dave
Import QB Table Data via AlphaDAO
I have searched for and done my best to follow the instructions for setting up a passive-link (QB) table. I can import the complete Customer table (using "SELECT * FROM Customer") or a single column SELECT but as soon as I try to import (SELECT) 2 or more columns from the table, I get one of these two errors...
(This is the error that I get when I setup a multiple column SQL SELECT Statement such as: "SELECT ListID, FullName, CompanyName FROM Customer" and use the "Preview records to be imported" link)...
Script:UI_DLG_BOX:Specify SQL to Select Records line:172
previewRecordsInAdHocDataSource(lv)
Property not found
(This is the error I get when I try and run the operation/script)...
Error running Import Operation
Script:TEMPLATEline:29
p = a5_AlphaDAO_Import(coinnectionString,a_import,options,flasSilent,args)
Property not found
Note: Line 29 is the last line of the XBasic that was created. I have copied the XBasic (that gives the 2nd error) below...
dim connectionString as c
connectionString = "{A5API='ODBC',DataSource='QuickBooks Data',A5Syntax='QuickBooks'}"
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 = "Customer"
a_import[..].SQLSelectStatement = "SELECT ListID, FullName, CompanyName FROM Customer"
a_import[..].SQLType = "Portable"
a_import[..].Arguments = ""
a_import[..].ImportType = "Create table"
a_import[..].LocalTableName = a5.get_path() + chr(92) + "Customer"+".dbf"
a_import[..].LocalTableFieldDef = ""
a_import[..].OverwriteOption = "Prompt before overwriting"
dim flagSilent as l
flagSilent = .f.
delete p
dim p as p
p = a5_AlphaDAO_Import(connectionString,a_import,options,flagSilent,args)
I have all of the most recent updates for the tools shown in the thread title.
I have spent several hours trying to get past the following problem but nothing I try works. I'm sure the solution is simple. Please help! If you need more info, let me know. Thanks! ~Dave
Import QB Table Data via AlphaDAO
I have searched for and done my best to follow the instructions for setting up a passive-link (QB) table. I can import the complete Customer table (using "SELECT * FROM Customer") or a single column SELECT but as soon as I try to import (SELECT) 2 or more columns from the table, I get one of these two errors...
(This is the error that I get when I setup a multiple column SQL SELECT Statement such as: "SELECT ListID, FullName, CompanyName FROM Customer" and use the "Preview records to be imported" link)...
Script:UI_DLG_BOX:Specify SQL to Select Records line:172
previewRecordsInAdHocDataSource(lv)
Property not found
(This is the error I get when I try and run the operation/script)...
Error running Import Operation
Script:TEMPLATEline:29
p = a5_AlphaDAO_Import(coinnectionString,a_import,options,flasSilent,args)
Property not found
Note: Line 29 is the last line of the XBasic that was created. I have copied the XBasic (that gives the 2nd error) below...
dim connectionString as c
connectionString = "{A5API='ODBC',DataSource='QuickBooks Data',A5Syntax='QuickBooks'}"
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 = "Customer"
a_import[..].SQLSelectStatement = "SELECT ListID, FullName, CompanyName FROM Customer"
a_import[..].SQLType = "Portable"
a_import[..].Arguments = ""
a_import[..].ImportType = "Create table"
a_import[..].LocalTableName = a5.get_path() + chr(92) + "Customer"+".dbf"
a_import[..].LocalTableFieldDef = ""
a_import[..].OverwriteOption = "Prompt before overwriting"
dim flagSilent as l
flagSilent = .f.
delete p
dim p as p
p = a5_AlphaDAO_Import(connectionString,a_import,options,flagSilent,args)
Comment