Connection Before After Connect

[Dostk]

Selam.

Arkadaşlar sqlite databaseyi connection after, before ile bağlantı ve databaseyi oluşturmak istiyorum; fakat telefonda projeyi çalıştırınca ekran siyah oluyor ve programdan çıkış dahi yapamıyorum; bu durumu nasıl aşabilirim?

Kod: Tümünü seç

procedure TForm1.ConnectionAfterConnect(Sender: TObject);
begin
  With Form2.UserTable do // User create
  begin
    SQL.Clear;
    SQL.Add('CREATE TABLE IF NOT EXISTS User(');
    SQL.Add('ID INTEGER PRIMARY KEY AUTOINCREMENT');
    SQL.Add(', ADISOYADI VARCHAR NOT NULL');
    SQL.Add(', TELEFONNUMARASI VARCHAR NOT NULL');
    SQL.Add(' );');
    ExecSQL;
  end;
end;

Kod: Tümünü seç

procedure TForm1.ConnectionBeforeConnect(Sender: TObject);
var
  MyDB: String;
begin
  try
    MyDB := System.IOUtils.TPath.GetDocumentsPath + PathDelim + 'UserDb.db';
    With Connection do
    begin
      LoginPrompt := False;
      Params.Clear;
      Params.Values['Database'] := MyDB;
      Params.Values['DriverID'] := 'SQLite';
      Params.Values['CharacterSet'] := 'utf8';
      Connected := True;
    end;
  finally
  end;
end;

[fesiharslan]

Merhaba;
Sorunun asıl kaynağını bulma adına şöyle bir tavsiyem olacak.
Connection bağlantısını (OnBeforeConnect olayındaki kodlar) bir butonun Click olayına yazın, tablo oluşturma kodlarını da (OnAfterConnect olayındaki kodlar) ayrı bir buton Click olayına yazın.
Uygulamayı çalıştırın ve önce connect butonuna, daha sonra tablo oluşturma butonuna tıklayın.
Böylece sorunun hangi kod kısmında olduğunu daha hızlı tespit edebilirsiniz.

[Dostk]

Buton olarak daha önce yapmıştım, siz söyledikten sonra tekrar yaptım sorun yok;
FDConnectionAfter ve FDConnectionBefore de aynı kodları kullandığım zaman kodları telefon ekranı siyah olarak kalıyor...

[fesiharslan]

O halde tüm kodları OnBefareConnection olayında kullanın. Muhtemelen bu sizin sorununuzu çözecektir.