• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

ppeixoto

[duvida]aspx.vb + SQL Server

2 mensagens neste tópico

Ora bem, estou a iniciar em aspx mas estou a ter problemas em conseguir fazer algo. O que queria saber é como consigo passar um campo da base de dados para uma string, ou seja, eu fazia algo tipo:

"Select Nome From Utilizadores where IDUtilizador=1" e queria que ficasse com o nome numa variavel.

Alguem me pode ajudar?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Já consegui chegar à solução. Aqui fica:

'Include dos dois ficheiros para disponibilizar algumas funcionalidades tais como o DataReader

Imports System.Data

Imports System.Data.SqlClient
Partial Class _Default
    Inherits System.Web.UI.Page


    Protected Sub btnLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLogin.Click
        If (Session("logado") = "false") Then
            'Preparar a conexão á base de dados
            Dim SQLConnectionString As String = "Data Source=PEDRO-PC;Initial Catalog=ABD;Integrated Security=True"
            Dim sqlConnection As SqlClient.SqlConnection = New SqlClient.SqlConnection(SQLConnectionString)
            'Preparar o comando select
            Dim sqlCommand As SqlClient.SqlCommand = New SqlClient.SqlCommand("SELECT IDUtilizador,Password FROM Utilizadores Where IDUtilizador = @Id")
            Dim sqlParam As SqlClient.SqlParameter = New SqlClient.SqlParameter("@Id", txtUsername.Text)
            sqlCommand.Parameters.Add(sqlParam)
            'Iniciar conexão à base de dados
            sqlCommand.Connection = sqlConnection
            sqlConnection.Open()
            'Executar comando Select com para o DataReader
            Dim Lista As SqlClient.SqlDataReader
            Lista = sqlCommand.ExecuteReader(CommandBehavior.CloseConnection)
            'Ler do DataReader e comparar com a password 
            lblLogin.Text = "Esse utilizador não existe"
            While Lista.Read
                If (txtUsername.Text = CType(Lista.GetValue(Lista.GetOrdinal("IDUtilizador")), String)) Then
                    If (txtPassword.Text <> CType(Lista.GetValue(Lista.GetOrdinal("Password")), String)) Then
                        lblLogin.Text = "Password errada!"
                    Else
                        Session("User") = CType(Lista.GetValue(Lista.GetOrdinal("IDUtilizador")), String)
                        lblEstado.Text = Session("User")
                        Session("logado") = True
                        txtUsername.Visible = False
                        txtPassword.Visible = False
                        btnLogin.Text = "Logout"
                        lblLogin.Text = ""
                    End If
                End If
            End While
            'Fechar DataReader
            Lista.Close()
        Else
            Session("logado") = False
            txtUsername.Visible = True
            txtPassword.Visible = True
            btnLogin.Text = "Login"
            lblLogin.Text = ""
        End If
    End Sub


End Class

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora