Oto toplu db oluşturma

[hido]

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?

Kod: Tümünü seç

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;

[ertank]

Merhaba,

Kullandığınız Delphi sürümünü belirtmemişsiniz.
Kullandığınız database detaylarını da paylaşmamışsınız.

- Yapmak istediğiniz ay değiştiğinde yeni ay için tek bir database dosyası oluşturmak mı?
- Yoksa yıl değiştiği zaman bir yıl için tüm ayların databaselerini tek seferde oluşturmak mı? (Gönderdiğiniz örnek bu seçenek gibi durmakla beraber yapmak istediğiniz bu mu sorunuzdan açıkça anlaşılmıyor)
- Kod örneği sadece database isimlerini bir liste içine dolduruyor gibi duruyor. Bu kısım ile ilgili bir sorununuz var mı? Yoksa bundan sonraki adım olan database dosyalarını oluşturmak için mi yardım istiyorsunuz?

Kod ile ilgili öneriler:
1- for döngüsü içindeki i değişkeni prosedür içinde tanımlanmamış.
2- for döngüsünü 0 (sıfır) değil 1 (bir) ile başlatmanız. Aksi halde hiç kullanılmayacak 002017.db database dosyasını da dizinde oluşturursunuz. Programın database dosya erişim yapısına göre bu mantık hatalarına da sebep olabilir.