Jump to content

erro - update


viegasss
 Share

Recommended Posts

bom dia,

alguém me podia ajudar a descobrir qual é o problema que o meu código tem,

é que, quando eu chamo a minha linha de código ele dá-me erro, ou seja o try catch dá sinal,

 Public Sub updatee()


Try
'Ligação ao caminho da minha base de dados
Dim ConnectionString As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Luis\Desktop\ESTÁGIO - CAMARA MUNICIPAL\CM-CANTINA-MUNICIPAL\cm_cantina.accdb;")
'Criação dos meus UPDATES
Dim sp1_update As String = "UPDATE suplemento SET [nome]=@nome WHERE cod_butao='1'"
Dim sp2_update As String = "UPDATE suplemento SET [nome]=@nome1 WHERE cod_butao='2'"


'Ligar os meus updates a base de dados
Dim command As New OleDbCommand(sp1_update, ConnectionString)
Dim command_1 As New OleDbCommand(sp2_update, ConnectionString)

'ligar a conexão
ConnectionString.Open()

'Adicionar o meu valor
command.Parameters.Add("@nome", OleDbType.VarChar).Value = update_supl(0)
command_1.Parameters.Add("@nome1", OleDbType.VarChar).Value = update_supl(1)

'Executar a Query
command.ExecuteNonQuery()
command_1.ExecuteNonQuery()

'Desligar a conexão
ConnectionString.Close()
Catch
MsgBox("LIGAÇÃO DA BASE DE DADOS", vbExclamation, "ERRO")
End Try


End Sub
Link to comment
Share on other sites

Ou fazes step-debug ou alteras o teu catch para:

Catch ex As Exception
MsgBox(ex.Message)
'MsgBox("LIGAÇÃO DA BASE DE DADOS", vbExclamation, "ERRO")

E vês a mensagem da exception.

Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Link to comment
Share on other sites

Ou fazes step-debug ou alteras o teu catch para:

Catch ex As Exception
MsgBox(ex.Message)
'MsgBox("LIGAÇÃO DA BASE DE DADOS", vbExclamation, "ERRO")

E vês a mensagem da exception.

boas ribeiro 55

o erro que me dá com a tua linha de código é,

"PARAMETRO @NOME NAO TEM PREDEFINIÇÃO "

eu ainda sou inexperiente, o que é que isto quer dizer ???

Tira o try catch e verifica a linha que dá erro.

Já agora, indica qual a mensagem de erro

Boas nelsonr

o erro é este

 'Executar a Query
command.ExecuteNonQuery()
command_1.ExecuteNonQuery()
Link to comment
Share on other sites

O que tem os valores update_supl(0) e update_supl(1) ?

Acho que o código deve ficar assim :

Dim sp1_update As String = "UPDATE suplemento SET [nome]=@nome WHERE cod_butao=1"

O que tem os valores update_supl(0) e update_supl(1) ?

​Não tenho nada, estas variáveis vão ser o que utilizador quiser colocar.

Acho que o código deve ficar assim :

Dim sp1_update As String = "UPDATE suplemento SET [nome]=@nome WHERE cod_butao=1"

cod_butao='1' porque eu quando criei a base de dados coloquei essa tabela sem chave primária, porque não achei necessário e coloquei o como TEXTO

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.