Não foi possível converter o valor do parâmetro de String para Int32.

[Mica]

Dim ConnectionString As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\CV.accdb")
		Dim OLDB As String = "INSERT INTO Filmes ([NomeFilme],[TituloOriginal],[CodigoFornecedor],[Genero],[Realizador],[Actores],[Pais],[Ano],[ClasseEtaria]) VALUES (@NomeFilme,@TituloOriginal,@CodigoFornecedor,@Genero,@Realizador,@Actores,@Pais,@Ano,@ClasseEtaria)"
		' Inicia uma ligação à bse de dados
		'  Using connection As New OleDbConnection(connString)
		' Define o comando e os parâmetros
		Dim command1 As New OleDbCommand(OLDB, ConnectionString)
		'command1.Parameters.Add("@CodigoFilme", OleDbType.VarChar).Value = TextBox1.Text
		command1.Parameters.Add("@NomeFilme", OleDbType.VarChar).Value = TextBox2.Text
		command1.Parameters.Add("@TituloOriginal", OleDbType.VarChar).Value = TextBox3.Text
		command1.Parameters.Add("@CodigoFornecedor", OleDbType.Integer).Value = TextBox4.Text
		command1.Parameters.Add("@Genero", OleDbType.VarChar).Value = TextBox5.Text
		command1.Parameters.Add("@Realizador", OleDbType.VarChar).Value = TextBox6.Text
		command1.Parameters.Add("@Actores", OleDbType.VarChar).Value = TextBox7.Text
		command1.Parameters.Add("@Pais", OleDbType.VarChar).Value = TextBox9.Text
		command1.Parameters.Add("@Ano", OleDbType.Integer).Value = TextBox10.Text
		command1.Parameters.Add("@ClasseEtaria", OleDbType.VarChar).Value = TextBox11.Text
		' Abre a ligação e insere o registo
		ConnectionString.Open()
		Dim xx As Integer = command1.ExecuteNonQuery()
		If xx < 1 Then
			MessageBox.Show("Erro ao inserir", My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
		Else
			MessageBox.Show("Registo inserido com sucesso!", My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Information)
		End If

Este erro da me aqui no Dim xx as integer = command1.ExecuteNonQuery() quando eu tento inserir sem ter qualquer campo preenchido o correto seria ele dar o "Erro ao Inserir"

Creio que o erro provém do parametro Add mas já confirmei na bd e alem do id que esta auto incremento apenas dois estao definidos como numero...

[petvetbr]

Muito estranho, pois o valor de retorno do ExecuteNonQuery pela documentacao do MSDN deveria ser Int32. Nas outras condiçoes está funcionando ok?

[jpaulino]

O método ExecuteNonQuery() devolve o número de registos afectados, ou seja, se inserir um registo, devolve 1.

Não devolve erros, nem status, apenas um valor.

[Mica]

Se calhar não fui claro... Se eu preencher todos os campos e guardar ele executa tudo bem... O problema é quando eu não preencho nada ou seja tento guardar vazio ele apresenta me esse erro .. Alguma solução para tentar contornar essa situação?

[bsccara]

Experimenta meter aspas antes e depois de cada parâmetro :

command1.Parameters.Add("@NomeFilme", OleDbType.VarChar).Value = """ & TextBox2.Text & """

Se mesmo assim não der altera a query na string OLDB de modo a alterar apenas os campos efectivamente preenchidos.

[jpaulino]

Se calhar não fui claro... Se eu preencher todos os campos e guardar ele executa tudo bem... O problema é quando eu não preencho nada ou seja tento guardar vazio ele apresenta me esse erro .. Alguma solução para tentar contornar essa situação?

Tens de validar todos os campos antes de tentar inserir

[Tuntankamon]

Solução passa por meteres o código num try catch, e verificas qual é a mensagem de erro... O problema é que o executenonquery nunca chega a ser executado correctamente, pelo menos assim me parece.

Cumpts

[Mica]

Tens de validar todos os campos antes de tentar inserir

Sim eu sei... Se eu preencher todos os campos ele funciona direitinho, a questão é: Se o botão esta disponível logo eu posso clicar sem ter nada preenchido... ou seja estou á procura de eventuais erros no meu programa e este é um deles :b