Banco de Dados: Inserir e Alterar Dados.

[Java Nerd's 0]

Estou com problema NÃO CONSIGO inserir e alterar dados. (Obs.: Consigo Excluir e Consultar a tabela numa boa. Isso quer dizer que a conecção com o banco ta normal).

 

 

Exemplo de Agenda usada no imasters.

 

Segue abaixo o código digitado por mim no visual basic.

'Rotina de Inclusão

Public Function Inserir(ByVal strNome As String, strEnd As String, strFone As String) As Variant

'vermelho
cn.Execute ("insert into pessoal(nome,end,fone)" & "values('" & strNome & "', '" & strEnd & "', '" & strFone & "')")

Inserir = True
 
 
End Function

'Rotina de Alteração

 

Public Function Alterar(ByVal intCodigo As Integer, strNome As String, strEnd As String, strFone As String) As Variant

'vermelho
cn.Execute "update pessoal set nome='" & strNome & "'," & " end='" & strEnd & "', fone='" & strFone & "'" & " where codigo = " & intCodigo


Alterar = True

End Function

BOTÕES CORRETOS

 

iNCLUIR:

 

Private Sub cmdIncluir_Click()
Dim novo As Variant

novo = Inserir(txtNome.Text, txtEnd.Text, txtFone.Text)
If novo = True Then
Call limpar
Else
MsgBox "Erro na incluisão.", vbCritical
End If
End Sub

aLTERAR:

 

Botão Alterar:

Private Sub cmdAlterar_Click()
Dim atual As Variant

atual = Alterar(lblCod.Caption, txtNome.Text, txtEnd.Text, txtFone.Text)
If atual = True Then
Call limpar
Else
MsgBox "Erro na atualização.", vbCritical
End If
End Sub

[gabrieldb 5]

Coloca ae onde aparece o erro....

[Java Nerd's 0]

Onde está em vermelho na linha Insert e Update

[Java Nerd's 0]

O Visual Basic me retorna esse erro na hora que clico no botão inserir

 

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Run -time error '-2147217900(80040e14)': '

'

Error de sintaxe na instrução INSERT INTO '

'

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

 

Conexao com o banco de dados funcionando normal

 

POis consigo excluir e consultar

[gabrieldb 5]

O VISUAL BASIC ME RETORNA ESSE ERRO NA HORA QUE CLICO NO BOTÃO INSERIR

 

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Run -time error '-2147217900(80040e14)': '

'

Error de sintaxe na instrução INSERT INTO '

'

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

 

CONEXAO COM O BANCO DE DADOS FUNCIONANDO NORMAL.

 

POIS CONSIGO EXCLUIR E CONSULTAR.

Tenta por assim e me fala o que deu

cn.Execute ("insert into pessoal values('" & strNome & "', '" & strEnd & "', '" & strFone & "')")

[Java Nerd's 0]

cn.Execute ("insert into pessoal values('" & strNome & "', '" & strEnd & "', '" & strFone & "')")

Tentei mais nem da certo da erro...

[scorpio 7]

Java Nerd's,

 

Não há necessidade de escrever seus post em caixa alta. Peço que fique atento as regras, em especial a regra 9. De uma olhada aqui.

 

Antes do cn.Execute, coloque

 

MsgBox "insert into pessoal values('" & strNome & "', '" & strEnd & "', '" & strFone & "')"

E poste aqui o que está retornando.

[Java Nerd's 0]

MsgBox "insert into pessoal values('" & strNome & "', '" & strEnd & "', '" & strFone & "')"

O codigo acima retorna os valores que são digitado na caixa de texto.

 

Ex.: Aparece isso na caixa " insert into pessoal values('Nilo','Rua Crato,999','1239667070')

 

Detalhe. existe um campo na tabela chamado codigo ele auto incremento. precisa ir junto no insert?

 

Flw.

[Claudio Neto 3]

Está usando access?

 

Se for, tente assim:

 

insert into pessoal (nome, endereco, fone) values('" & strNome & "', '" & strEnd & "', '" & strFone & "')

No Access, quando usa um campo de auto-numeração, não é preciso passar valor, mas tem que especificar para quais campos você está passando os valores. Diferente do MSSQL por exemplo que entende sozinho que auto-numeração não precisa de valor e pula.

[Java Nerd's 0]

Nem funcionou..... ;/

 

Oq será que pode tá acontecendo?

[scorpio 7]

Copie o insert que seu programa gera e tente executar no access.

[Java Nerd's 0]

Não entendi scorpio, como faço isso???

 

Upei o sistema.

 

Eu segui o tutorial aqui do imasters mesmo mais nem funfou estranho.

 

 

Sistema Agenda

 

Obrigado pela ajuda... estão ajudando pakas... forum muito bom...

[Claudio Neto 3]

Tente executar isso:

 

insert into pessoal values('Nilo','Rua Crato,999','1239667070')

Direto no access.

 

Depois diga o resultado.