ActiveDelphi :: Exibir tópico - Missing data provider or datapacket? [RESOLVIDO]

ActiveDelphi
.: O site do programador Delphi! :.

FAQ

Pesquisar

Membros

Grupos

Registrar

Perfil

Entrar e ver Mensagens Particulares

Entrar

Missing data provider or datapacket? [RESOLVIDO]
Ir à página 1, 2 Próximo

ActiveDelphi - Índice do Fórum -> Delphi

Exibir mensagem anterior :: Exibir próxima mensagem

Autor

Mensagem

adriano_servitec
Colaborador

Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618

Enviada: Qua Jan 18, 2012 1:11 pm Assunto: Missing data provider or datapacket? [RESOLVIDO]

Pessoal, pelo erro que recebo
Missing data provider or datapacket

Acho que deve ser falta de setar o datasetprovider no clientdataset, mais não estou entendendo o porque, vejam meu código.

Código:

unit U_PersonalizarCor;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DB, DBClient, Provider;

type
Tfrm_personalizarcor_receber = class(TForm)
gb_personalizar: TGroupBox;
Panel1: TPanel;
gbVencer: TGroupBox;
cb_corvencer: TColorBox;
chk_negritovencer: TCheckBox;
chk_italicovencer: TCheckBox;
chk_sublinhadovencer: TCheckBox;
chk_tachadovencer: TCheckBox;
chk_negritalicovencer: TCheckBox;
gbVencidos: TGroupBox;
cb_corvencido: TColorBox;
chk_negritovencido: TCheckBox;
chk_italicovencido: TCheckBox;
chk_sublinhadovencido: TCheckBox;
chk_tachadovencido: TCheckBox;
chk_negritalicovencido: TCheckBox;
gbCancelado: TGroupBox;
cb_corcancelado: TColorBox;
chk_negritocancelado: TCheckBox;
chk_italicocancelado: TCheckBox;
chk_sublinhadocancelado: TCheckBox;
chk_tachadocancelado: TCheckBox;
chk_negritalicocancelado: TCheckBox;
btn_Salvar: TButton;
cdsPersonalizarCor: TClientDataSet;
procedure FormShow(Sender: TObject);
procedure btn_SalvarClick(Sender: TObject);
private
{ Private declarations }
procedure GetDatabaseValue;
procedure SaveToDatabase;
function SelectDBase: Boolean;
public
{ Public declarations }
end;

var
frm_personalizarcor_receber: Tfrm_personalizarcor_receber;

implementation

uses uDM, StrUtils;

{$R *.dfm}

{ Tfrm_personalizarcor_receber }

{-------------------------------------------------------------------------------
Vamos usar um clientdataset que serve para conexão com qualquer componente
de banco de dados através de um datasetprovider.
o dataset proveider deve ficar junto no dm setado ao componente de acesso
ao banco e o clientdataset ficar no form e receber o dsp que esta do dm.
-------------------------------------------------------------------------------}
function ADIfThen(aValue: String): Boolean;
begin
if aValue = 'T' then
Result := True
else
Result := False;
end;

function Tfrm_personalizarcor_receber.SelectDBase: Boolean;
begin
with cdsPersonalizarCor do
begin
//muda o datasetprovider para o cds executar comandos SQL
dm.dspCor_Receber.Options := dm.dspCor_Receber.Options + [poAllowCommandText];
//seta ao dsp que esta no dm
SetProvider(dm.dspCor_Receber);
Close;
CommandText := ' SELECT * FROM PERSONALIZARCOR_RECEBER ';
Open;
if not IsEmpty then
Result := True
else
Result := False;
end;
end;

procedure Tfrm_personalizarcor_receber.GetDatabaseValue;
begin
if SelectDBase then
begin
with cdsPersonalizarCor do
try
cb_corvencer.Selected := StringToColor(FieldByName('CORVENCER').AsString);
chk_negritovencer.Checked := ADIfThen(FieldByName('NEGRITOVENCER').AsString);
chk_italicovencer.Checked := ADIfThen(FieldByName('ITALICOVENCER').AsString);
chk_sublinhadovencer.Checked := ADIfThen(FieldByName('SUBLINHADOVENCER').AsString);
chk_tachadovencer.Checked := ADIfThen(FieldByName('TACHADOVENCER').AsString);
chk_negritalicovencer.Checked := ADIfThen(FieldByName('NEGRITALICOVENCER').AsString);

cb_corvencido.Selected := StringToColor(FieldByName('CORVENCIDO').AsString);
chk_negritovencido.Checked := ADIfThen(FieldByName('NEGRITOVENCIDO').AsString);
chk_italicovencido.Checked := ADIfThen(FieldByName('ITALICOVENCIDO').AsString);
chk_sublinhadovencido.Checked := ADIfThen(FieldByName('SUBLINHADOVENCIDO').AsString);
chk_tachadovencido.Checked := ADIfThen(FieldByName('TACHADOVENCIDO').AsString);
chk_negritalicovencido.Checked := ADIfThen(FieldByName('NEGRITALICOVENCIDO').AsString);

cb_corcancelado.Selected := StringToColor(FieldByName('CORCANCELADO').AsString);
chk_negritocancelado.Checked := ADIfThen(FieldByName('NEGRITOCANCELADO').AsString);
chk_italicocancelado.Checked := ADIfThen(FieldByName('ITALICOCANCELADO').AsString);
chk_sublinhadocancelado.Checked := ADIfThen(FieldByName('SUBLINHADOCANCELADO').AsString);
chk_tachadocancelado.Checked := ADIfThen(FieldByName('TACHADOCANCELADO').AsString);
chk_negritalicocancelado.Checked := ADIfThen(FieldByName('NEGRITALICOCANCELADO').AsString);
finally
Close;
end;
end;
end;

procedure Tfrm_personalizarcor_receber.FormShow(Sender: TObject);
begin
//obtem os valores do banco
GetDatabaseValue;
end;

procedure Tfrm_personalizarcor_receber.SaveToDatabase;
begin
if SelectDBase then
//primeiro excluimos o que esta gravado no banco
cdsPersonalizarCor.Delete;

with cdsPersonalizarCor do
begin
if not Active then
Open;

//seta ao dsp que esta no dm
SetProvider(dm.dspCor_Receber);
//depois abrimos um novo insert para receber os novos dados
cdsPersonalizarCor.Append;
FieldByName('CORVENCER').AsString := ColorToString(cb_corvencer.Selected);
FieldByName('NEGRITOVENCER').AsString := IfThen(chk_negritovencer.Checked, 'T', 'F');
FieldByName('ITALICOVENCER').AsString := IfThen(chk_italicovencer.Checked, 'T', 'F');
FieldByName('SUBLINHADOVENCER').AsString := IfThen(chk_sublinhadovencer.Checked, 'T', 'F');
FieldByName('TACHADOVENCER').AsString := IfThen(chk_tachadovencer.Checked, 'T', 'F');
FieldByName('NEGRITALICOVENCER').AsString := IfThen(chk_negritalicovencer.Checked, 'T', 'F');

FieldByName('CORVENCIDO').AsString := ColorToString(cb_corvencido.Selected);
FieldByName('NEGRITOVENCIDO').AsString := IfThen(chk_negritovencido.Checked, 'T', 'F');
FieldByName('ITALICOVENCIDO').AsString := IfThen(chk_italicovencido.Checked, 'T', 'F');
FieldByName('SUBLINHADOVENCIDO').AsString := IfThen(chk_sublinhadovencido.Checked, 'T', 'F');
FieldByName('TACHADOVENCIDO').AsString := IfThen(chk_tachadovencido.Checked, 'T', 'F');
FieldByName('NEGRITALICOVENCIDO').AsString := IfThen(chk_negritalicovencido.Checked, 'T', 'F');

FieldByName('CORCANCELADO').AsString := ColorToString(cb_corcancelado.Selected);
FieldByName('NEGRITOCANCELADO').AsString := IfThen(chk_negritocancelado.Checked, 'T', 'F');
FieldByName('ITALICOCANCELADO').AsString := IfThen(chk_italicocancelado.Checked, 'T', 'F');
FieldByName('SUBLINHADOCANCELADO').AsString := IfThen(chk_sublinhadocancelado.Checked, 'T', 'F');
FieldByName('TACHADOCANCELADO').AsString := IfThen(chk_tachadocancelado.Checked, 'T', 'F');
FieldByName('NEGRITALICOCANCELADO').AsString := IfThen(chk_negritalicocancelado.Checked, 'T', 'F');

//Grava os dados
Post;
//Aplica as atualizações no banco
ApplyUpdates(0);
end;
end;

procedure Tfrm_personalizarcor_receber.btn_SalvarClick(Sender: TObject);
begin
SaveToDatabase;
end;

end.

Quando vou chamar a procedure SaveToDatabase procuro ver se existe dados no banco usando esta função

Código:

function Tfrm_personalizarcor_receber.SelectDBase: Boolean;
begin
with cdsPersonalizarCor do
begin
//muda o datasetprovider para o cds executar comandos SQL
dm.dspCor_Receber.Options := dm.dspCor_Receber.Options + [poAllowCommandText];
//seta ao dsp que esta no dm
SetProvider(dm.dspCor_Receber);
Close;
CommandText := ' SELECT * FROM PERSONALIZARCOR_RECEBER ';
Open;
if not IsEmpty then
Result := True
else
Result := False;
end;
end;

Mais ao entrar no Open desta função gera o erro, alguém sabe me dizer o que está faltando para funcionar isso?

Obrigado.
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree

Editado pela última vez por adriano_servitec em Qua Jan 18, 2012 2:41 pm, num total de 1 vez