Jump to content
Sign in to follow this  
mcosta

ajuda na inserção em Vb

Recommended Posts

mcosta

Olá Pessoal tenho um erro muito estranho e não sei como resolver!!

o problema é assim:eu tenho um projeto em vb 2010 e uma base de dados access..insiro na bd novos funcionários e tudo bem coloca..agora também coloco uma imagem de cada funcionario e funciona bem..mas sempre que clico no botão inserir novo funcionario embora inserir dá sempre está mensagem:

Não foi possivel localizar o ficheiro c:\...etc..etc\bin\debug\True...

mas a base de dados nem está nesse caminho..

o codigo esta aqui:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click

 Dim imgNome As String

 Dim res As String

 Dim cod_funcionario, NomeCompleto, Morada, DataNascimento, Codigo_postal,

Localidade, Telefone, Telemovel, email, nºbilhete_identidade, nºbeneficiario,

nºcontribuinte, nºhoras_semanais, nºhoras_diarias, valorBase, subsidio_alimentacao,

departamentos As String

 Dim myConn As OleDbConnection = New OleDbConnection

 Dim cmd As New OleDbCommand

 cod_funcionario = txtID.Text

 NomeCompleto = txtNome.Text

 Morada = txtMorada.Text

 DataNascimento = txtDataNascimento.Text

 Codigo_postal = txtCodP.Text

 Localidade = txtLocalid.Text

 Telefone = txtTelef.Text

 Telemovel = txtTlmvel.Text

 email = txtEmail.Text

 nºbilhete_identidade = txtBI.Text

 nºbeneficiario = txtBeneficiario.Text

 nºcontribuinte = txtContribuinte.Text

 nºhoras_semanais = txtHorasSem.Text

 nºhoras_diarias = txtHorasDi.Text

 valorBase = txtValorBase.Text

 subsidio_alimentacao = txtSubAliment.Text

 imgNome = OpenFileDialog1.CheckFileExists

 Departamentos = txtDepartamento.Text

 myConn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data " &

"Source=C:\Users\MárioSousa\Documents\GestaodeRecursosHumanos.accdb;"

 cmd.Connection = myConn

 cmd.Connection.Open()

 cmd.CommandType = CommandType.Text

 cmd.CommandText = "insert into Funcionario(cod_funcionario, NomeCompleto,

Morada, DataNascimento, Codigo_postal, Localidade, Telefone, Telemovel, email,

Foto, nºbilhete_identidade, nºbeneficiario, nºcontribuinte, nºhoras_semanais,

nºhoras_diarias, valorbase, subsidio_alimentacao, departamentos) values ('" &

cod_funcionario & "','" & NomeCompleto & "','" & Morada & "','" & DataNascimento &

"','" & Codigo_postal & "','" & Localidade & "','" & Telefone & "','" & Telemovel

& "','" & email & "', '" & imgNome & "' ,'" & nºbilhete_identidade & "','" &

nºbeneficiario & "','" & nºcontribuinte & "','" & nºhoras_semanais & "','" &

nºhoras_diarias & "','" & valorBase & "','" & subsidio_alimentacao & "','" &

departamentos & "')"

 Try

	 If imgNome <> "" Then

		 Dim fs As FileStream

		 fs = New FileStream(imgNome, FileMode.Open, FileAccess.Read)

		 Dim picByte As Byte() = New Byte(fs.Length - 1) {}

		 fs.Read(picByte, 0, System.Convert.ToInt32(fs.Length))

		 fs.Close()

		 Dim CN As New OleDbConnection(myConn.ConnectionString)

		 CN.Open()

		 Dim strSQL As String

		 strSQL = "INSERT INTO Images([image]) values (" & " @Img)"

		 Dim imgParam As New OleDbParameter()

		 imgParam.OleDbType = OleDbType.Binary

		 imgParam.ParameterName = "Img"

		 imgParam.Value = picByte

		 cmd.Parameters.Add(imgParam)

		 cmd.ExecuteNonQuery()

		 cmd.Dispose()

		 CN.Close()

		 CN.Dispose()

	 End If

 Catch ex As Exception

	 MessageBox.Show(ex.Message)

 End Try

 res = cmd.ExecuteNonQuery()

 cmd.Connection.Close()

 Close()

End Sub

Aguardo ajuda..

Share this post


Link to post
Share on other sites
nelsonr

A ligação que estás a criar dentro do Try Catch não está a ser usada

Os dados estão a ser inseridos porque dá erro dentro do try catch e de seguida tens o execute.

Faz debug e vê a linha do erro, que deve ser ao ler a imagem.

O imgNome tem o caminho completo ou só o nome.

Atenção que ao executares a aplicação dentro do visual studio a pasta é a Debug\ ou Release\ dependendo da configuração do projecto

Edited by nelsonr

Share this post


Link to post
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
Sign in to follow this  

×
×
  • 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.