ExceptionProvider not Exported

10/07/2008

2

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;


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
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
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira