>>HI,
>>
>>I need to create a connection to Visual Foxpro DBC database for query specific table documentos and insert the result into Cursor for creating a new table on SQL server to insert the result of my cursor.
>>This is my code:
>
>Luís,
>
>Why don't you just OPEN DATABASE and SELECT FROM whatever you need to extract, and INSERT whatever you need to add?
>
>Hi Antonio,
>
>Thanks for your reply.
>My program is developed in VFP9 with a SQL Server database, so I can create a routine to connect to my client's old FoxPro database.
>to pass data to my program, namely SQL Server, because my client's software is specifically for glassware.
>
>My problem is that I can't open the database from the client's software, I just need to collect the data from the invoice head table and the invoice line table from my programme.
>The USE command of the table lock it, so I can't use this option or the other software will stop.
>
>Ideally, I'd like to be able to connect to the DBC database via ODBC and perform the necessary queries to pass the data to a cursor in VFP and make INSERTs in my SQL table.
>
>
>Are there any of these possibilities?
>Thank you
>Luis
Sounds like a missing Set Exclusive Off before the Use.

Hi Tore,

Thanks for your reply.

Also, i have this coding to import Excel file into VFP Cursor:

LOCAL lcXLBook AS STRING, lnSQLHand AS INTEGER, ;
    lcSQLCmd AS STRING, lnSuccess AS INTEGER, ;
    lcConnstr AS STRING
CLEAR

lcXLBook = [C:\SampleWorkbook.xlsx]

lcConnstr = [Driver=] + ;
    [{Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};] + ;
    [DBQ=] + lcXLBook

IF !FILE( lcXLBook )
    ? [Excel file not found]
    RETURN .F.
ENDIF
*-- Attempt a connection to the .XLSX WorkBook.
*-- NOTE: If the specified workbook is not found,
*-- it will be created by this driver! You cannot rely on a
*-- connection failure - it will never fail. Ergo, success
*-- is not checked here. Used FILE() instead.
lnSQLHand = SQLSTRINGCONNECT( lcConnstr )

*-- Connect successful if we are here. Extract data...
lcSQLCmd = [Select * FROM "Sheet1$"]
lnSuccess = SQLEXEC( lnSQLHand, lcSQLCmd, [xlResults] )
? [SQL Cmd Success:], IIF( lnSuccess > 0, 'Good!', 'Failed' )
IF lnSuccess < 0
    LOCAL ARRAY laErr[1]
    AERROR( laErr )
    ? laErr(3)
    SQLDISCONNECT( lnSQLHand )
    RETURN .F.
ENDIF


*-- Show the results
SELECT xlResults
BROWSE NOWAIT
SQLDISCONNECT( lnSQLHand )

I need to know how do i change the connection string to connect to DBC or DBF file to do the same.
Is it possible, because this approach work very well and fast for Excel.

Many Thanks,
Luis