Pessoal,

Tenho uma procedure que faz uma pesquisa no banco de dados e que retorna uma 
OleVariant com as informações (a propriedade Data de um ClientDataSet).

Só que quando eu o configuro, está dando erro de acesso de memória.

Alguém poderia me dizer o que está errado?

function TDmCadastro.getData(SQL: String): OleVariant;
var
  lt_CDS  :TClientDataSet;
begin
  Result := Null;
//  lt_CDS  := TClientDataSet(Nil);
  lt_CDS  := TClientDataSet(dspGetData.Owner);
  try
//    lt_CDS.SetProvider(dspGetData); <-- Erro acontece aqui (quando 
descomentado)
    lt_CDS.ProviderName := dspGetData.Name; <-- Erro acontece aqui
    lt_CDS.CommandText := SQL;
    lt_CDS.Open;
    Result := lt_CDS.Data;
  finally
    lt_CDS.Close;
    FreeAndNil(lt_CDS);
  end;
end;

Obrigado

Francisco Thiago de Almeida
Enter&Plug Informática
Divisão: Desenvolvimento e Banco de dados
MSN: [EMAIL PROTECTED]
Skype: enterplug_thiago 





-- 
<<<<< 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] ou [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

 


Responder a