Delhphi Xe5 Sqlite Veritabanı Kayıt Güncelleme Sorunu(String

[softdestek]

Programı windows ortamında çalıştırdığım zaman veritabanına kayıt ekle ve değiştir oluyor . Fakat programı android için derlediğim zaman kayıtlar listeniyor fakat kayıt değişiklikleri olmuyor. Programa bir adet strgrid nesnesi ekledim. Firedac ile bağlandığım veritabanındaki verileri BindSourceDB1 özelliği ile stringgridde listeliyorum...

[G.Arkas]

Acaba yazma izni olmayan bir klasöre mi yazmaya çalışıyorsunuz?

[mrmarman]

Merhaba.

- (1) Sorunuzu Mobil bölümünde açmamışsınız, artık forumda böyle bir bölüm var.
bkz. FireMonkey ve Mobil

- (2) Sorunuzu biraz açar mısınız ? Kayıt değişiklikleri olmuyor derken, siz FDQuery ile veritabanına mesela herhangi bir INSERT veya UPDATE execute ettiğinizde, ekrandaki liste OnLine değişmiyor (binding sorunsalı) şeklinde bir sorundan mı bahis ? Öyle anladım. Yoksa bir hata mesajı vs. yazardınız ..

- Aşağıdaki sıralama ile deneme yaptım, siz de bu akış üzerinden atladığınız bir şey var mı kontrol edin.

(1) Bir Mobile Application açtım, Forma;
- FDConnection
- FDQuery
- ListBox
- BindSourceDB
- BindingsList
- FDPhysSQLiteDriverLink
- FDGUIxWaitCursor;

ekledim.

(2) Örnek bir veritabanı oluşturmuştum. "Veritabani.s3db" ile FDConnection ve FDQuery bağlantımı yaptım.

Kod: Tümünü seç

strDB := System.IOUtils.TPath.GetDocumentsPath + PathDelim + 'Veritabani.s3db';

(3) BindSourceDB'yi FDQuery'e bağladım
(4) ListBox'un TEXT'ini FDQuery'yi bağladığım ve BindSourceDB'de gördüğüm alanlarımdan birine bağlantı kurdum.
(5) bağımsız bir Query'yi aşağıdaki şekilde dinamik create edip bağlayıp execute edip çıktım.

Kod: Tümünü seç

procedure THeaderFooterForm.Button2Click(Sender: TObject);
begin
  With TFDQuery.Create(nil) do
  begin
    Connection := FDConnection1;
    SQL.Clear;
    SQL.Add( 'INSERT INTO TestTable  '   );
    SQL.Add( '( Adi, Soyadi, ePosta )' );
    SQL.Add(' VALUES ' );
    SQL.Add(' ( ''Muharrem_' + IntToStr( SecondOf(Now) ) + ''', ''ARMAN'', ''muharrem.arman@trt.net.tr'' ) ' );
    ExecSQL;
    Free;
  end;
end;

- Burada işlemden sonra şunu dener misiniz ?Güncelleme göremediğinize ilişkin sorunsal için..

Kod: Tümünü seç

  FDQuery1.Active := False;
  FDQuery1.Active := True;

- Bunu yaptığınız zaman BindingsList tetiklenecek ve işlemini yapacaktır diye değerlendiriyorum.