• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Luis Marques

[Resolvido]Erro ao guardar nome na imagem na BD

11 mensagens neste tópico

Boas,

É assim eu queria guardar o nome da imagem na base de dados após a ter escolhido.

Eu tenho o código para ir procurar a imagem ao pc e guarda la numa pasta e depois guardar o nome da imagem na base de dados.

Codigo:

 Try
            Dim dialog As New OpenFileDialog
            With dialog
                .Filter = "Tipos de imagens aceites (JPEG, BMP)|*.jpg; *.bmp"
                .CheckFileExists = True
                .CheckPathExists = True
                .Multiselect = False
                .ShowDialog()

            End With

            Dim a = My.Computer.FileSystem.CurrentDirectory
            If dialog.FileName <> String.Empty Then

                Dim destino As String = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase) & "\imagens\"
                destino = destino.Substring(6)
                If My.Computer.FileSystem.DirectoryExists(destino) = False Then
                    My.Computer.FileSystem.CreateDirectory(destino)
                End If

                destino = destino & dialog.SafeFileName
                'MsgBox(dialog.FileName)
                'MsgBox(destino)
                IO.File.Copy(dialog.FileName, destino)
                TextBox3.Text = dialog.SafeFileName

            End If
            My.Computer.FileSystem. = a
            dialog.Dispose()


            Dim lm As String = "INSERT INTO `imagem_encomenda` (`imagem`) VALUES (?)"
            MsgBox(System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase))
            'Inicia uma ligação à base de dados
            Using connection As New OleDbConnection(pap.My.Settings.ligacaoBD)

                'Define o comando e os parâmetros
                Dim command As New OleDbCommand(lm, connection)

                'pergunta se quer guardar ou nao
                Dim msg = MsgBox("Pretende guardar o registo? ", MsgBoxStyle.YesNo)
                If msg = MsgBoxResult.Yes Then


                    command.Parameters.Add("imagem", OleDbType.VarChar).Value = TextBox3.Text

                ElseIf msg = MsgBoxResult.No Then
                    TextBox3.Clear()
                End If


                ' Abre a ligação e insere o registo
                connection.Open()
                Dim x As Integer = command.ExecuteNonQuery()
                If x <> 1 Then
                    Throw New ArgumentException("Não foi possível inserir o registo na base de dados!")

                End If

            End Using

        Catch ex As Exception
            MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try

e o erro é:

13435776.jpg

Se eu for buscar uma imagem ao ficheiros recebidos aparece isso no erro, se for buscar ao ambiente de trabalho já aparece ambiente de trabalho no erro,etc

Se alguem souber do que será o erro, diga me qualquer coisa

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

cá para mim..não estás a apanhar o caminho da imagem correctamente...

tanto que ele diz que o ficheiro nao existe

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Le la a mensagem de erro como deve de ser.....

Nao estas a indicar o path correcto da base de dados, nao tem nada a ver com a imagem.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

já verificas-te se a connection string (ve nos settings) está bem feita?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Dim lm As String = "INSERT INTO `imagem_encomenda` (`imagem`) VALUES (?)"

values(?) isto tb n sei se esta correcto ..como e que ele sabe que o ? é o caminho da imagem

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

isso funciona porque tem mais a baixo os parâmetros, o código que eu utilizo para guardar é igual a este e até agora ainda não deu problema, até porque neste caso se eu em vez de ir la procurar uma imagem e o nome da mesma ficar na textbox, colocar la um nome qualquer, o programa vai guardar o nome que la escrevi na BD.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

isso funciona porque tem mais a baixo os parâmetros, o código que eu utilizo para guardar é igual a este e até agora ainda não deu problema, até porque neste caso se eu em vez de ir la procurar uma imagem e o nome da mesma ficar na textbox, colocar la um nome qualquer, o programa vai guardar o nome que la escrevi na BD.

Errado o que tu queres é:

... codigo ...

Dim lm As String = "INSERT INTO `imagem_encomenda` (`imagem`) VALUES (@imagem)"
            MsgBox(System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase))
            'Inicia uma ligação à base de dados
            Using connection As New OleDbConnection(pap.My.Settings.ligacaoBD)

                'Define o comando e os parâmetros
                Dim command As New OleDbCommand(lm, connection)

                'pergunta se quer guardar ou nao
                Dim msg = MsgBox("Pretende guardar o registo? ", MsgBoxStyle.YesNo)
                If msg = MsgBoxResult.Yes Then


                    command.Parameters.Add("@imagem", OleDbType.VarChar).Value = TextBox3.Text

... codigo ...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

errado..o problema estava mesmo na connectionstring... que estava mal definida... ele devia ter colocado aqui.....

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Segundo o erro que reportas-te ele nao estava a encontrar a base de dados dando então erro. peço-te então que verifiques se estou correcto ou não... verificando se ele guarda correctamente a imagem :cheesygrin:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

de facto ele enviou-me o projecto e ficou a funcionar com o código que ele tinha, logo que mudei a connection string... nao quer dizer que o teu código esteja errado..mas o dele também estava  a gravar correctamente

0

Partilhar esta mensagem


Link 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