Valeu, e em relação ao erro ...FIELD AGEN_CODI MUST HAVE A VALUE... o que eu
faço....
veja a como esta o trigger do before insert
IF (NEW.AGEN_CODI IS NULL)
THEN
NEW.AGEN_CODI=GEN_ID (GEN_TAB_AGEN_ID,1);
Neste form possuo o DBEdit como o campo AGEN_CODI
e veja o que coloque no onclick do botão gravar :
DM.ClientDataSetAgencia.ApplyUpdates(-1);
O que devo fazer para corrigir este erro?
Grato
Cristiano.
>From: "Romario (Listas)" <[EMAIL PROTECTED]>
>Reply-To: delphi-br@yahoogrupos.com.br
>To: delphi-br@yahoogrupos.com.br
>Subject: Re: [delphi-br] Tutorial - Romario
>Date: Fri, 20 May 2005 12:36:43 -0300
>
>=======================================================
> Fiz de cabeça. Testa aí e põe o resultado na lista.
>=======================================================
>
>Var
> TD : TTransactionDesc;
>Begin
>
> // Informa que o identificador das transações
> // será um número recuperado aleatoriamente.
> Randomize;
>
> // Recupera um identificador aleatório para
> // a transação.
> TD.TransactionID := Random(65535);
>
> // Seta o nível de isolamento da transação.
> TD.IsolationLevel := xilREADCOMMITTED;
>
> // Abre nova transação e verifica se houve sucesso...
> If Conexao.BeginTransaction(@TD) = SQL_SUCCESS Then
> Begin
>
> Try
>
> With SeuClientDataSet Do
> Begin
>
> Insert;
> FieldByName('SeuCampo').AsInteger := 222222;
> Post;
>
> <Lembre-se do ApplyUpdates no evento AfterPost>
>
> End;
>
> // Efetua o Commit e verifica se houve erro.
> If Not Conexao.Commit(@TD) = SQL_SUCCESS Then
>
> // Gera uma exceção para o erro ocorrido.
> Raise ETransFiled.Create;
>
> Except
>
> // Desfaz as alterações feitas no banco.
> Conexao.RollBack(@TD);
>
> End;
>
> End;
>
>End;
>
>=======================================================
>
>Sds,
>
>Romario
>
>
>
>Cristiano Rodrigo Gomes escreveu:
> > Romario valeu, consegui finalmente criar um bd e ligar uma tabela ao
>form.
> > Valeu mesmo.
> >
> > Depois neste exemplo que vc mandou tentei acrescentar os botões, novo,
> > alterar, excluir, cancelar e gravar.
> >
> > Só encontrei problemas no botão gravar, mas tbém acho q tem relação com
>o
> > botão novo, pois qdo clico para ele gravar ele exibe a seguinte mensagem
>:
> > projetc sgc raised...... field 'agen_codi' must have a value....
> >
> > O que acontece ele não está gerando o código de auto inclemento, se eu
> > pessoalmente digitar o próximo código no dbedit do código ele grava
> > normalmente porém se não fizer isso ele mostra aquela mensagem.
> >
> > Obs. criei o trigger no bd para gera o próximo código.
> >
> > Ah, tbém se puder me mandar o exemplo de como ficaria o commit para os
> > botões novo, gravar, cancelar e alterar vou ficar muito grato.
> >
> >
> > Espero poder me ajudar.
> >
> > Grato
> >
> > Cristiano.
>
_________________________________________________________________
MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
