procedure TForm1.Button1Click(Sender: TObject); begin SQLQuery1.Close; SQLQuery1.SQL.Clear; SQLQuery1.SQL.Add('Select * from ASSETCATEGMAS'); SQLQuery1.Open; begin SQLQuery1.First; while not ADOQuery1.Eof do begin if not ADOTable1.Locate('ACATID',SQLQuery1.Fieldbyname('ACATID').AsInteger,[]) then begin SQLTable1.Append; SQLTable1.FieldByName('ACATID').AsInteger:= ADOTable1.Fieldbyname('ACATID').AsInteger; end else SQLTable1.Insert; SQLTable1.FieldByName('CATCODE').AsString:=ADOTable1.Fieldbyname('CATCODE').AsString; SQLTable1.FieldByName('ACATDESC').AsString:=ADOTable1.Fieldbyname('ACATDESC').AsString; SQLTable1.Post; SQLQuery1.Next; inc(i); end; end; showmessage(Inttostr(SQLQuery1.recordcount)); end;
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)