Inquiridor
nenhum valor foi fornecido para um ou mais parametros necessarios

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
Todas as Respostas
-
Olá jose_down
A primeira etapa esta funcionando? Ele carrega o GRID?
Se ajudei Vote como Útil, se resolvi seu problema clique em Marcar como Resposta.
Daniel Ribeiro Arrais
Consultor Sênior
Site: www.danielarrais.com.br
Linkedin: http://www.linkedin.com/in/danielarrais
E-mail: arraishapkido@gmail.com
Skype: dani.arrais
-
-
Então vamos por parte!
Muda sua query
Dim sql As String = "SELECT nome, [Imagem] FROM usuarios WHERE codigo=" & dvgClientes.CurrentRow().Cells(0).Value
Para
Dim sql As String = "SELECT nome FROM usuarios WHERE codigo=" & dvgClientes.CurrentRow().Cells(0).Value
remover a parte que traz o [IMAGEM], verifica se retornar o nome
Se ajudei Vote como Útil, se resolvi seu problema clique em Marcar como Resposta.
Daniel Ribeiro Arrais
Consultor Sênior
Site: www.danielarrais.com.br
Linkedin: http://www.linkedin.com/in/danielarrais
E-mail: arraishapkido@gmail.com
Skype: dani.arrais
-
-
Esta chegando valor neste campo dvgClientes.CurrentRow().Cells(0).Value?
Ele seria o parametro!
Se ajudei Vote como Útil, se resolvi seu problema clique em Marcar como Resposta.
Daniel Ribeiro Arrais
Consultor Sênior
Site: www.danielarrais.com.br
Linkedin: http://www.linkedin.com/in/danielarrais
E-mail: arraishapkido@gmail.com
Skype: dani.arrais
-
sim o valor esta normal do campo nome ele carrega a grid porem eu fiz um botao para a pessoa quando quiser ver a imagem do cliente ela clicar nele e aparecer junto com o nome do cliente na txt box (falto interessante que ele nao ta passando as informacao do select para o txt box
XD
-
Precisaria ver a tela e a codigo completo para poder ajudar de forma mais assertiva!
Se ajudei Vote como Útil, se resolvi seu problema clique em Marcar como Resposta.
Daniel Ribeiro Arrais
Consultor Sênior
Site: www.danielarrais.com.br
Linkedin: http://www.linkedin.com/in/danielarrais
E-mail: arraishapkido@gmail.com
Skype: dani.arrais
-