>> >>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 >>