Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Oto toplu db oluşturma
#1
Selam, databeseyi program çalıştığında yoksa CREATE ederek oluşturuyorum. Fakat her ay içi farklı bir db oluşturmam lazım,

Örnek:
012017
022017
032017 diye devam edecek, nasıl bir kodlama ile dblerin uluşmasını sağlarım?



procedure TForm1.DatabaseOlustur(Sender: TObject); // Yoksa Oluştur
begin
  DBKlasor := ExtractFilePath(Application.Exename) + 'DBLER\';
  if Not DirectoryExists(DBKlasor) then
    ForceDirectories(DBKlasor);
  for I := 0 to 12 do
  begin
    DBPlaylist := DBKlasor + FormatDateTime('mmyyyy', Date) + '.db';
  end;
end;
Cevapla
#2
(08-03-2017, Saat: 00:49)hido Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlSelam, databeseyi program çalıştığında yoksa CREATE ederek oluşturuyorum. Fakat her ay içi farklı bir db oluşturmam lazım,

Örnek:
012017
022017
032017 diye devam edecek, nasıl bir kodlama ile dblerin uluşmasını sağlarım?



procedure TForm1.DatabaseOlustur(Sender: TObject); // Yoksa Oluştur
begin
  DBKlasor := ExtractFilePath(Application.Exename) + 'DBLER\';
  if Not DirectoryExists(DBKlasor) then
    ForceDirectories(DBKlasor);
  for I := 0 to 12 do
  begin
    DBPlaylist := DBKlasor + FormatDateTime('mmyyyy', Date) + '.db';
  end;
end;

Ben olsam klasörden bakmam.
SHOW DATABASES
ile database listesini alır kontrol ederim.
j82OmG.png


Hatta buna da gerek yok 
Döngü ile açtırabilirsin. eğer o isimde database yok ise açar.
CREATE DATABASE IF NOT EXISTS yhackup001;
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla
#3
Şuanki ay'a göre DB ismi belirle:
DBName := DBKlasor + IntToStr(System.DateUtils.MonthOf(Now)) + '.db';
Klasör içinde böyle bir dosya var mı kontrol et.
Yoksa oluştur.
There's no place like 127.0.0.1
WWW
Cevapla
#4
var
 I: Integer;
 Tarih: TDate;
begin
 Tarih := StartOfTheMonth(Date);
 for I := 1 to 12 do
 begin
   Tarih := IncMonth(Tarih, 1);
   DBPlaylist := DBKlasor + FormatDateTime('mmyyyy', Tarih) + '.db';
 end;
end;
Cevapla
#5
(08-03-2017, Saat: 00:49)hido Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
procedure TForm1.DatabaseOlustur(Sender: TObject); // Yoksa Oluştur
begin
  for I := 0 to 12 do
  begin
    DBPlaylist := DBKlasor + FormatDateTime('mmyyyy', Date) + '.db';
  end;
end;

Döngüyü neden 0 dan başlatınız?

“Do. Or do not. There is no try.”
Cevapla
#6
MS SQL için database listesi çeker
SELECT name FROM master.dbo.sysdatabases

PostgreSQL için kayıtlı olan database listesini çeker
SELECT datname FROM pg_catalog.pg_database
PostgreSQL - Linux - Delphi, Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
WWW
Cevapla
#7
Teşekkürler herkese...
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  EFatura xml oluşturma ile ilgili kütüphane bilen? witalihakko 8 352 09-08-2018, Saat: 16:19
Son Yorum: witalihakko
  UDL Dosya Oluşturma Bay_Y 6 261 01-08-2018, Saat: 13:24
Son Yorum: Bay_Y
  kayıp olan dfm dosyasını oluşturma Bay_Y 7 276 09-05-2018, Saat: 13:05
Son Yorum: Bay_Y
  FTP ağaç görünümü oluşturma dicle_gsm 4 554 13-01-2018, Saat: 16:45
Son Yorum: dicle_gsm
  toplu mail gönderimi erdogan 0 319 30-12-2017, Saat: 20:11
Son Yorum: erdogan



Konuyu Okuyanlar: 1 Ziyaretçi