Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 4/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Nasaüstü database oluşturma
#1
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;
Cevapla
#2
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.
Cevapla
#3
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;
Cevapla
#4
Teşekkür ederim sorun çözüldü
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Form oluşturma (Çözüldü) Orhanlar 3 114 10-09-2018, Saat: 10:48
Son Yorum: Orhanlar
Question SQLİTE veritabanı oluşturma ? BY-HAYALET 10 562 21-05-2018, Saat: 16:50
Son Yorum: BY-HAYALET
  Listview nesnesi ile birden fazla alan oluşturma Fesih ARSLAN 11 3.242 17-03-2018, Saat: 11:36
Son Yorum: Bay_Y
  Database listelemede pas geçme dilo 8 525 08-03-2018, Saat: 10:15
Son Yorum: Bay_Y
  Combobox database insert hido 4 398 08-02-2018, Saat: 03:42
Son Yorum: dilo



Konuyu Okuyanlar: 1 Ziyaretçi