🚀 go-pugleaf

W dniu 19.03.2018 o 01:22, J-23 pisze:
> Witam
> Buduję komponent bazodanowy gdzie będzie można podłączyć dowolną bazę za 
> pomocą TDataSource
> 
> W komponencie będzie się podawać DataField tak jak w standardowej 
> kontrolce DB
> 
> za pomocą tego komponentu będzie można dodać też dane do tabeli 
> podłączonej za pomocą TDataSource
> 
> i robię zwyczajne operacje wyglądającą tak
> 
> DataSource.Dataset.Append
> ...
> ..
> ..
> DataSource.Dataset.Post
> 
> 
> 
> Do TDatasource są podpięte Zeosy z AutoCommit
> więc dane lądują w bazie odrazu
> 
> gdy wykonam:
> Append
> Post
> (jednorazowo) dane są bez problemu dodawane do bazy
> 
> ale gdy klikne przycisk 2 krotnie dostaje: "0 record(s) updated. Only 
> one record should have been update"
> 
> próbowałem po post dołożyć Refresh ale nic to nie zmienia
> 
> Próbowałem miabu tego co radziłeś tutaj
> https://forum.lazarus.freepascal.org/index.php?topic=32170.0 ale bez efektu
> 
> Rano spróbuje podłączyć coś innego niż Zeos i zobaczyć jaki będzie efekt
> 
> Baza to Firebird ale zależy mi na 2 bazach na Firebird i MSSQL bo tam 
> będzie to docelowo działać
> 

Dla uzupełnienia: jeśli odwołam się bezpośrednio np do ZTable czyli np

ZTable.Append
ZTable.Post

Problem nie występuje. Jednak zależało by mi na pozostawieniu tego na 
poziomie DataSource

Pozdrawiam
J-23