Conselho:
Faça uma stored procedure que faça isso e use o componente : TADOStoredProc
Fim de problemas...rs
Bjus
Vanessa
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Gleidison S. Bertolini
Enviada em: sexta-feira, 6 de outubro de 2006 11:51
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Restore Dadabase Sql Server pelo Delphi
está com a extensão .bak e no query analyser funciona normalmente, só que
eu fiz de um jeito que parou de dar o erro mas tb não restaura..
QPadrao.Close;
QPadrao.Sql.Clear;
QPadrao.Sql.Text:= 'USE [Master] RESTORE DATABASE ['+BancoDados+'] FROM
DISK =
'''+DiretorioComBarra(DirectoryRestore.Directory)+EdtRestore.Text+;
QPadrao.ExecSQL;
Demora um tempo, parece que restaurou mas não restaurou..
Gleidison
- Original Message -
From: Gabriel Filho
To: delphi-br@yahoogrupos.com.br
Sent: Friday, October 06, 2006 10:38 AM
Subject: Re: [delphi-br] Restore Dadabase Sql Server pelo Delphi
Aconselho vc executar esse restore em algum utiitário de query, tipo
query
analizer ou qualquer coisa do tipo,
pra ver o q pode estar ocorrendo.
Em 06/10/06, Vanessa Merces [EMAIL PROTECTED] escreveu:
Sim... esta certo ...
Eu só tiraria o [ ] mas acho que não muda nada...
Ah verifique a extensão do arquivo.. tem que estar .bak...
Posso ate estar falando besteira mas acho q só restaura com esse tipo
de
arquivo
Bjus
Vanessa
-Mensagem original-
De: delphi-br@yahoogrupos.com.br
[mailto:[EMAIL PROTECTED]
nome de Gleidison S. Bertolini
Enviada em: quinta-feira, 5 de outubro de 2006 19:07
Para: Grupo Delphi
Assunto: [delphi-br] Restore Dadabase Sql Server pelo Delphi
Pessoal, estou tentando resutaurar uma base em sql pelo delphi,
usando
ADO
mas fala que está em uso. Eu desconectei o banco, conectei com
Master
mesmo assim não deu...
FrmPrincipal.AdoPrincipal.Connected:= False;
FrmPrincipal.AdoPrincipal.ConnectionString:=
'Provider=SQLOLEDB.1;Password=kairos;Persist Security Info=True;User
ID=kairos;Initial Catalog=master;Data Source='+Servidor;
FrmPrincipal.AdoPrincipal.Connected:= True;
QPadrao.Close;
QPadrao.Sql.Clear;
QPadrao.Sql.Text:= 'RESTORE DATABASE ['+BancoDados+'] FROM DISK =
'''+DirectoryRestore.Directory+'\'+EdtRestore.Text+;
Try
QPadrao.ExecSQL;
Except
Se alguém pode me ajudar eu agradeço.
Gleidison
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html