Ir para o conteúdo
HIGKILLER

Incrementa automatico na base de dados.

Mensagens Recomendadas

HIGKILLER

Private Sub adicionar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles adicionar.Click

' Try

If nome.Text <> "" And tele.Text <> "" Then

Dim con As OleDbConnection

Dim com As OleDbCommand

con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Orlando\Desktop\family butchers\clientes.accdb")

com = New OleDbCommand("insert into Cliente values(@Nome,@tele,@mail)", con)

con.Open()

com.Parameters.AddWithValue("@Nome", nome.Text)

com.Parameters.AddWithValue("@tele", tele.Text)

com.Parameters.AddWithValue("@mail", mail.Text)

com.ExecuteNonQuery()

MsgBox("Cliente Adicionado")

con.Close()

nome.Clear()

tele.Clear()

mail.Clear()

Dim result = MessageBox.Show("Deseja adicionar mais algum cliente?", "caption", MessageBoxButtons.YesNo)

If result = DialogResult.Yes Then

MessageBox.Show("Ok")

ElseIf result = DialogResult.No Then

Me.Hide()

End If

Else

MsgBox("Favor de colocar nome e numero")

End If

' Catch ex As Exception

'MsgBox("algo correu mal")

' End Try

End Sub

este é o meu codigo, na base de dados o ID que nao declaro aqui é incrementa automatica, ja dei muitas olhadas na internet, mas nunca nada, e recebo este erro "O número de valores de consulta e de campos de destino não é o mesmo." já não programo a alguma tempo em vb.net mas sei que é possivel ultrapassar isto agora como é que não me recordo, qualquer ajuda seria apreciada.

senão pensava em colocar a chave como o numero de telemovel mas isso seria vadiação e gostaria que isto ficasse em condições vissto que e para um negocio local.

Obrigado pela ajuda

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
vikcch

Porque não metes os nomes dos campos na query?

INSERT INTO Cliente ([nome], [telefone], [mail]) VALUES (@Nome,@tele,@mail)

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
HIGKILLER

Porque não metes os nomes dos campos na query?

INSERT INTO Cliente ([nome], [telefone], [mail]) VALUES (@Nome,@tele,@mail)

ja fiz isso, peço desculpa, erro meu, esquecime que quando existe 1 incrementa automatico tenho de nomear os campos todos...burrice minha, mas obrigado

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.