-----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 >>>>>
<*> 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
