>cool, Michel. You´re welcome.
>
>could you send me the fixed code?
Basically, it's something like this:
LOCAL lcMyFile, lnConnHandle, lnResult, lcSQLCommand, lnGetData, lcNewName
LOCAL ARRAY laWhatErr(1)
lcMyFile = GetFile()
lnConnHandle=SQLSTRINGCONNECT('DRIVER=MICROSOFT ACCESS DRIVER (*.MDB);DBQ=' + lcMyFile)
lnResult = SQLTABLES(lnConnHandle, 'TABLE')
CREATE DATABASE mynew
SELECT SQLResult
lcSQL = 'select * from '+ALLTRIM(SQLResult.table_name)
SQLEXEC(lnConnHandle,lcSQL,'myCursor')
SQLDISCONNECT(lnConnHandle)
Select myCursor
brow
