AJUDA COM IMAGEM EM BD ACESS......

KURTGU 17/01/2011 23:25:52
#362526
Pessoal queria que alguem desse uma olhada pra ver o que ta errado nesse codigo por que nao estou conseguindo colocar uma lista de contatos com cada um com sua imagem alguem poderia me dizer o que estou errando.....

If Txtname.Text = [Ô][Ô] Then : MsgBox([Ô]DOn[ô]t leave space ![Ô], MsgBoxStyle.Exclamation) : Txtname.Focus() : Exit Sub : End If
If TxtSex.Text = [Ô][Ô] Then : MsgBox([Ô]DOn[ô]t leave space ![Ô], MsgBoxStyle.Exclamation) : TxtSex.Focus() : Exit Sub : End If
If MsgBox([Ô]Do you want to save this record ?[Ô], MsgBoxStyle.YesNo, [Ô]Message[Ô]) = MsgBoxResult.No Then : Exit Sub : End If

rs = New ADODB.Recordset

With rs
If LblAdd_Edit.Text = [Ô]Add[Ô] Then
.Open([Ô]Select * from Login[Ô], cn, 2, 3)
.AddNew()
Else
.Open([Ô]Select * from Login where Nome=[ô][Ô] & Me.Text & [Ô][ô][Ô], cn, 2, 3)
End If
.Fields([Ô]Nome[Ô]).Value = Txtname.Text
.Fields([Ô]Senha[Ô]).Value = TxtSex.Text
[txt-color=#e80000] Dim FileByteArray(o.Length - 1) As Byte
.Fields([Ô]Foto[Ô]).Value = PictureBox1.image[/txt-color]
.Update()
Clear()
End With
DisplayList()


TENHO QUASE CERTEZE QUE O ERRO E O QUE ESTA EM VERMELHO MAIS SO NAO ESTOU ACHANDO A SOLUCAO......heeheheh
RODRIGOFERRO 17/01/2011 23:27:37
#362527
Amigão verifique a possibilidade de salvar isso em pastas, eu sempre recomendo não salvar isso em banco !

Abraços
KURTGU 17/01/2011 23:27:44
#362528
ESSE CODIGO ai de cima e do botao salvar......
RODRIGOFERRO 18/01/2011 02:25:27
#362534
nao seria

PictureBox1.Image ??? voce ta pixando text de um picturebox !
KURTGU 18/01/2011 04:55:11
#362535
nao isso foi um erro de digitacao heehehehe entao nao quero salvar a imagem quero salvar somente o caminho....pois sei que se ssalvar a imagem o banco fica muito grande.... entao pra salvar o caminho deveria colocar um openfiledialog e colocar qual codigo....me perdir todo agora heehheh
KURTGU 18/01/2011 05:46:46
#362536
Consegui vlw pessoal era so arrumar o codigo openfiledialog ja consegui....vlw pessoal.....
KURTGU 18/01/2011 10:51:55
#362569
Pessoal voltei agora to com outro probrema ehehheh conseguir salva o caminho da foto no bd agora to com um problema.... O Codigo de carrega a listview e esse aqui....

Private Sub ListView1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseClick
rs = New ADODB.Recordset
With rs
.Open([Ô]Select * from Login where Nome like [ô][Ô] & ListView1.FocusedItem.Text & [Ô][ô][Ô], cn, 1, 2)
Txtname.Text = .Fields([Ô]Nome[Ô]).Value
TxtSex.Text = .Fields([Ô]Senha[Ô]).Value
TextBox1.Text = .Fields([Ô]Foto[Ô]).Value
End With
End Sub

Agora quero adicionar a foto na picturebox quando eu click em cima do usuario como na foto ......
RODRIGOFERRO 18/01/2011 10:57:23
#362570
ue o que aconteceu com o...

PictureBox1.Load([Ô]C:\caminho_da_sua_foto.jpg[Ô]) ??

Abraços
KURTGU 18/01/2011 11:16:52
#362574
nao eu sei mas eu quero o seguinte ser quero que quando eu ao aperta no listview ele procure a linha relacionada a foto no bd e mostre ela no picturebox sera que com esse ai vai?
JONATHANSTECKER 18/01/2011 11:33:46
#362582 Resposta escolhida 
  Private Sub ListView1_ItemSelectionChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
        Me.PictureBox1.Load(Me.ListView1.Items(e.ItemIndex).SubItems(2).Text)
    End Sub
KURTGU 18/01/2011 14:07:14
#362626
Pessoal uma duvida do mesmo genero se eu quiser vamos supor reconhecer um usuario que esta logando no sistema

eu coloco....

uma label na proxima form e coloco o seguinte codigo na form_load..... Label1.Text = Form1.TextBox1.Text agora a minha duvida e como reconhecer o campo foto e exibir ela junto na proxima form em uma picturebox......isso sendo que estou usando banco acess e salvando o caminho da foto.....
Página 1 de 3 [23 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar