Criar registro em uma tabela

Question

Tenho uma base de dados em interbase .... gostaria de saber atrav�s de linha de codigo inserido em um button , como inserir um novo registro do banco de dados em referida tabela ... me ajudem?? Obriga...

Paullsoftware · Answer

Qual componentes de acesso a base vc est� usando?

Usando componentes nativos do interbase, paleta Interbase com IbDataSet podemos fazer assim:

coloque um IbDataBase, um IbTransaction, um IbDataSet e DataSource...
[b:4c48ac9bd9]Configure o IbDataBase para:[/b:4c48ac9bd9]
[i:4c48ac9bd9]DatabaseName = �Nome da sua base de dados�;
Default Transaction = Para o IbTransaction1 colocado na aplica��o[/i:4c48ac9bd9]
[b:4c48ac9bd9]Configure o IbTransaction para:[/b:4c48ac9bd9]
[i:4c48ac9bd9]DefaultDataBase = aponte para o seu DataBase1
Clique duas vezes sobre o IbTransaction e marque a op��o: ReadCommited[/i:4c48ac9bd9]
Selecione o seu IbDataSet e nos eventos AffterPost e AffterDelete coloque o c�digo abaixo:

if Not ibTransaction1.InTransaction then
 ibTransaction1.StartTransaction;
  Try
   if ibTransaction1.InTransaction then
    ibTransaction1.CommitRetaining
     Except
      if ibTransaction1.InTransaction then
       ibTransaction1.RollbackRetaining;
        end;

agora no OnClick do bot�o Novo:

IbDataSet1.Insert;//Inicia o processo de inser��o

OnClick do bot�o Salvar:

if DataSource1.State in [dsEdit,dsInsert] then
IbDataSet1.Post;
ibDataSet1.ApplyUpdates;

� basicamente o mesmo tratamento de quando usamos Access ou outro GBD... para maiores informa��es voc� pode baixar algumas apostilas aqui mesmo no site www.clubdelphi.net ou www.apostilando.com
espero ter ajudado!

F�rum Criar registro em uma tabela #320925