ExceptionProvider not Exported

10/07/2008

0

Senhores sou inciante e creio que irei fazer uma pergunta besta para a maioria dos senhores, mas como estou me batendo muito com isso la vai!!
Estou fazendo um sisteminha no Delphi 2006 + Firebird 2.0. Em um dos módulos eu preciso trocar a fonte de dados de um clientdataset(CDS)
para alimentar o Dbcombobox.
Eu já tenhos os dois Providers que fornecem essas fontes de informações então pensei que poderia fazer um seletor com um Radiogroup para selecionar qual provider iria alimentar o CDDS. O sistema não deu erro mas na hora que abro o CDS apresenta a mensagem ExceptionProvider not Exported. Alguem poderia me dar uma ajuda ???
Agradeço pela atenção
Lubs

vou colar esse código abaixo

-----------------------------------------------------------------------------------
if RGDest.ItemIndex=0 then
Begin
CDSCB.Close;
CDSCB.RemoteServer:=DM.LcConnection;
CDSCB.ProviderName:=´DM.DtsPrvAGENCIA´;
Destbox.Caption :=´Agencia´;
cbsel.DataBinding.DataField:=´Agencia´;
end
Else
BEgin
CDSCB.Close;
CDSCB.RemoteServer:=DM.LcConnection ;
CDSCB.ProviderName :=´DM.DTsPRVFornecedor´;
Destbox.Caption :=´Fornecededores´;
cbsel.DataBinding.DataField:=´Fornecedor´;
End;

CDSCB.Open;


Lubs

Lubs

Responder

Posts

14/07/2008

Luiz Henrique

Boa tarde lubs, tudo blz

Ja vi isto, mas nao lembro o que fiz, mas no teu post ai tem um ajuste à ser feito.
A propriedade ProviderName do ClientDataSet, e uma string que mostra o nome do provider setado. Para configurar um provider à um CDS, deve ser usado desta forma: ClientDataSest.SetProvider(Provider).

Espero que seja isto o problema, T+


Responder

15/07/2008

Emerson Nascimento

tire o ´DM.´ da nome do provider.
CDSCB.Close;
if RGDest.ItemIndex=0 then
Begin
  CDSCB.RemoteServer := DM.LcConnection;
  CDSCB.ProviderName := ´DtsPrvAGENCIA´;
  Destbox.Caption := ´Agencia´;
  cbsel.DataBinding.DataField := ´Agencia´;
end
Else
BEgin
  CDSCB.RemoteServer := DM.LcConnection;
  CDSCB.ProviderName := ´DtsPRVFornecedor´;
  Destbox.Caption := ´Fornecededores´;
  cbsel.DataBinding.DataField := ´Fornecedor´;
End;



Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar