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;
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
Curtir tópico
+ 0
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+
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
Clique aqui para fazer login e interagir na Comunidade :)