Hi Ron;

  Is this interaction with Excel via a direct OLE mechanism?

Regards ... Chris

Hi Ron.

Here is an example about how to load excel data into the database:

/*
uf_exceltodatastore (
OleObject aoo_sheet,
Datastore ads_data,
String as_range,
Integer ai_totlines,
Integer ai_totcolumns) -> None

[Parameters]
aoo_sheet: active sheet
ads_data: datastore used to update database
as_range: initial position
ai_totlines: number of lines
ai_totcolumns: number of columns

[Return]
None
*/

STRING ls_ClipBoard

// store the current clipboard
ls_clipBoard = Clipboard()

// copy the active sheet data to the clipboard
aoo_sheet.Range(as_range).Resize(ai_totlines,ai_totcolumns).Copy

// paste the clipboard into the datastore
ads_data.ImportClipBoard()

// update the data
ads_data.Update()

// restore the original clipboard
Clipboard(ls_clipBoard)

Regards,

Luiz

Hi!

To read excel, need excel odbc driver 

trans.DBMS = "ODBC"
trans.AutoCommit = False
trans.DBParm = "ConnectString='DSN=ODBCTOEXCELFILE;UID=;PWD='"

or  

trans.DBParm="ConnectString='DSN=Excel Files;DBQ=x:\path\excelfile.xlsx'"

And you can use old cursor solution.

DECLARE cursorname CURSOR FOR
select "excel first col header name", "excel second col header name" from "pagename$" using trans;

//the end of pagename need $ sign

//the excel first row contains header of col.

// Declare a destination variable for fields
string ls_field1, ls_field2
// Execute the SELECT statement with the
OPEN cursorname;
// Fetch the first row from the result set.
FETCH cursorname INTO :ls_field1, :ls_field2;
// Loop through result set until exhausted.
DO WHILE trans.sqlcode = 0
// Display a message box with the employee name.
MessageBox("Found an field1!",ls_field1)

// can do anything with variables.
// Fetch the next row from the result set.
Yield()
FETCH cursorname INTO :ls_field1, :ls_field2;
LOOP
// All done; close the cursor.

CLOSE cursorname;

Regards,

Géza