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
