No campo LOCALFOTO que tem na minha Tabela de Usuarios, tem a seguinte informaçao :
"c:\imagens\imgxxx.jpg"
Qual seria o codigo, porque que apos localizar o registro na tabela eu pegue esse endereço e possa exibir a imagem indicada, o que tenho ate agora tá assim ...
Dim conn As New SqlClient.SqlConnection
Dim Comando As New SqlClient.SqlCommand
Dim NomUser As String
conn.ConnectionString = My.Settings.SisvenConnectionString
Try
conn.Open()
Comando.Connection = conn
Comando.Parameters.AddWithValue("@Nomlog", UsernameTextBox.Text)
Comando.CommandText = "Select Nomlog FROM cadusu Where Nomlog=@Nomlog"
NomUser = Comando.ExecuteScalar
conn.Close()
If UsernameTextBox.Text = Trim(NomUser) Then ----> achou o usuario <----
----> aqui esta minha duvida <-----
[b]LogoPictureBox.Image = Image.FromFile(Cadusu.LocalFoto)[/b]
----> aqui esta minha duvida <-----
----> não sei como é a sintaxe correta, assim como imaginei q seria dá erro ...
Else If UsernameTextBox.Text <> NomUser Then
MessageBox.Show("Usuário não cadastrado, acesso negado")
Me.close()
End If
Catch ex As SqlException
MessageBox.Show("Erro ao efetuar a conexão com a base de dados :" + ex.Message)
conn.Dispose()
End Try
Lembrando : estou usando o Visual Basic 2008 Express Edition e o SQL Server 2005
Pergunta
Rubens Paulino
No campo LOCALFOTO que tem na minha Tabela de Usuarios, tem a seguinte informaçao :
"c:\imagens\imgxxx.jpg"
Qual seria o codigo, porque que apos localizar o registro na tabela eu pegue esse endereço e possa exibir a imagem indicada, o que tenho ate agora tá assim ...
Dim conn As New SqlClient.SqlConnection Dim Comando As New SqlClient.SqlCommand Dim NomUser As String conn.ConnectionString = My.Settings.SisvenConnectionString Try conn.Open() Comando.Connection = conn Comando.Parameters.AddWithValue("@Nomlog", UsernameTextBox.Text) Comando.CommandText = "Select Nomlog FROM cadusu Where Nomlog=@Nomlog" NomUser = Comando.ExecuteScalar conn.Close() If UsernameTextBox.Text = Trim(NomUser) Then ----> achou o usuario <---- ----> aqui esta minha duvida <----- [b]LogoPictureBox.Image = Image.FromFile(Cadusu.LocalFoto)[/b] ----> aqui esta minha duvida <----- ----> não sei como é a sintaxe correta, assim como imaginei q seria dá erro ... Else If UsernameTextBox.Text <> NomUser Then MessageBox.Show("Usuário não cadastrado, acesso negado") Me.close() End If Catch ex As SqlException MessageBox.Show("Erro ao efetuar a conexão com a base de dados :" + ex.Message) conn.Dispose() End TryLembrando : estou usando o Visual Basic 2008 Express Edition e o SQL Server 2005
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.