Ir para conteúdo
Fórum Script Brasil
  • 0

Como fazer insert em campo autonumeração em acccess ?


sidneimarques

Pergunta

4 respostass a esta questão

Posts Recomendados

  • 0

Olá Sidnei!

Você poderia ser mais específico, tipo: "Estou tentando gravar dados de vários textbox em uma tabela Access, nas colunas tal e tal...".

A primeira vista, entendi que você precisa gravar dados em uma coluna auto-numérica, mas isso não é possível. Em uma estrutura assim, ao gravar dados em uma coluna qualquer da sua tabela, o campo auto-numérico se incrementa sozinho.

Poste novamente com mais detalhes pra podermos te ajudar. Até mais!

Link para o comentário
Compartilhar em outros sites

  • 0

Essa é minha sub, mas não grava no banco.. não sei o que há de errado, todos os campos no banco access são do tipo texto... no banco tem um campo id tipo autonumeração mas não coloquei ele na string como você pode ver... se puder dar uma ajudinha eu agradeço muito....

Private Sub GravarDados()
Dim cnnComando As New ADODB.Command
Dim vConfMsg As Integer
Dim vErro As Boolean

On Error GoTo errGravacao
'Inicializa as variáveis auxiliares:
vConfMsg = vbExclamation + vbOKOnly + vbSystemModal
vErro = False
'Verifica os dados digitados:
If txtNomeCliente.Text = Empty Then
MsgBox "O campo Nome não foi preenchido.", vConfMsg, "Erro"
vErro = True
End If
If txtCnpj.Text = Empty Then
MsgBox "O campo CNPJ não foi preenchido.", vConfMsg, "Erro"
vErro = True
End If
If txtEndCliente.Text = Empty Then
MsgBox "O campo Endereço não foi preenchido.", vConfMsg, "Erro"
vErro = True
End If
If txtTel.Text = Empty Then
MsgBox "O campo Telefone não foi preenchido.", vConfMsg, "Erro"
vErro = True
End If


'Se aconteceu um erro de digitação, sai da sub sem gravar:
If vErro Then Exit Sub
Screen.MousePointer = vbHourglass
With cnnComando
.ActiveConnection = cnnMotoca
.CommandType = adCmdText




'Inclusão:
.CommandText = "INSERT INTO clientes " & _
"(codigo,nome, cnpj, Endereco, bairro, " & _
"cidade, estado, cep, telefone,contato, email) VALUES ('" & _
txtCodCliente.Text & ",'" & _
txtNomeCliente.Text & ",'" & _
txtCnpj.Text & "','" & _
txtEndCliente.Text & "','" & _
txtBairro.Text & "','" & _
txtCidade.Text & "','" & _
cmbEstado.Text & "','" & _
txtCep.Text & "','" & _
txtTel.Text & "','" & _
txtContato.Text & "','" & _
txtEmail.Text & "');"
.Execute
End With
MsgBox "Gravação concluída com sucesso.", _
vbApplicationModal + vbInformation + vbOKOnly, _
"Gravação OK"
'Chama a sub que limpa os dados do formulário:
LimparTela
Saida:
Screen.MousePointer = vbDefault
Set cnnComando = Nothing
Exit Sub
errGravacao:
With Err
If .Number <> 0 Then
MsgBox "Houve um erro durante a gravação dos dados na tabela.", _
vbExclamation + vbOKOnly + vbApplicationModal, "Erro"
.Number = 0
GoTo Saida
End If
End With
End Sub

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...