 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
adriano_servitec
Colaborador
Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
|
 Enviada: Ter Dez 05, 2006 5:43 pm Assunto: Erro ao Incluir dados com IBClientDataSet - Paleta IBX? |
 |
|
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
| Código: | 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
| Código: | 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
Field ''PIdCad'' Not Found Como se nao existisse este parametro, inclusive ateh carreguei o fields do ibDataSet
Entao a pergunta, como se inclui dados com este componente? |
|
| Voltar ao Topo |
|
 |
omaximo
Novato
Registrado: Quarta-Feira, 29 de Junho de 2005
Mensagens: 19
|
| Enviada: Qui Dez 07, 2006 6:21 pm Assunto: Erro ao Incluir dados com IBClientDataSet - Paleta IBX? |
|
|
Amigo,
Eu só utilizo IBClientDataSet para instruções tipo SELECT, para inclusão/alteração/exclusão de dados eu utilizo IBQuery, IBSQL ou IBStoredProc. |
|
| Voltar ao Topo |
|
|
adriano_servitec
Colaborador
Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
|
| Enviada: Qui Dez 07, 2006 6:47 pm Assunto: Re: Erro ao Incluir dados com IBClientDataSet - Paleta IBX? |
|
|
| omaximo escreveu: | Amigo,
Eu só utilizo IBClientDataSet para instruções tipo SELECT, para inclusão/alteração/exclusão de dados eu utilizo IBQuery, IBSQL ou IBStoredProc. |
Sim obrigado por responder, mais a minha duvida aqui eh pq andei lendo que o IBDataSet da paleta Interbase nao a da paleta DBExpress eh mais rapido as transaçoes que o IBQuery.
Obs: To usando o Delphi 5, nao tem a paleta DBExpress |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
