AJUDA COM FOTO EM BD MYSQL
Pessoal to criando um sistema de login com foto e tal ja consegui tudo tudo mesmo com a ajuda do zerocal que me ajudo muito mais impaquei em uma parte e nao tenho nocao ja pesquisei e tal gostaria de saber se alguem poderia fazer pra mim .....
Tenho a form
Form login
Form cadastro
Form Menu
Gostaria de escolher na form cadastro um foto e salvar no bd ate aqui ja consegui fazer mais agora gostaria que apos eu salvar o cadastro que ja esta tudo certo como eu falei gostaria de fazer o seguinte...
Na Form login assim que a pessoa colocasse um login valido na form menu em um picture box carregasse o nome e a foto do usuario o nome ja consegui captura agora so nao consigo assosicar o campo foto alguem poderia fazer pra mim por favor ja tentei de tudo o codigo vou colocar em baixo......
Tenho a form
Form login
Form cadastro
Form Menu
Gostaria de escolher na form cadastro um foto e salvar no bd ate aqui ja consegui fazer mais agora gostaria que apos eu salvar o cadastro que ja esta tudo certo como eu falei gostaria de fazer o seguinte...
Na Form login assim que a pessoa colocasse um login valido na form menu em um picture box carregasse o nome e a foto do usuario o nome ja consegui captura agora so nao consigo assosicar o campo foto alguem poderia fazer pra mim por favor ja tentei de tudo o codigo vou colocar em baixo......
DESCULPE NAO COLOCAR,,,,,,,,,,,,,,,,,,, NO TEXTO ACIMA....PESSO A QUEM SOUBER O QUE TENHO QUE FAZER POR FAVOR SO ADICIONE O CODIGO PRA MIM POR FAVOR....OBRIGADO DESDE JA A TODOS.....
CODIGO DO BOTAO LOGIN
Dim conn As MySqlConnection
conn = New MySqlConnection()
conn.ConnectionString = [Ô]server=MEUSERVER; Port=3306; user id=MEU USUARIO; password=MINHA SENHA; database=MEU BD[Ô]
conn.Open()
Try
Catch myerror As MySqlException
MsgBox([Ô]Erro Com a Conexão Com o Banco de Dados Tente Novamente![Ô])
End Try
Dim myAdapter As New MySqlDataAdapter
Dim sqlquery = [Ô]SELECT * FROM login WHERE usuario=[ô][Ô] + TextBox1.Text + [Ô][ô] AND senha=[ô][Ô] + TextBox2.Text + [Ô][ô][Ô]
Dim myCommand As New MySqlCommand()
myCommand.Connection = conn
myCommand.CommandText = sqlquery
myAdapter.SelectCommand = myCommand
Dim myData As MySqlDataReader
myData = myCommand.ExecuteReader()
If TextBox1.Text = [Ô][Ô] Or TextBox2.Text = [Ô][Ô] Then
conn.Close()
MsgBox([Ô]Preencha todos os Campos Corretamente[Ô])
End If
If myData.HasRows = 0 Then
MsgBox([Ô]Usuario Invalido Tente Novamente![Ô])
Else
Form5.Show()
Me.Hide()
End If
Timer1.Start()
conn.Close()
conn.Open()
___________________________________________________________________________________________________
CODIGO DO BOTAO SALVAR NOVO CADASTRO....
Dim conn As MySqlConnection
conn = New MySqlConnection()
conn.ConnectionString = [Ô]server=MEUSERVER; Port=3306; user id=MEU USUARIO; password=MINHA SENHA; database=MEU BD[Ô]
Try
conn.Open()
Catch myerror As MySqlException
MsgBox([Ô]Erro de Conexao![Ô])
End Try
Dim myAdapter As New MySqlDataAdapter
Dim sqlquery = [Ô]SELECT * FROM login WHERE usuario=[ô][Ô] + TextBox1.Text + [Ô][ô] AND senha= [ô][Ô] + TextBox2.Text + [Ô][ô][Ô]
Dim myCommand As New MySqlCommand()
myCommand.Connection = conn
myCommand.CommandText = sqlquery
myAdapter.SelectCommand = myCommand
Dim myData As MySqlDataReader
myData = myCommand.ExecuteReader()
If myData.HasRows = True Then
MsgBox([Ô]Esse Usuário Ja Existe Tente Outro Por Favor!!...[Ô])
ElseIf myData.HasRows = False Then
conn.Close()
conn.Open()
Dim registrar As New MySqlDataAdapter
sqlquery = [Ô]INSERT INTO login (usuario, senha,avatar )Values ([ô][Ô] + TextBox1.Text + [Ô][ô],[ô][Ô] + TextBox2.Text + [Ô][ô],[ô][Ô] + txtCaminhoImagem.Text + [Ô][ô])[Ô]
myCommand.Connection = conn
myCommand.CommandText = sqlquery
registrar.SelectCommand = myCommand
myData = myCommand.ExecuteReader
MsgBox([Ô] OBRIGADO POR SE REGISTRAR [Ô])
Me.Close()
Form1.Show()
End If
CODIGO DO BOTAO LOGIN
Dim conn As MySqlConnection
conn = New MySqlConnection()
conn.ConnectionString = [Ô]server=MEUSERVER; Port=3306; user id=MEU USUARIO; password=MINHA SENHA; database=MEU BD[Ô]
conn.Open()
Try
Catch myerror As MySqlException
MsgBox([Ô]Erro Com a Conexão Com o Banco de Dados Tente Novamente![Ô])
End Try
Dim myAdapter As New MySqlDataAdapter
Dim sqlquery = [Ô]SELECT * FROM login WHERE usuario=[ô][Ô] + TextBox1.Text + [Ô][ô] AND senha=[ô][Ô] + TextBox2.Text + [Ô][ô][Ô]
Dim myCommand As New MySqlCommand()
myCommand.Connection = conn
myCommand.CommandText = sqlquery
myAdapter.SelectCommand = myCommand
Dim myData As MySqlDataReader
myData = myCommand.ExecuteReader()
If TextBox1.Text = [Ô][Ô] Or TextBox2.Text = [Ô][Ô] Then
conn.Close()
MsgBox([Ô]Preencha todos os Campos Corretamente[Ô])
End If
If myData.HasRows = 0 Then
MsgBox([Ô]Usuario Invalido Tente Novamente![Ô])
Else
Form5.Show()
Me.Hide()
End If
Timer1.Start()
conn.Close()
conn.Open()
___________________________________________________________________________________________________
CODIGO DO BOTAO SALVAR NOVO CADASTRO....
Dim conn As MySqlConnection
conn = New MySqlConnection()
conn.ConnectionString = [Ô]server=MEUSERVER; Port=3306; user id=MEU USUARIO; password=MINHA SENHA; database=MEU BD[Ô]
Try
conn.Open()
Catch myerror As MySqlException
MsgBox([Ô]Erro de Conexao![Ô])
End Try
Dim myAdapter As New MySqlDataAdapter
Dim sqlquery = [Ô]SELECT * FROM login WHERE usuario=[ô][Ô] + TextBox1.Text + [Ô][ô] AND senha= [ô][Ô] + TextBox2.Text + [Ô][ô][Ô]
Dim myCommand As New MySqlCommand()
myCommand.Connection = conn
myCommand.CommandText = sqlquery
myAdapter.SelectCommand = myCommand
Dim myData As MySqlDataReader
myData = myCommand.ExecuteReader()
If myData.HasRows = True Then
MsgBox([Ô]Esse Usuário Ja Existe Tente Outro Por Favor!!...[Ô])
ElseIf myData.HasRows = False Then
conn.Close()
conn.Open()
Dim registrar As New MySqlDataAdapter
sqlquery = [Ô]INSERT INTO login (usuario, senha,avatar )Values ([ô][Ô] + TextBox1.Text + [Ô][ô],[ô][Ô] + TextBox2.Text + [Ô][ô],[ô][Ô] + txtCaminhoImagem.Text + [Ô][ô])[Ô]
myCommand.Connection = conn
myCommand.CommandText = sqlquery
registrar.SelectCommand = myCommand
myData = myCommand.ExecuteReader
MsgBox([Ô] OBRIGADO POR SE REGISTRAR [Ô])
Me.Close()
Form1.Show()
End If
Tópico encerrado , respostas não são mais permitidas