Romario, de uma olhada para ver se isso está correto, pretendo colocar no botão gravar do cadastro, pois está ocorrendo o seguinte, qdo peço para gravar o cadastro ele grava normalmente, porém não mostra qual foi o código (campo incremento) que foi utilizando, apenas mostra qdo fecho e abro o meu clientDataSet.
Utilizei o comando Refresh, e deu certo, ele exibe porém não sei o que é melhor utilzar, o Refresh ou o Commit. Se puder me ajudar. Cristiano. Var TD : TTransactionDesc; Begin Randomize; TD.TransactionID := Random(65535); TD.IsolationLevel := xilREADCOMMITTED; If SQLConnection.BeginTransaction(@TD) = SQL_SUCCESS Then Begin Try With ClientDataSetAgencia Do Begin Post; // Vou colocar o apllyupdates do ClientDataSetAgencia End; If Not SQLConnection.Commit(@TD) = SQL_SUCCESS Then Raise ETransFiled.Create; Except SQLConnection.RollBack(@TD); End; End; End; >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 Messenger: converse com os seus amigos online. http://messenger.msn.com.br -- <<<<< 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