Visual Basic.NET - Accesos

   
Vista:

Accesos

Publicado por Llaverin (22 intervenciones) el 20/07/2009 11:04:57
Buenos días a tod@s:
Estoy empezando con el .Net, y me estoy volviendo loca buscando información y ninguna me sirve.
Seguro que debe de ser facil, pero no se como realizarlo.
Es un programa que al iniciarse, pide usuario y contarseña, y para ello tengo que acceder a la base de datos que esta en Access, atraves de una ODBC.

Me conecto de la siguiente manera:
En un modulo tengo:
Public Sub Conexion_BBDD()
Public cnn As New OleDbConnection() 'Conexión base de datos
Public DS As New DataSet()

Dim vCadena As String

vCadena = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath & "Base.mdb;"
cnn = New OleDb.OleDbConnection(vCadena)
cnn.Open()
End Sub

Public Sub Cerrar_BBDD()
cnn.Close()
End Sub

Y en el formulario de acesso:
Dim ConsultaSQL As String = "Select Nombre From Usuario"
Dim vFila As DataRow
'Controlamos si hubiera algun error a la hora de conectarnos con la base de datos
Try
Conexion_BBDD() 'Nos conectamos a la base de datos
Catch ex As Exception
MsgBox("No se ha podido conectar con la base de datos.")
End Try
Dim DA As New OleDbDataAdapter(ConsultaSQL, cnn) 'Adaptador de datos
DA.Fill(DS, "Usuario") 'Carga el adaptador
For Each vFila In DS.Tables("Usuario").Rows
cmbUsuario.Items.Add(vFila("Nombre"))
Next

Cerrar_BBDD()

Dim ConsultaSQL As String = "Select * From Usuario Where Nombre='" & cmbUsuario.Text & "' And Contraseña='" & txtPass.Text & "'"

Dim vComprueba As Integer
Dim vPerfil
Dim vFilas As Data.DataRow
Dim DA As New OleDbDataAdapter(ConsultaSQL, cnn) 'Adaptador de datos

vComprueba = DA.Fill(DS, "Usuario") 'Carga el adaptador

'Si nos devuelve un 1 es incorrecto y si es un 0 es correcto
If vComprueba = 1 Then
MsgBox("La contraseña es incorrecto.", MsgBoxStyle.Critical, "Error de Acceso")
txtPass.Focus()
Else

Hasta aqui todo correcto, hasta que quiero coger un dato del usuario que va acceder, no se como hacerlo, lo hago asi:
For Each vFilas In DS.Tables("Usuario").Rows
vPerfil = vFila("Perfil")
Next

Pero no es lo que yo quiero, como puedo hacerlo???

Muchas gracias a tod@s.

Saludos
Llaverin
Cerrar_BBDD()
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Accesos

Publicado por Damian (824 intervenciones) el 24/07/2009 00:19:42
No entiendo para que haces un for?, el dato del usuario que ingreso lo tienes mas arriba en tu consulta select, ademas no se que es vPerfil o sea de que tipo ya que en tu declaracion no tiene nada. Te tira algun error o algo, creo que te estas complicando, ya que los datos los tienes en las cajas de texto, si es eso lo que quieres ver. Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar