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 Try Lembrando : estou usando o Visual Basic 2008 Express Edition e o SQL Server 2005

Private Sub BtnRegistrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRegistrar.Click Dim conn As New SqlClient.SqlConnection Dim comando As New SqlClient.SqlCommand Dim reg As Integer conn.ConnectionString = My.Settings.SisvenConnectionString If TxtUsuario.Text = "" Then MessageBox.Show("É necessário informar o nome de Usuario/Login") TxtUsuario.Focus() Exit Sub End If If Txtsenha.Text = "" Then MessageBox.Show("Informe sua senha de acesso") Txtsenha.Focus() Exit Sub End If If Not Txtsenha.Text.Equals(TxtSenha2.Text) Then MessageBox.Show("A senha não confere") TxtSenha2.Focus() Exit Sub End If Try conn.Open() comando.Connection = conn comando.Parameters.AddWithValue("@nomusu", TxtUsuario.Text) comando.Parameters.AddWithValue("@SenhaID", Util.GeraHash(Txtsenha.Text)) comando.Parameters.AddWithValue("@usuario", Usuario) comando.Parameters.AddWithValue("@codemp", Empresa) 'Vê se o usuario já esta cadastrado ou não comando.CommandText = "Select Nomlog FROM cadusu Where Nomlog=@Nomusu" reg = comando.ExecuteNonQuery() If reg.ToString = "" Then MessageBox.Show("não Achou usuario cadastrado") comando.CommandText = "INSERT INTO cadusu(codemp,nomlog,SenhaID,usuari) values(@codemp,@nomusu,@SenhaID,@usuario)" Else MessageBox.Show("Achou Usuario !") comando.CommandText = "UPDATE cadusu SET codemp = @codemp, Nomlog = @nomusu, SenhaID = @SenhaID, Usuari = @usuario WHERE Nomlog=@nomusu" 'comando.CommandText = "INSERT INTO cadusu(codemp,nomlog,SenhaID,usuari) values(@codemp,@nomusu,@SenhaID,@usuario)" End If reg = comando.ExecuteNonQuery() MessageBox.Show(reg.ToString + " Registro de usuario incluido com sucesso.") Catch ex As Exception MessageBox.Show("Erro ao efetuar a conexão com a base de dados :" + ex.Message) Finally conn.Close() conn.Dispose() End Try End Sub ===> Tá acontecendo dois problemas : 1 - acho q a sintaxe está errada, por não sei se o SELECT achou ou não o usuario informado 2 - so ta gravando um registro na tabela, os outros, mesmo dizendo q gravou, não grava nada ... Como sou iniciante, conto com a ajuda dos expert´s d fórum ... desde já valeu moçada !

oopsss, foi mal ... to usando o Visual Basic 2008 Express Edition e o banco de dados seria o SQL Server 2005 que já baixei no pacote do Visual Studio ... Já q tocou no assunto, eu já tinha baixado, instalado o BD e todas minhas tabelas no MySQL, porém, não consegui conectar no BD no meu projeto, então refiz o BD e suas tabelas no SQL Server 2005 ... Cara, tipo, to começando agora, super sem base ainda desse lance de .NET, manda o q você tiver de dicas ai q o resto eu corro atrás ... valeu ...

Estou iniciando em VB .NET, preciso saber como fazer algo basico em VB .net = procurar registro em uma tabela. Pegar o conteudo de um TextBox, tipo codigo do Aluno por exemplo, dai, pesquisar na Tabela alunos, e caso encontrar, exibir a foto do mesmo, cujo caminho da foto vai estar gravado no campo imagem da tabela alunos ... exemplo de registro na tabela : codigo : 1 Nom_aluno : Fulano de tal Imagem : C:\imagens\img0001.jpg Por favor ! No Clipper seria simples, tipo : Sele Alunos Seek cod_aluno if .not. eof() ximagem = imagem ( onde o conteudo do campo imagem seria -> c:\imagens\img0001.txt) else xmens = "Cadastro não encontrado" sair fora endif exibir imagem entenderam a duvida ?