login en vb 2008

[ramos_1089]

hola
mi problema es el siguiente:
estoy asiendo la ventana login de un programa en visual basic 2008, el programa que estoy haciendo va conectaddo a una base de datos de postgres en esa base de datos hay una tabla llamada tbl_usuario que es de donde voy a sacar el usuario y la contraseña para mi login. se supone que yo al introducir un usuario y contraseña va a ir a la tabla usuario de mi base de datos y se va a asegurar de que usuario y contraseña introducidas sean iguales a uno de los usuarios y contraseñas de la base de datos

me prodrian ayudar!!!!!!

[Aquaventus]

Hola ramos_1089!.
1º Bienvenido al Foro.
2º Tienes el código para ver lo que has avanzado para poder ayudarte? Porque lo de la consulta puede ser con un simple count por ejemplo :

Código SQL:

SELECT COUNT(*) FROM USUARIO WHERE ID='ID' AND PWD='PWD'
 

Esto ya te devolverá 0 ó 1 y con eso permites si entra o no. Saludos!.

[ramos_1089]

mira es te es mi codigo pero ya me funciono perfectamente
pero ahora tengo otro problema quisiera saber como valido si es administrador o otro tipo de cuanta por que en mi bd tengo 2 tipos de cuanta me podrias ayudar

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ingresar.Click
'valida si el usuario y contraseña estan registradas y entra al sistema
Dim ccn As String = "DSN=PostgreSQL35W;UID=mgn_rural;PWD=ruralmgn; "
'<<< PARA SELECCIONAR EL USUARIO Y LA CLAVE DE LA TABLA USUARIO >>>
Dim da As New OdbcDataAdapter("select usuario, contrasenia from tbl_usuarios where usuario='" & txt_usuario.Text & "' and contrasenia='" & txt_contrasenia.Text & "'", ccn)
Dim ds As New DataSet
da.Fill(ds, "tbl_usuarios")
Dim fila As DataRow
'<<< PARA QUE LOS TEXT NO ESTEN VACIO >>>
If txt_usuario.Text = "" And txt_contrasenia.Text = "" Then : MsgBox("Por favor digite el Usuario y la Contraseña para entrar al Sistema...", MsgBoxStyle.Information, "AVISO") : txt_usuario.Select() : Exit Sub
ElseIf txt_usuario.Text = "" Then : MsgBox("Digite el Usuario", MsgBoxStyle.Information, "AVISO") : txt_usuario.Select() : Exit Sub
ElseIf txt_contrasenia.Text = "" Then : MsgBox("Digite la Clave", MsgBoxStyle.Information, "AVISO") : txt_contrasenia.Select() : Exit Sub
End If
For Each fila In ds.Tables("tbl_usuarios").Rows
'<<< SI EL USUARIO Y LA CLAVE SON CORRECTAS PASA AL PROXIMO FORMULARIO >>>
If txt_usuario.Text = fila!usuario And txt_contrasenia.Text = fila!contrasenia Then : Hide() : Opciones.Show() : txt_usuario.Text = "" : txt_contrasenia.Text = "" : Exit Sub
End If
Next
'<<< SI NO SON CORRECTAS EMITIRA EL SIGUIENTE MANSAJE >>>
MsgBox("Usuario Incorrecto. Este Usuario no se encuentra registrado en el Sistema...", MsgBoxStyle.Critical, "AVISO")
txt_usuario.Text = ""
txt_contrasenia.Text = ""
txt_usuario.Select()

[Aquaventus]

Permíteme colocarlo dentro de los códigos GEISHI para tener un mejor panorama... porque así como esta no entiendo...

Código vb:

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ingresar.Click
'valida si el usuario y contraseña estan registradas y entra al sistema
Dim ccn As String = "DSN=PostgreSQL35W;UID=mgn_rural;PWD=ruralmgn; "
'<<< PARA SELECCIONAR EL USUARIO Y LA CLAVE DE LA TABLA USUARIO >>>
Dim da As New OdbcDataAdapter("select usuario, contrasenia from tbl_usuarios where usuario='" & txt_usuario.Text & "' and contrasenia='" & txt_contrasenia.Text & "'", ccn)
Dim ds As New DataSet
da.Fill(ds, "tbl_usuarios")
Dim fila As DataRow
'<<< PARA QUE LOS TEXT NO ESTEN VACIO >>>
If txt_usuario.Text = "" And txt_contrasenia.Text = "" Then : MsgBox("Por favor digite el Usuario y la Contraseña para entrar al Sistema...", MsgBoxStyle.Information, "AVISO") : txt_usuario.Select() : Exit Sub
ElseIf txt_usuario.Text = "" Then : MsgBox("Digite el Usuario", MsgBoxStyle.Information, "AVISO") : txt_usuario.Select() : Exit Sub
ElseIf txt_contrasenia.Text = "" Then : MsgBox("Digite la Clave", MsgBoxStyle.Information, "AVISO") : txt_contrasenia.Select() : Exit Sub
End If
For Each fila In ds.Tables("tbl_usuarios").Rows
'<<< SI EL USUARIO Y LA CLAVE SON CORRECTAS PASA AL PROXIMO FORMULARIO >>>
If txt_usuario.Text = fila!usuario And txt_contrasenia.Text = fila!contrasenia Then : Hide() : Opciones.Show() : txt_usuario.Text = "" : txt_contrasenia.Text = "" : Exit Sub
End If
Next
'<<< SI NO SON CORRECTAS EMITIRA EL SIGUIENTE MANSAJE >>> 
MsgBox("Usuario Incorrecto. Este Usuario no se encuentra registrado en el Sistema...", MsgBoxStyle.Critical, "AVISO")
txt_usuario.Text = ""
txt_contrasenia.Text = ""
txt_usuario.Select()
 

[Aquaventus]

Podrías mencionarnos como está estructurado tus tablas usuario y perfil??

[thegodinez]

Si manejas diversos tipos de usuarios, en tu tabla "tbl_usuarios" debes de tener un campo llamado "tipo_usuario".

Entonces te propongo cambiar tu instrucción sql por:

select usuario, contrasenia, tipousuario from tbl_usuarios where usuario='" & txt_usuario.Text & "' and contrasenia='" & txt_contrasenia.Text & "'"

y agregar otra restriccion aqui abajo

Código:

If txt_usuario.Text = fila!usuario And txt_contrasenia.Text = fila!contrasenia Then : Hide() : Opciones.Show() : txt_usuario.Text = "" : txt_contrasenia.Text = "" : 

SELECT CASE fila!tipo_usuario
CASE 'A'
MsgBox "Administrador"
CASE ELSE
MsgBox "No Administrador"

End If

[ramos_1089]

ya lo resolvi muchas gracias por su ayuda!!!agregue a la bd un campo tipo_usuario