AUTO INCREMENTO FIREBIRD

JPAULO101 26/05/2015 20:22:59
#447049
Olá pessoal tudo tranquilo, estou com problema em uma rotina com banco Firebird, pois a instrução abaixo só gravar no banco se eu colocar o código manual na caixa de texto txtcodigo. alguém poderia me ajudar para o código ser automático, pois o campo código está como Integer e com auto incremento no banco, mais não está gerando o código em cada registro automático. Fico grato com ajuda de todos que puderem me ajudar.

Private Sub cmdGravar_Click()
Dim sSQL As String
On Error GoTo erro

sSQL = [Ô]INSERT INTO TBLATIVIDADE(CODIGO,[Ô]
sSQL = sSQL & [Ô]NOME,[Ô]
sSQL = sSQL & [Ô]DETALHES)VALUES ([Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtCodigo.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtNome.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtDetalhes.Text & [Ô][ô])[Ô]

conexao.BeginTrans
conexao.Execute sSQL
conexao.CommitTrans

MsgBox [Ô]Registro incluso com sucesso![Ô], vbInformation, [Ô]Cadastro de Atividade[Ô]

Exit Sub
erro:
conexao.RollbackTrans
MsgBox [Ô]Ocorreu um erro ao gravar o cadastro[Ô] & vbCrLf & Err.Description, vbExclamation, [Ô]Erro[Ô]
End Sub
JABA 26/05/2015 20:45:41
#447051
Veja se isso resolve o seu problema:

http://www.devmedia.com.br/auto-incremento-firebird/17924
http://www.arquivodecodigos.net/dicas/firebird-como-criar-uma-tabela-contendo-um-campo-auto-incremento-no-firebird-3248.html
OMAR2011 26/05/2015 21:29:32
#447053 Resposta escolhida
Baixe o SQL Manager Lite for InterBase & Firebird e cria tabelas
com campo autonumeração.
Arquivo pedido atrasado.
JPAULO101 26/05/2015 22:08:06
#447054
Obrigado OMAR2011, a ferramenta [txt-color=#0000f0]SQL Manager Lite for InterBase & Firebird[/txt-color] e Free ou Paga?[txt-color=#007100] [/txt-color]
JPAULO101 26/05/2015 22:48:47
#447055
Colegas para colocar o campo Time para aceita nulo como poderia fazer, pois para o campo Data fiz desta forma abaixo

sSQL = sSQL & IIf(txtdata_nascimento.Text = [Ô][Ô], [Ô]Null,[Ô], [Ô][ô][Ô] & Format(txtdata_nascimento.Text, [Ô]dd.mm.yyyy[Ô]) & [Ô][ô],[Ô])


[txt-color=#007100]Para deixar essa linha abaixo para aceita nulo como seria?[/txt-color]

sSQL = sSQL & [Ô][ô][Ô] & Format(txtentrada1.Text, [Ô]hh/mm/ss[Ô]) & [Ô][ô],[Ô]
JPAULO101 26/05/2015 22:54:02
#447056
Obrigado pela ajuda, já consegui resolver o problema.
Tópico encerrado , respostas não são mais permitidas
Voltar