lcOBDCh =SQLSTRINGCONNECT('DBQ=\\S2\Database\MDB\baback2004.mdb;'+'PWD=;Driver={Microsoft Access Driver (*.mdb)}') > > IF lcOBDCh < 1 > AERROR(laError) > MessageBox([Cannot connect to AccessDB ]+laError[1,2]) > RETURN .f. > ENDIF > > lcsql = [SELECT T_KUNDENAUFTRAGUNDDETAIL.KA_PASS1X AS X1, T_KUNDENAUFTRAGUNDDETAIL.KA_PASS2X AS X2, ] + ; > [T_KUNDENAUFTRAGUNDDETAIL.KA_PASS1Y AS Y1, T_KUNDENAUFTRAGUNDDETAIL.KA_PASS2Y AS Y2, ] + ; > [T_AUFTRAGBELICHTERDATENUNDZUSATZ.BAD_DEHNUNG_X AS BADX, T_AUFTRAGBELICHTERDATENUNDZUSATZ.BAD_DEHNUNG_y AS BADY ] + ; > [FROM T_KUNDENAUFTRAGUNDDETAIL ] + ; > [INNER JOIN T_AUFTRAGBELICHTERDATENUNDZUSATZ ON T_AUFTRAGBELICHTERDATENUNDZUSATZ.BAD_ID = T_KUNDENAUFTRAGUNDDETAIL.KAK_ID ] + ; > [WHERE T_KUNDENAUFTRAGUNDDETAIL.KAK_AUFTRAGNR = '] + kbwo.fpartno + [' ] > > IF SQLEXEC(lcOBDCh, lcsql , "cad1") < 1 > AERROR(laError) > MessageBox([Cannot get data from MyAccessTable ]+laError[1,2]) > SQLDISCONNECT(lcOBDCh) > RETURN .f. > ENDIF >>