>lcSourceFile = "C:\projects\\FRS\FRS5Data.accdb" >pnConnHandle = SQLSTRINGCONNECT("Driver={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=" + ; > lcSourceFile) >TEXT TO lcSQLCommand NOSHOW >DECLARE @MyTable table( id INTEGER, myvalue varchar(10) ); > >INSERT INTO [TblHousehold] (SYSTEMPROGRAMCD, PROGRAMCD,LSTUPDTDTTM) VALUES (?m.sysprogcd,?m.programcd,?m.lstupdtdttm) && values populated by SCATTER >OUTPUT INSERTED.HouseholdSeqNbr, INSERTED.householdversionnbr INTO @myTable > >SELECT * FROM @myTable >ENDTEXT > >lnResult = SQLEXEC(pnConnHandle,lcSQLCommand) > >IF lnResult <= 0 > AERROR(laError) > MessageBox(laError[1,2]) >ENDIF >>
>lcSourceFile = "C:\projects\FRS\FRS5Data.accdb" >pnConnHandle = SQLSTRINGCONNECT("Driver={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=" + ; > lcSourceFile) >TEXT TO lcSQLCommand NOSHOW >INSERT INTO [TblHousehold] (SYSTEMPROGRAMCD, PROGRAMCD,LSTUPDTDTTM) VALUES (?m.sysprogcd,?m.programcd,?m.lstupdtdttm) >ENDTEXT > >lnResult = SQLEXEC(pnConnHandle,lcSQLCommand) >