CARREGAR FOTO-LOGIN

GLEDSON26 22/12/2015 20:41:40
#455444
Private Sub txtLogin_Leave(sender As Object, e As EventArgs) Handles txtLogin.Leave
Dim dr As OleDbDataReader = Nothing
Using con As OleDbConnection = GetConnection()
Try
con.Open()
Dim sql As String = [Ô]SELECT login, imagem FROM usuarios WHERE login=[Ô] & txtLogin.Text
Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
dr = cmd.ExecuteReader(CommandBehavior.SingleRow)

If dr.HasRows Then
dr.Read()
txtLogin.Text = dr.Item([Ô]login[Ô])

[ô]Se ele nao for igual a vazio, quero que ele sempre vai esvaziar limpar e recarregar de novo
If pic_Imagem.Image IsNot Nothing Then
pic_Imagem.Image.Dispose()
End If

[ô]Aqui declara outra Variavel
Dim fsImagem As New FileStream([Ô]image.jpg[Ô], FileMode.Create)
[ô]Outra Variavel - converte imagem para byte
Dim blod As Byte() = DirectCast(dr.Item([Ô]imagem[Ô]), Byte())

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

pic_Imagem.Image = Image.FromFile([Ô]image.jpg[Ô])
pic_Imagem.Refresh()
End If
Catch ex As Exception
MsgBox(ex.Message)
Finally
[ô]dr.Close()
[ô]con.Close()

End Try
End Using
End Sub
GLEDSON26 22/12/2015 20:45:06
#455445
Diz q [Ô]Nenhum valor foir fornecido para um ou mais paramentos necessarios[Ô]
GLEDSON26 22/12/2015 20:47:49
#455446
Estou Usando o Evento [Ô] LEAVE [Ô] do textbox. ao sair exibir a imagem do usuario q foi cadastrado.
JABA 22/12/2015 20:48:09
#455447
Posta uma foto com a linha que deu erro. E outra coisa, não se esqueça de colocar aspas simples quando os campos for string.

Dim sql As String = [Ô]SELECT login, imagem FROM usuarios WHERE login= [txt-color=#e80000][ô] [Ô][/txt-color] & txtLogin.Text & [txt-color=#e80000][Ô] [ô] [Ô][/txt-color]
GLEDSON26 22/12/2015 20:52:11
#455448
Citação:

:
Posta uma foto com a linha que deu erro. E outra coisa, não se esqueça de colocar aspas simples quando os campos for string.

Dim sql As String = [Ô]SELECT login, imagem FROM usuarios WHERE login= [txt-color=#e80000][ô] [Ô][/txt-color] & txtLogin.Text & [txt-color=#e80000][Ô] [ô] [Ô][/txt-color]




POXXAA JABA VLW DEU CERTOO.. FOI APENAS ISSSO AS ASPAS & [Ô] [ô] [Ô]

SOMENTE ISSO DEU CERTO :)))))))
VLW MEU AMIGO .

MUITO OBG :)
JABA 22/12/2015 20:58:19
#455449


Não deixe de encerrar o tópico.

Vlw
GLEDSON26 22/12/2015 20:59:21
#455450
Citação:

:


Não deixe de encerrar o tópico.

Vlw




OPA . E é CLARO LHE PONTUAR
Página 2 de 2 [17 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar