Witam,
Mam problem z programikiem do automatycznej archiwilizowania lokalnej bazy MySQL. Kombinowałem takie coś:
var
Query,adres,od,ad,nazwa,paths: string;
begin
if SaveDialog1.Execute then
begin
adres:=SaveDialog1.FileName;
if (ComboBox1.Text='Kontrahenci') then
begin
Query := 'SELECT * INTO OUTFILE c:\\temp.avr FROM kontrahenci';
Data.dSQL.Active;
Data.dSQL.Sql.Clear;
Data.dSQL.Sql.Add(Query);
Data.dSQL.Open;
od := 'c:\temp.avr';
ad:=ExtractFilePath(adres);
if FileExists(PChar(ad + '\kontrahenci.avr')) then DeleteFile(PChar(ad + '\kontrahenci.avr'));
MoveFile(PChar('c:\temp.avr'), PChar(ad + '\kontrahenci.avr'));
nazwa:= ExtractFileName(od);
paths :='c:'+nazwa;
ShowMessage('Archiwilizacja wykonana pomyślnie!!!');
Mam to wsadzone w TIMERA.
wszystko ładnie chodzi do pierwszego wywołania tej funkcji - przy kolejnych wychodzi error że taki plik jest już utworzony w podanej lokalizacji i program się wywala :/ Po prostu program chyba pomija procedurke do wywalenia tego pliku - ma ktoś może jakiś pomysł jak to rozwiązać??
Proszę o pomoc, pozdrawiam
Northwest :)