Database içinde var mı?

[Serhat]

Selam;

Kullanıcı OpenDialog ile farklı db içinde arama yapabilecek, OpenDialog ile seçilen db içinde "MERKEZ" table (Select * From MERKEZ) yoksa
kullanıcıya bu uyarıyı nasıl verebilirim?

Kod: Tümünü seç

procedure TForm5.BtnDBAraClick(Sender: TObject);
begin
  try
    With OpenDialog do
    begin
      Filter := 'Database *.db|*.db';
      if Execute then
      begin
        Screen.Cursor := crHourGlass;
        RPFDConnection.Connected := False;
        RPFDConnection.LoginPrompt := False;
        RPFDConnection.Params.Clear;
        RPFDConnection.Params.Values['Database'] := FileName;
        RPFDConnection.Params.Values['DriverID'] := 'SQLite';
        RPFDConnection.Params.Values['CharacterSet'] := 'utf8';
        RPFDConnection.Connected := True;
        QPMer.Connection := RPFDConnection;
      end;
    end;
  finally
    Screen.Cursor := crDefault;
  end;
end;

[freeman35]

code tag ını kullanırsan yazdıkların daha anlaşılır olur. mesajını edit edebilirsin.
google a da "sqlite table list" diye sorarsan onlarca cevap çıkıyor. örnek:
http://stackoverflow.com/questions/8287 ... ith-attach
if db ye bağlandın mı then
if table listeesinde aradığın varmı? then tamam
else bu db benim değil
else db geçersiz

[brs]

Kod: Tümünü seç

if Not TableExists('PLAYLIST', FDConnection) then
        begin
         AlertMesaj('Database bağlantısı başarısız oldu...     ', 3);
        end
        else
        begin
          AlertMesaj('Database bağlantısı başarılı oldu...     ', 2);
        end;

Kolay gelsin

[Serhat]

Kod: Tümünü seç

if Not TableExists('PLAYLIST', FDConnection) then
        begin
         AlertMesaj('Database bağlantısı başarısız oldu...     ', 3);
        end
        else
        begin
          AlertMesaj('Database bağlantısı başarılı oldu...     ', 2);
        end;

Kolay gelsin

Sayın Brs Allah sizden razı olsun büyük bir dertten kurtardın beni.