Forum > Packages and Libraries

SQLITE3DATASER

(1/1)

eldonfsr:
Well lastly i have a problem testing deferent components this time i made a test with tsqlite3datase,  first time run without problem because table is empty  but when run  with
 not empty table  delete datas send me error field not found, i don't know if is possible run sql on it. just after append send me error not found.


--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} --- if( DParts.Active = true) then begin      if( not DParts.EOF) then begin         DParts.SQL:='delete from parts;';         DParts.ExecSQL;         DParts.ApplyUpdates;         DParts.Refresh;//         DParts.close;       end;   end;  DParts.open;  if( (SQLQPLL.Active = true) and (DParts.Active=true)) then begin    SQLQPLL.First;    while(not SQLQPLL.EOF) do begin       DParts.Append;      DParts.FieldByName('PartNumber').AsString:= SQLQPLL.FieldByName('plpnpartnumber').AsString;      DParts.FieldByName('ParentPart').AsString:= SQLQPLL.FieldByName('plpnParentPart').AsString;      DParts.FieldByName('Supplier').AsString:= SQLQSU.FieldByName('susupplier').AsString;      DParts.FieldByName('qty').AsInteger:= SQLQPLL.FieldByName('plqty').AsInteger;      DParts.FieldByName('item').AsInteger:=SQLQPLL.FieldByName('PLItem').AsInteger;      DParts.FieldByName('Item').AsInteger:= SQLQPLL.FieldByName('PLItem').AsInteger;      DParts.FieldByName('PLMfrpnid').AsInteger:= SQLQPLL.FieldByName('PLMfrpnId').AsInteger;      DParts.FieldByName('PLMfrid').AsInteger:= SQLQPLL.FieldByName('PLMfrId').AsInteger;      DParts.FieldByName('Title').AsString := SQLQPLL.FieldByName('PnTitle').AsString;      DParts.FieldByName('Detail').AsString:= SQLQPLL.FieldByName('PnDetail').AsString;      DParts.FieldByName('Type').AsString:= SQLQPLL.FieldByName('PnType').AsString;      DParts.FieldByName('Stock').AsInteger:= SQLQPLL.FieldByName('PnQty').AsInteger;      DParts.FieldByName('lnkvendorPN').AsString:= SQLQLNK.FieldByName('LnkVendorPn').AsString;      DParts.FieldByName('lnkvendorDesc').AsString:= SQLQLnk.FieldByName('LnkVendorDesc').AsString;      DParts.FieldByName('units').AsString:= SQLQPLL.FieldByName('unuseunits').AsString;       DParts.post;      DParts.ApplyUpdates;      SQLQPLL.Next;    end;    

Navigation

[0] Message Index

Go to full version