AUTO INCREMENTO DE CODIGO

THIGO 29/09/2010 08:38:57
#354084
Também criaria o auto increment (Sequence), mas como ele quer assim o problema no meu era o que o MARCELO-TREZE creio que dará certo agora.

Mas veja a possibilidade de criar sequence porque no futuro você tera tabelas que poderao relacionar e nao podendo inserir o mesmo numero novamente.

No seu caso por exemplo se excluir o usuario 6 e fazer o insert novamente irá inserir o 6 novamente.

Segue um pequena modificação do marcelo

Private Sub subGravar()
     Dim sSQL As String
     Dim rs As New ADODB.Recordset
     [ô] na query você criou um alias(apelido=max_cod)
     sSQL = sSQL & [Ô] SELECT Max(cod) As max_cod FROM loguin[Ô]

     If rs.State <> 0 Then rs.Close

     rs.Open sSQL, Conn
     [ô] agora vc deve apresentar este apelido
    
     If (rs.BOF = True And rs.EOF = True) Then
     cod = 1
     Else
     [ô] aqui pego o ultimo código e somo mais 1    
     cod = cint(rs!max_cod) + 1
     End If
    
     sSQL = [Ô][Ô]
     sSQL = sSQL & [Ô]INSERT INTO loguin ([Ô]
     sSQL = sSQL & [Ô]    usuario, [Ô]
     sSQL = sSQL & [Ô]    senha, [Ô]
     sSQL = sSQL & [Ô]    cod) [Ô]
     sSQL = sSQL & [Ô]VALUES( [Ô]
     sSQL = sSQL & [Ô]    [ô][Ô] & txt(3).Text & [Ô][ô], [Ô]
     sSQL = sSQL & [Ô]    [ô][Ô] & txt(4).Text & [Ô][ô], [Ô]
    sSQL = sSQL & [Ô]    [ô][Ô] & cod & [Ô][ô]) [Ô]
    
     Conn.Execute sSQL, , 128 + 1
  
     MsgBox [Ô]Sua conta já pode ser usada![Ô], vbInformation, [Ô]Cadastrado com Sucesso[Ô]
     Call subLimpar
    
End Sub


flw
NALDO 29/09/2010 15:42:08
#354140
Obrigado a todos, e o código do TECLA de colocar o autoimplemente também da certo, mas o código que eu queria estava aqui mesmo em uma agenda pessoal que possuo:

sSQL = [Ô][Ô]
sSQL = sSQL & [Ô] SELECT[Ô]
sSQL = sSQL & [Ô] MAX(codigo) + 1[Ô]
sSQL = sSQL & [Ô] FROM[Ô]
sSQL = sSQL & [Ô] tab_contatos[Ô]

é esse ai, mas obrigado a todos!
Página 2 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar