none
nenhum valor foi fornecido para um ou mais parametros necessarios RRS feed

  • Pergunta

  • Boa tarde galera, eu fiz um form para editar clientes com fotos assim que eu clicasse na linha do datagried view aparece o nome do cliente e a foto no picture box para editar so que ai da o erro da o erro:

    nenhum valor foi fornecido para um ou mais parametros necessarios

    Segue o codigo

    Imports System.Data
    Imports System.Data.OleDb
    Imports System.IO


    Public Class Consultar_Editar_All_User
        Private Sub PCarregaListaUserAll()
            Using con As OleDbConnection = geetConectionCadClientesFotos()
                Try
                    con.Open()
                    Dim sql As String = "SELECT nome FROM usuarios"
                    Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
                    Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)
                    Dim dt As DataTable = New DataTable
                    da.Fill(dt)
                    dvgClientes.DataSource = dt

                Catch ex As Exception
                    MsgBox(ex.Message)
                Finally
                    con.Close()
                End Try

            End Using



        End Sub

        Private Sub Consultar_Editar_All_User_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
            PCarregaListaUserAll()
        End Sub
        Private Sub PCarregaImagensAllUser()
            Dim dr As OleDbDataReader = Nothing

            Using con As OleDbConnection = geetConectionCadClientesFotos()
                Try
                    con.Open()
                    Dim sql As String = "SELECT nome, [Imagem] FROM usuarios WHERE codigo=" & dvgClientes.CurrentRow().Cells(0).Value
                    Dim cmd As OleDbCommand = New OleDbCommand(sql, con)

                    dr = cmd.ExecuteReader(CommandBehavior.SingleRow)

                    If dr.HasRows Then
                        dr.Read()

                        txtNome.Text = dr.Item("nome")



                        If imgRecuperar.Image IsNot Nothing Then
                            imgRecuperar.Image.Dispose()
                        End If
                        Dim fsImagem As New FileStream("image.jpg", FileMode.Create)
                        Dim blob As Byte() = DirectCast(dr.Item("imagem"), Byte())

                        fsImagem.Write(blob, 0, blob.Length)
                        fsImagem.Close()
                        fsImagem = Nothing

                        imgRecuperar.Image = Image.FromFile("imagem.jpg")
                        imgRecuperar.Refresh()

                    End If

                Catch ex As Exception
                    MsgBox(ex.Message)
                Finally
                    con.Close()
                    dr.Close() 'o erro retorna nessa parte diz que o parametro esta faltando
                End Try
            End Using
        End Sub



        Private Sub btnListarImg_Click(sender As System.Object, e As System.EventArgs) Handles btnListarImg.Click
            PCarregaImagensAllUser()
        End Sub
    End Class


    XD

    quarta-feira, 22 de fevereiro de 2017 19:05

Todas as Respostas