lucasjrnany
Novato
Registrado: Quarta-Feira, 29 de Dezembro de 2010
Mensagens: 61
|
 Enviada: Qua Fev 09, 2011 10:24 am Assunto: Restore |
 |
|
Boa dia, precisava de ajuda da galera ai do forum, estou com uma rotina de restore de uma banco quando tento executar ele da seguinte messagem de erro , 'page size is allowed only restore or create ' estou postando meu codigo. Agradeço a ajuda.
| Código: |
procedure TForm1.Button2Click(Sender: TObject);
begin
if edit3.Text = '' then
begin
Application.MessageBox('Atenção, caminho não encontrado !','Atenção.', MB_APPLMODAL + MB_OK + MB_ICONWARNING);
Exit;
end;
if edit4.Text = '' then
begin
Application.MessageBox('Atenção, caminho não encontrado !','Atenção.', MB_APPLMODAL + MB_OK + MB_ICONWARNING);
Exit;
end;
Screen.Cursor := crHourGlass;
with Restore do
begin
if MESSAGEBOX(Application.Handle, 'Dejesa continuar com essa operação?', 'Backup', MB_ICONQUESTION + MB_YESNO) = ID_YES then begin
ServerName := 'LocalHost';
LoginPrompt := False;
Params.Add('user_name=SYSDBA');
Params.Add('password=masterkey');
DatabaseName.Add(edit3.Text);
Active := true;
Verbose := true;
PageBuffers := 32000;
PageSize := 4096;
BackupFile.Add(edit4.Text+'.gdb');
Options := [];
if cb_Replace.Checked then
Options := Options + [Replace];
if cb_NoValidityCheck.Checked then
Options := Options + [NoValidityCheck];
//if not FileExists(edit4.Text+'.gdb') then
//Database.Close;
//Database.DatabaseName := edit4.Text+'.gdb';
//Database.SQLDialect := 3;
//Database.CreateDatabase;
//end;
ServiceStart;
while not eof do
Memo1.Lines.Add(GetNextLine);
ShowMessage('Operação Realizado com Sucesso');
Screen.Cursor := crDefault;
end;
Application.ProcessMessages;
end;
end;
end.
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
