NameDataType Subtype ADO_Connection Automation ‘Microsoft ActiveX Data Objects 2.7 Library’.Connection ADO_RecordSet Automation ‘Microsoft ActiveX Data Objects 2.7 Library’.Recordset NewItem Record Newitem ------------------------------------------ CREATE(ADO_Connection); ADO_Connection.Open(‘Provider=sqloledb;Data Source=SERVERNAME;Initial Catalog=DATABASENAME’,‘USERID’,‘PASSWORD’); CREATE(ADO_RecordSet); ADO_RecordSet.Open(‘TABLENAME’, ADO_Connection,1,3); IF NOT ADO_RecordSet.EOF THEN ADO_RecordSet.MoveFirst; IF NOT ADO_RecordSet.EOF THEN REPEAT IF NewItem.GET(ADO_RecordSet.Fields().Item(‘ItemNo’).Value) THEN BEGIN NewItem.Description := ADO_RecordSet.Fields().Item(‘Description’).Value; NewItem.MODIFY(TRUE); END ELSE BEGIN NewItem.“No.” := ADO_RecordSet.Fields().Item(‘Itemno’).Value; NewItem.Description := ADO_RecordSet.Fields().Item(‘Description’).Value; NewItem.INSERT(TRUE); END; ADO_RecordSet.MoveNext; UNTIL ADO_RecordSet.EOF; ADO_Connection.Close; CLEAR(ADO_RecordSet); CLEAR(ADO_Connection);