Erro ao Incluir dados com IBClientDataSet - Paleta IBX?

Firebird

05/12/2006

Pessoal nunca usei o IBDataSet, gostaria primeiro de saber, eh melhor do que o IBQuery?

Segundo, como fa�o para incluir dados? Nao eh igual ao IBQuery?

To fazendo um teste com uma tabela feito no firebird 2.0

No form coloquei os componentes
DataBase
Transaction
DataSet

Liguei normal, e no dataset usei a propriedade select do SQL assim �seelct * from tabela� e ativei ela
ai para incluir usei dois edits e um button com o codigo

procedure TForm1.Button1Click(Sender: TObject);
begin
IBDataSet1.Active:= false;
IBTransaction1.Active:= false;
IBTransaction1.StartTransaction;
IBDataSet1.InsertSQL.Add(�INSERT INTO TABELA (idcad, cliente)�);
IBDataSet1.InsertSQL.Add(�VALUES (:pidcad, :pcliente)�);
IBDataSet1.ParamByName(�pidcad�).AsString:= Edit1.Text;
IBDataSet1.ParamByName(�pcliente�).AsString:= Edit2.Text;
IBDataSet1.ExecSQL;
IBTransaction1.Commit;
IBDataSet1.Active:= TRUE;
end;

No Query eu fa�o assim

if application.messagebox(Pchar(�Deseja Incluir este Lan�amento:� + #13+ dm.qRYLIMPA.FieldByName(�Sequencia�).AsString +�  �+ 13+ dm.qRYLIMPA.FieldByName(�associado�).AsString), Pchar(�Incluir Dados�+Self.Caption), MB_ICONQUESTION
+ MB_YESNO) = IDYES then begin
    //Close;
    dm.ibqcorr.sql.clear;
    dm.ibqcorr.sql.Add(�Insert into corrente(matricula, associado, mespgto, mesrefini, mesreffim)�);
    dm.ibqcorr.sql.add(�values (:Matricula, :Associado, :Mespgto, :Mesrefini, :Mesreffim)�);

    dm.ibqcorr.ParamByName(�Matricula�).Value :=Edit1.text;
    dm.ibqcorr.ParamByName(�Associado�).value:=label3.caption;
    dm.ibqcorr.ParamByName(�Mespgto�).value:=strtodate(maskedit1.text);
    dm.ibqcorr.ParamByName(�Mesrefini�).value:=strtodate(maskedit2.text);
    dm.ibqcorr.ParamByName(�Mesreffim�).value:=strtodate(maskedit3.text);
    try
      dm.ibqcorr.ExecSql;
      dm.ibtcorr.commit;

E nao tenho problemas com grava�ao, mais no ibDataSet esta me acusando um erro no codigo assim

[b:0b811631da]Field ��PIdCad�� Not Found[/b:0b811631da] Como se nao existisse este parametro, inclusive ateh carreguei o fields do ibDataSet

Entao a pergunta, como se inclui dados com este componente?

Adriano_servitec

Curtidas 0

POSTAR