delphi + mysql + backup

[ndonmez]

Delphi 7 mysql bağlantısını scibit mycomponents'le sağladık ancak yedek almak için ne gibi bir sql komutu kullanılacak bir fikri olan varmı ?

[cemaliozan]

Bu bileşeni deneyenilirsin...

[almeda]

Bunu actım read me dosyasını okudum fakat calısştıramadım lütfen yardımcı olurmusun ?

[cemaliozan]

1. MySQL veri tabanı kurulmuş ve servisi çalışıyor olmalı
2. Özel olarak bu bileşen libmysql.dll, MyBackUp.dll ile birlikte çalıştığından bu dosyayı ya system32 yada uygulamanın exe klasörüne kopyalamalısın.
3. Şimdi farkettim, libmysql.dll dosyası zip dosyasına dahil edilmemiş...Bu dosyayıda ekleyip yeniden gönderiyorum..

[almeda]

Readme dosyasının 3.satırdaki yapmam gerekeni anlamadım ? Bileşen kurmam için hangi adımları izlemem lazım libmysql.dll, MyBackUp.dll attım ssyem32 içine

[cemaliozan]

Diyorki bileşeni derlerken derleme penceresinde options sekmesine gelin, directories bölümünde Search Path bölümüne bilşen paketinin bulunduğu yolu girin ki derlerken arayıp bulması kolay olsun diyor. Resimlere bak.

[almeda]

Çok tesekkür ederim içindeki örnektende cok yardım aldım

[almeda]

Bilen birini bulmusken bişi daha danısmak istiyorum.Direk veritabanından bişi sormadan programın bağlı olduğu veritabanını cekmek istiyorum.İnternette bu komutu buldum fakat çalışmadı ne yapmam lazım acaba ?

 
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('BACKUP DATABASE VeriTabaniAdi TO DISK = N''YedeklenecekYol'' WITH INIT , NOUNLOAD , NAME = N''STP backup'', NOSKIP , STATS = 10, NOFORMAT');
ADOQuery1.ExecSQL;

Veritabanı adını yazdım yedeklenecek yol olarak ilk c:\ olarak gösterdim sonra sitemin bir klasörüne yazım izni verdim en azından internette yedeklesin diye gene olmadı ?

[almeda]

Buna cevap verebilcek biri varmı acil ?

[Caylaq]

Merhaba,

Aşağıdaki Yazı delphiturkiye.com Adresinde mkysoft isimli üyeden alıntıdır.

Umarım işinizi görür


Kolay gelsin

 
 
procedure Tfr_yedek.bt_yedekle_dershaneClick(Sender: TObject);
var
dosyasay: integer;
sonuc : TSearchRec;
tablolar: string;
begin
dg_kapa.FileName := copy(DateToStr(now),1,2)+'-'+copy(DateToStr(now),4,2)+'-'+copy(DateToStr(now),7,4)+'_'+copy(timeToStr(now),1,2)+'-'+copy(timeToStr(now),4,2)+'-'+copy(timeToStr(now),7,4)+'_dershane';
dosyasec := false;
dg_kapa.Execute;
if dosyasec=false then exit;
try
mkdir(extractfilepath(application.exename)+'\Yedek');
except
dosyasay := FindFirst(extractfilepath(application.exename)+'\Yedek\*.*', faAnyFile - faDirectory, sonuc);
while dosyasay = 0 do
begin
deletefile(extractfilepath(application.exename)+'\Yedek\'+sonuc.Name);
dosyasay := FindNext(sonuc);
end;
FindClose(sonuc);
end;
tablo_oku.Close;
tablo_oku.SQL.Clear;
tablo_oku.SQL.Add('show tables FROM dershane');
tablo_oku.Open;
tablolar:= tablo_oku.Fields[0].Text;
tablo_oku.Next;
while tablo_oku.Eof = false do
begin
tablolar:=tablolar+','+tablo_oku.Fields[0].Text;
tablo_oku.Next;
end;
tablo_oku.Close;
tablo_oku.SQL.Clear;
tablo_oku.SQL.Add('backup table '+tablolar+' to '''+stringreplace(extractfilepath(application.exename),'\','/',[rfReplaceAll])+'/Yedek''');
tablo_oku.ExecSQL; //burada tüm tabloların istediğim klasöre yedeklenmesini sağladım.
zip_kapa.FileName := dg_kapa.FileName;
dosyasay := FindFirst(extractfilepath(application.exename)+'\Yedek\*.*', faAnyFile - faDirectory, sonuc);//burada abrivia companentiyle çıkan yedeklerin zip lenmesini sağladım.
while dosyasay = 0 do
begin
zip_kapa.AddFiles(extractfilepath(application.exename)+'\Yedek\'+sonuc.Name,0);
dosyasay := FindNext(sonuc);
end;
FindClose(sonuc);
dosyasay := FindFirst(extractfilepath(application.exename)+'\Yedek\*.*', faAnyFile - faDirectory, sonuc);
while dosyasay = 0 do
begin
deletefile(extractfilepath(application.exename)+'\Yedek\'+sonuc.Name);
dosyasay := FindNext(sonuc);
end;
FindClose(sonuc);
rmdir(extractfilepath(application.exename)+'\Yedek'); //buraya kadar oluşan templeri sildim.
tablo_oku.Close;
tablo_oku.SQL.Clear;
tablo_oku.SQL.Add('update ayarlar set yedek_tarih="'+mtarih(now())+'"');
tablo_oku.ExecSQL; //yedeklendiğine dair kayıt.
messagedlg('Dershane için yedek alma işlemi başarıyla tamamlandı.', mtInformation ,[mbOK], 0);
end;