VPF::дамп базы MySQL из Delphi - Форум программистов

Hattab

Дата 21.5.2009, 15:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 17.5.2009

Репутация: нет
Всего: нет

Здравствуйте.
Есть БД на MySQL.Есть Delphi 7 и коннект к базе через ADO.
Подскажите пожалуйста, можно ли из программы сделать дамп базы. Через ADOQuery или ADOCommand например...

Hattab

Дата 21.5.2009, 22:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 17.5.2009

Репутация: нет
Всего: нет

Спасибо за ответы smile

Нашел...

Keeper89

Дата 21.5.2009, 22:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 1
Всего: 58

Hattab, как нашли скажите, другим пригодится.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Hattab

Дата 22.5.2009, 01:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 17.5.2009

Репутация: нет
Всего: нет

ну.. через АДО конечно не получилось найти smile

зато работает через вызов внешнего приложения:

Код


function ExecAndWait(const ExeName, Params: string; out ExitCode: Cardinal; Timeout: Cardinal = MaxInt): boolean;
var
  sv: TStartupInfo;   
  proc: TProcessInformation;     
begin
  ZeroMemory(@sv, SizeOf(sv));
  sv.cb := SizeOf(sv);
  Win32Check(CreateProcess(PChar(ExeName), PChar(Params), nil, nil, False, 0, nil,
    nil, sv, proc));   
  try
    CloseHandle(proc.hThread); 
    Result := WaitForSingleObject(proc.hProcess, Timeout) = WAIT_OBJECT_0; 
    if Result then
      Win32Check(GetExitCodeProcess(proc.hProcess, ExitCode));   
  finally
    CloseHandle(proc.hProcess);  
  end;
end;
                    


  procedure ExecCommandLine(const Cmd: string);
var
  Dummy: Cardinal;
begin
  ExecAndWait(GetEnvironmentVariable('ComSpec'), '/C ' + Cmd, Dummy);
end;


procedure TForm1.N5Click(Sender: TObject);
begin
ExecCommandLine('C:\WINDOWS\system32\cmd.exe /C mysqldump.exe -u root -p имя_базы > имя_файла.sql');
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »