Ver Mensaje Individual
  #1 (permalink)  
Antiguo 20/06/2010, 11:38
GENESISBM
 
Fecha de Ingreso: enero-2009
Mensajes: 119
Antigüedad: 16 años, 3 meses
Puntos: 1
Access y VB.net, recuperar datos de la base de datos

Buenas!

Despues de ya conseguir insertar datos, tal y como yo queria a una base de datos access, ahora me pierdo al recuperarlos.

Lo que yo he hecho, es hacer un LOGIN y un REGISTRO, eso se mete en 1 base de datos que contiene 2 tablas, una se llama "Usuarios" y otra "atributos", hay 2 campos iguales en las dos bases de datos, para poder identificar a quien pertenecen los atributos. Ese campo es "usuario", ahora lo que yo quiero hacer:

Cuando hace login el usuario, se abre un nuevo FORM, y en ese form quiero recuperar datos de la tabla "atributos", de dicho usuario, por ejemplo. Pongamos que yo hago login con:

GENESISBM
hola

Llega al form, y por ejemplo quiero que me muestre el oro que tengo cuando logeo, arriba a la derecha hay un label, y en ese label quiero poner el oro que tengo que esta dentro de la tabla atributos seria "atritutos.oro".

Como podria hacer esto? Muchas gracias!

Adjunto, el codigo que tengo para registrarme, le faltan los controladores de errores, y alguna que otra cosa, pero de momento lo dejo asi provisionalmente! ^^

Código:
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim nuevousuario As datosDataSet.usuariosRow
        Dim nuevoatributos As datosDataSet.atributosRow
        Dim contenido As String
        Dim salir As Integer
        nuevousuario = DatosDataSet.usuarios.NewusuariosRow
        nuevoatributos = DatosDataSet.atributos.NewatributosRow
        contenido = usuario.Text
        salir = 0
        If contenido = "" Then
            MsgBox("Debes introducir un nombre de usuario")
            Exit Sub
        End If
        contenido = contraseña.Text
        If contenido = "" Then
            MsgBox("Debes introducir una contraseña")
            Exit Sub
        End If
        contenido = emailtxt.Text
        If contenido = "" Then
            MsgBox("Debes introducir un email")
            Exit Sub
        End If
        'lista de todas las entradas que tendra la fila nueva
        'tabla usuario
        nuevousuario.usuario = usuario.Text
        nuevousuario.password = contraseña.Text
        nuevousuario.email = emailtxt.Text
        nuevousuario.FechaAlta = Date.Today
        nuevousuario.estatus = estado
        'tabla atributos
        nuevoatributos.usuario = usuario.Text
        nuevoatributos.oro = oroinicial
        nuevoatributos.fuerza = fuerza
        nuevoatributos.vida = vida
        nuevoatributos.magia = magia
        nuevoatributos.destreza = destreza

        '--------------------------------------------------------
        DatosDataSet.usuarios.Rows.Add(nuevousuario)
        Me.UsuariosTableAdapter.Update(Me.DatosDataSet.usuarios)
        DatosDataSet.atributos.Rows.Add(nuevoatributos)
        Me.AtributosTableAdapter.Update(Me.DatosDataSet.atributos)
        ' MsgBox("El nombre de usuario ya existe o es muy largo.")
        ' salir = 1
        If salir = 0 Then
            MsgBox("Te has registrado correctamente.")
end if
    End Sub