conexao cds dsp sqlqry

24/05/2008

1

Ola amigos, como posso fazer essa ligação via codigo, tenho esse codigo

esta dando esse erro..

[Error] ufrmCadPessoa.pas(233): Incompatible types: ´String´ and ´TDataSetProvider´


class procedure TfrmCadPessoa.AbreForm(NumParam: Variant);
var
  cdsForm: TClientDataSet;
  dspForm: TDataSetProvider;
  qryForm: TSQLQuery;
begin
  if not assigned(frmCadPessoa) then
  begin
   frmCadPessoa := TfrmCadPessoa.Create(Application);
   qryForm := TSQLQuery.Create(Application);
   dspForm := TDataSetProvider.Create(Application);
   cdsForm := TClientDataSet.Create(Application);
   dspForm.DataSet := qryForm;
   cdsForm.ProviderName := ´dspForm´;
   cdsForm.Close;
   cdsForm.fetchParams;
   cdsForm.params.ParamByName(´MATRICULA_PESSOA´).value :=
 NumParam;
    cdsForm.Open;

    frmCadPessoa.Show;
  end;
 end;



bye


Responder

Posts

troque a linha:
cdsForm.ProviderName := ´dspForm´;

por:
cdsForm.SetProvider(dspForm);

isso é necessário porque você não tinha um objeto chamado ´dspform´. você tinha a instância dspForm (do DatasetProvider).

e mais:
- cadê a instrução SQL para funcionamento da query?
- a que conexão a SQLQuery está conectada?

outra coisa: o comando cdsForm.Close é totalmente desnecessário.


Responder

25/05/2008

Wolverinefarah

troque a linha: cdsForm.ProviderName := ´dspForm´; por: cdsForm.SetProvider(dspForm); isso é necessário porque você não tinha um objeto chamado ´dspform´. você tinha a instância dspForm (do DatasetProvider). e mais: - cadê a instrução SQL para funcionamento da query? - a que conexão a SQLQuery está conectada? outra coisa: o comando cdsForm.Close é totalmente desnecessário.



blz, vou testar e volto a postar


bye


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira