basta vc tratar o evento do botao cancelar e nao realizar a carga de dados
pois vc esta tentando caragare NADA noa houve selecao
_____________________________________
[EMAIL PROTECTED]
MSN [EMAIL PROTECTED]
analista de sistemas - Rio Grande - RS
--------------------------------------------------
----- Original Message -----
From: "Welson Avelar" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Tuesday, January 03, 2006 9:19 AM
Subject: Re: [delphi-br] Ajuda: ClientDataSet + XML
-----x-----
ediberto_alves escreveu:
Primeiramente um PRÓSPERO 2006 pra todos! Muita saúde, alegria, paz,
harmonia, realizações...e claro, muita $$$ no bolso :D .
Estou com um problema num cds + xml. Abaixo segue a procedure:
procedure TfrmInventario.btnAbrirBDClick(Sender: TObject);
begin
if opendialog.Execute then
cdsInventario.FileName := opendialog.FileName;
cdsinventario.Close;
if not cdsinventario.Active then
cdsInventario.Open;
end;
Ou seja, ao clicar no botão, o opendialog é aberto e o usuário caminha
no drive até encontrar o arquivo XML, ao selecionar vai tudo OK,
carrega o XML num dbgrid, agora se o usuário cancela o opendialog,
quando está procurando o arquivo. Acontece o seguinte erro:
cdsInventario: Missing data provider or data packet
Tem alguma forma de tirar esse erro???
Agradeço antecipadamente.
Abraços.
-----x-----
[Welson] Coloque dentro de um Try/Except.
procedure TfrmInventario.btnAbrirBDClick(Sender: TObject);
begin
try
if opendialog.Execute then
cdsInventario.FileName := opendialog.FileName;
cdsinventario.Close;
if not cdsinventario.Active then
cdsInventario.Open;
except
abort; //faz uma saida silenciosa, sem retornar erro.
end;
Esse erro aí tá ocorrendo porque se você não especificar um arquivo em
"FileName", ele ainda tentará abrir o CDS, mas irá gerar o erro, pois
afinal, não tem arquivo algum especificado, sacou ?!
Abraços...
=================================
"Nunca ande pelo caminho traçado, pois ele conduz somente até onde os outros
já foram."
Alexander Graham Bell
=================================
Welson de Avelar Soares Filho
Programador Delphi
Gemini Sistemas
<www.geminisistemas.com.br>
Juiz de Fora - Minas Gerais
=================================
---------------------------------
Yahoo! doce lar. Faça do Yahoo! sua homepage.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
--
<<<<< 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
