> >lcDB = "C:\TTS\DBFS\tts.dbc" >lcConnectString = "Driver={Microsoft Visual FoxPro Driver};" + ; > "SourceType=DBC;SourceDB=" + lcDB + ";" + ; > "Exclusive=No;NULL=NO;Collate=Machine;" + ; > "BACKGROUNDFETCH=NO;DELETED=NO" > >lnStringConnection = SQLStringConnect(lcConnectString, .T.) >?lnStringConnection && returns 1 > >lnConnection = SQLCONNECT(lnStringConnection) >?lnConnection && returns 2 > >>
>* old table >lsSql = "SELECT * FROM employee" >lnSuccess = SQLExec(lnConnection, lsSql, "tProcess") >?lnSuccess && returns 1 > >* one of the new tables >lsSql = "SELECT * FROM reserve" >lnSuccess = SQLExec(lnConnection, lsSql, "tProcess") >?lnSuccess && returns -1 >