DXI data import

[rickesilaw]

Has anyone tried to extract data from the above format. It is data file for ZPAY, a payroll written in Delphi.

 

[rgbean]

While it's likely to be a proprietary format, if it's documented somewhere, it's possible someone can help you. Does the application supply an Export capability?

Rick

 

[rickesilaw]

it looks like it is MSACCESS format - if you rename the file to zpay.mdb you can load it into excel using get external data - so question would be how to read msaccess data

 

[rgbean]

You can easily use the Access ODBC drivers or OLEDB through remote views or the VFP 8.0 CursorAdaptors to get at this data. See

http://support.microsoft.com/default.aspx?scid=kb;en-us;133286&Product=fox

- "HOWTO: Use Microsoft Access Data in Visual FoxPro" for one way to approach this.

Rick

 

[rickesilaw]

Thx Rick - one of our programmers found that as well - here is his sample code:

LOCAL lcMyFile, lnConnHandle, lnResult, lcSQLCommand, lnGetData, lcNewName
LOCAL ARRAY laWhatErr(1)

lcMyFile = GETFILE('MDB')

IF !EMPTY(lcMyFile)
lnConnHandle = ;
SQLSTRINGCONNECT('DRIVER=MICROSOFT ACCESS DRIVER (*.MDB);DBQ=' + lcMyFile)

IF lnConnHandle > 0
lnResult = SQLTABLES(lnConnHandle, 'TABLE')

IF lnResult > 0
CREATE DATABASE roypaydb
SELECT SQLResult
SCAN
*!* Build a SQL SELECT statement to pass to SQLEXEC()
lcSQLCommand = "SELECT * FROM [" + ALLTRIM(SQLResult.table_name) + "]"

lnGetData = SQLEXEC(lnConnHandle, lcSQLCommand, 'newdata')
IF lnGetData > 0
lcNewName = STRTRAN(ALLTRIM(SQLResult.table_name), " ", "_&quot

SELECT newdata
COPY TO (lcNewName) DATABASE roypaydb
ENDIF
ENDSCAN
ENDIF
=SQLDISCONNECT(lnConnHandle)
ELSE
=MESSAGEBOX('ODBC Connection Failed', MB_ICONEXCLAMATION, 'ODBC')
=AERROR(laWhatErr)
DISPLAY MEMORY LIKE laWhatErr
ENDIF
ENDIF