Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

ricardovg

Login ... ???

Recommended Posts

Se for um simples sistema de login, sente-se e leia:Dim strEmail As String = Me.txtEmail.TextDim strSenha As String = Me.txtSenha.Text Dim strConnection As String = Defina o local do banco de dados Dim strSQL As String = "Select campo1, campo2 from tabela where email ='" & strEmail & "' and senha = '" & strSenha & "' " Dim objDR As SqlDataReader 'Variavéis de acesso ao Banco Dim cnBanco As New SqlConnection(strConnection) Dim myCommand As New SqlCommand(strSQL, cnBanco) cnBanco.Open() objDR = myCommand.ExecuteReader(System.Data.CommandBehavior.CloseConnection) If Not objDR.Read() Then objDR.Close() cnBanco.Close() Response.Redirect("login_invalido.htm") Else objDR.Close() cnBanco.Close() Response.Redirect("login_valido.htm") End IfImportante nao esquece do Imports System.data e Imports System.data.sqlclientEspero ter ajudadoCristiano

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.