Nasaüstü database oluşturma

[dilo]

Selam;

Uzun süredirFiremonkey tarafında birşeyler yapmıyordum, görsellik nedeniyle firemonkey de projelerimi geliştirmek istiyorum; Fakat masaüstü projeme klasör ve  database oluşturamadım acaba neden kaynaklanıyor bu durum; Gözümden kaçan nedir? VLC tarafında bu kodları kullandığımda herhangi bir sorun çıkmıyor.

var // Klasör ve Databese
  KlasorDB, DBStok: String; // Klasörler

implementation

procedure TForm1.DBveKlasorCreate(Sender: TObject); // Yoksa Oluştur
begin
  KlasorDB := TPath.GetDocumentsPath + PathDelim + 'Database\';
  if Not DirectoryExists(KlasorDB) then
    ForceDirectories(KlasorDB);
  DBStok := KlasorDB + '\Genel.db';
end;

procedure TForm1.DatabaseCreate(Sender: TObject); // Playlist Database
begin
  MainConnect.Connected := False;
  MainConnect.LoginPrompt := False;
  MainConnect.Params.Clear;
  MainConnect.Params.Values['Database'] := DBStok;
  MainConnect.Params.Values['DriverID'] := 'SQLite';
  MainConnect.Params.Values['CharacterSet'] := 'utf8';
  MainConnect.Connected := True;
  With MainFDQuery do
  begin
    Connection := MainConnect;
    Close;
    SQL.Clear;
    SQL.Add('CREATE TABLE IF NOT EXISTS URUNLER(');
    SQL.Add('ID INTEGER PRIMARY KEY AUTOINCREMENT');
    SQL.Add(', SIRANO INTEGER');
    SQL.Add(', URUN VARCHAR(255)');
    SQL.Add(' ) ; ');
    ExecSQL;
  end;
  MainFDQuery.Close;
end;

[CaglarCoskun]

SQLite dosyası bu şekilde create etsenizde çalışmaz sqlite3.dll dosyasına ihtiyaç duyar. Create etmek yerine boş bir sqlite dosyasını ve sqlite3.dll dosyasını kopyalayın.

[meko]

benim yöntemim aşağıdaki gibi

     
 if not FileExists(ProgramPath+FileName_Server_SQLite) then
     begin
       cnnSQLite.Close;
       cnnSQLite.Params.Clear;
       cnnSQLite.Params.Add('DriverID=SQLite');
       cnnSQLite.Params.Add('LockingMode=Normal');
       cnnSQLite.Params.Add('Database='+ProgramPath+FileName_Server_SQLite);
       cnnSQLite.Open;
       scrcnnSQLite.ExecuteAll; (* tabloları oluşturmak için script nesnesi *)
       cnnSQLite.Close;
     end else
     begin
       cnnSQLite.Close;
       cnnSQLite.Params.Clear;
       cnnSQLite.Params.Add('DriverID=SQLite');
       cnnSQLite.Params.Add('LockingMode=Normal');
       cnnSQLite.Params.Add('Database='+ProgramPath+FileName_Server_SQLite);
     end;

[dilo]

Teşekkür ederim sorun çözüldü