ERRO COMANDO CONSULTA

VINICIUS2445 06/08/2015 14:46:48
#449673
Gnt, um erro tbm que etá dando na hora que vou consultar, não é bem um erro, só que não está aparecendo, na hora que eu consulto, no textbox4.text ele salva o caminho da imagem, que vai pro banco, claro... Só que, na hora que eu chamo o código que ficou salvo pra aparecer a imagem do produto na picturebox1, ele não aparece, se puderem me ajudar com isso, grato desde já.
OMAR2011 06/08/2015 15:52:19
#449677
Acho melhor colocar seu código, ai o pessoal verificar o que está acontecendo.
VINICIUS2445 06/08/2015 17:39:32
#449680

Dim CodProd As String
CodProd = TextBox1.Text

If CodProd = [Ô][Ô] Then
MessageBox.Show([Ô]Informe o Código do seu produto[Ô])
End If
Dim sql As String = [Ô]select * from Cad_Prod where CodProd = [Ô] & TextBox1.Text
Dim cm As New OleDb.OleDbCommand(sql, dbcon)
Dim dr As OleDb.OleDbDataReader
Dim flag As Boolean
Try
dbcon.Open()
dr = cm.ExecuteReader
If dr.HasRows Then
While dr.Read
If dr.Item([Ô]CodProd[Ô]) = CodProd Then
TextBox1.Text = dr.Item([Ô]CodProd[Ô])
TextBox2.Text = dr.Item([Ô]Nome[Ô])
TextBox3.Text = dr.Item([Ô]Valor[Ô])
TextBox4.Text = dr.Item([Ô]Imagem[Ô])
TextBox5.Text = dr.Item([Ô]Quantidade[Ô])
flag = True
End If
End While
End If
If flag = True Then
MessageBox.Show([Ô]Produto encontrado[Ô])
Else
MessageBox.Show([Ô]Produto não encontrado[Ô])
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
dbcon.Close()
JABA 06/08/2015 18:30:15
#449684 Resposta escolhida
Tenta assim pra ver se vai:

Dim CodProd As String
        CodProd = TextBox1.Text

        If CodProd = [Ô][Ô] Then
            MessageBox.Show([Ô]Informe o Código do seu produto[Ô])
        End If
        Dim sql As String = [Ô]select * from Cad_Prod where CodProd = [Ô] & TextBox1.Text
        Dim cm As New OleDb.OleDbCommand(sql, dbcon)
        Dim dr As OleDb.OleDbDataReader
        Dim flag As Boolean
        Try
            dbcon.Open()
            dr = cm.ExecuteReader
            If dr.HasRows Then
                While dr.Read
                    If dr.Item([Ô]CodProd[Ô]) = CodProd Then
                        TextBox1.Text = dr.Item([Ô]CodProd[Ô])
                        TextBox2.Text = dr.Item([Ô]Nome[Ô])
                        TextBox3.Text = dr.Item([Ô]Valor[Ô])
                        TextBox4.Text = dr.Item([Ô]Imagem[Ô])
                        TextBox5.Text = dr.Item([Ô]Quantidade[Ô])
                        CarregarImagem(dr.Item([Ô]Imagem[Ô]), PictureBox1)

                        flag = True
                    End If
                End While
            End If
            If flag = True Then
                MessageBox.Show([Ô]Produto encontrado[Ô])
            Else
                MessageBox.Show([Ô]Produto não encontrado[Ô])
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
           dbcon.Close()
        End Try

public sub CarregarImagem(caminhoImagem as string, picImage as PictureBox) 
     Dim bm As New Bitmap(caminhoImagem )
      picImage.Image = bm
      picImage.SizeMode = PictureBoxSizeMode.AutoSize
  end sub
JABA 06/08/2015 18:42:26
#449685
Só um observação.

Citação:

Dim sql As String = [Ô]select * from Cad_Prod where CodProd = [Ô] & TextBox1.Text



Se seu campo CodProd for uma chave primária, é desnecessário utilizar o código abaixo, pois essa consulta acima sempre retornará apenas um único registro. Use [Ô]While[Ô] apenas quando a consulta retornar mais de um registro.

While dr.Read
If dr.Item([Ô]CodProd[Ô]) = CodProd Then
[ô]Codigos
end if
End While
VINICIUS2445 06/08/2015 22:24:57
#449694
Ok ,obrigado, foi, só gostaria de saber se tem como deixar essa imagem que aparece na picturebox, de um tamanho só, pois cada uma está aparecendo de um tamanho...
JABA 06/08/2015 23:14:02
#449696
Eu tinha colocado esse código aqui --> [Ô]picImage.SizeMode = PictureBoxSizeMode.AutoSize[Ô] justamente para não acontecer isso. Retira ele e testa pra ver. Ou então veja quais são as opções para o PictureBoxSizeMode e vai trocando.
VINICIUS2445 06/08/2015 23:19:05
#449697
Resolvi, picImage.SizeMode = PictureBoxSizeMode.StretchImage
Tópico encerrado , respostas não são mais permitidas
Voltar