> This is what I have so far...and yes it works importing the excel table to vfp.
>
> [code]SET TALK OFF
> LOCAL lcXLBook AS STRING, lnSQLHand AS INTEGER, ;
> lcSQLCmd AS STRING, lnSuccess AS INTEGER, ;
> lcConnstr AS STRING
> CLEAR
>
> lcXLBook = [C:\GLJEascTest.xls]
>
> 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 .XLS 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( )
>
> *-- 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 )[/code]
> >
> > hi Blair Lawrence
> >
> > I have the same problem as u..
> > It is currently loading into vfp as a memo field.
> > Do you know how do i change it to normal table field?
> >
> >
> > Thank you!
>
>
> Hi Shi,
>
> I was unsuccessful with this strategy. My only way achieve a solution for the task at hand was to bypass VFP and create an excel program that connected to our MS SQL server and upload the data using a click event with VB.NET.
>
> I hope you find a solution.
>
> Good Luck!
>
>
> Cheers,
>
> Blair

Thank you Blair