Tüm Platformlar için Hızlı Uygulama Geliştirme --->    Kitabımız...      Delphi

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
Cevapla
#7
Teşekkürler herkese...
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  FTP ağaç görünümü oluşturma dicle_gsm 4 210 13-01-2018, Saat: 16:45
Son Yorum: dicle_gsm
  toplu mail gönderimi erdogan 0 91 30-12-2017, Saat: 20:11
Son Yorum: erdogan
  Birden fazla database oluşturma dilo 2 161 28-11-2017, Saat: 16:54
Son Yorum: hyperxman
  Activex Kullanma veya oluşturma Lord_Ares 4 419 25-05-2017, Saat: 16:31
Son Yorum: Lord_Ares
  toplu sms gönderme Kamuran Alpkaya 6 542 13-02-2017, Saat: 16:14
Son Yorum: engerex



Konuyu Okuyanlar: 1 Ziyaretçi