Access y VB.net, recuperar datos de la base de datos

[GENESISBM]

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

[jaullo]

A que te refieres con que te muestre el oro?

[GENESISBM]

El "oro" es un campo de la base de datos, de la tabla "atributos", ahora he descubierto que con esta sintaxis:

dineroactuallbl.DataBindings.Add("text", DatosDataSet, "atributos.oro")

Me copia el contenido del campo "ORO" de la tabla "atributos" a un label, pero de una fila al azar, no la que yo quiero :(, haber si me puedes ayudar xD, la cuestión es poder elegir yo la fila previamente, buscando el campo "usuario" de la misma tabla, y así recuperar los datos que yo quiera de esa fila. Creo que lo he explicado bien >_< sino intentaremos hacerlo mejor.

Gracias por contestar! ^^

[jaullo]

Lo puedes hacer con un datareader, por ejemplo

Código ASP:

Dim myConnection As SqlConnection
Dim myCommand As SqlCommand
Dim dr As New SqlDataReader()
'declaring the objects
 
sub data()
myConnection = New SqlConnection("server=localhost;uid=sa;pwd=;database=pubs")
'establishing connection. you need to provide password for sql server
Try
myConnection.Open()
'opening the connection
myCommand = New SqlCommand("Select * from discounts where usuario='" & usuario & "'", myConnection)
'executing the command and assigning it to connection
dr = myCommand.ExecuteReader()
While dr.Read()
lbloro.text=dr(0).tostring()
End While
dr.Close()
myConnection.Close()
Catch e As Exception
End Try
End Sub
 

Prueba esto, nada mas cambia los datos de la base de datos y la instruccion select

[GENESISBM]

Vale Jaullo, vamos por el buen camino xDD, con tu codigo he conseguido localizar el numero de fila, del usuario que se busca.

Tengo esto:

Código:

Imports System.Data.OleDb
Public Class Form1

    Dim myConnection As OleDbConnection
    Dim myCommand As OleDbCommand
    Dim dr As OleDbDataReader
    Dim user As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        user = TextBox1.Text
        myConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\datos.mdb")
        'establishing connection. you need to provide password for sql server
        Try
            myConnection.Open()
            ' opening the connection
            myCommand = New OleDbCommand("Select * from atributos where usuario='" & user & "'", myConnection)
            '  executing the command and assigning it to connection
            dr = myCommand.ExecuteReader()
            While dr.Read()
                lbloro.Text = dr(0).ToString() 'esto te dice el numero de fila en la que se encuentra el usuario buscado o logeado
            End While
            dr.Close()
            myConnection.Close()
        Catch ex As Exception
            MsgBox("Fallo")
        End Try
    End Sub
End Class

Y lo que quiero es, que de esa fila, en la que a encontrado el usuario en cuestion, me mire el campo "ORO" y me lo pase a una variable, a un textbox o un label, lo que sea, eso ya lo adaptare yo.

Es de esas cosas que tienen que ser faciles, pero hasta que no lo ves, no te sale... y mira que he probado combinaciones >_<. Haber si me puedes hechar un cable!

Muchas gracias por tu tiempo ^^

[jaullo]

Es sencillo, puedes tratar de dos formas.

1. Cuando el usuario hace login tomas el Username lo guardas en una variable y ejecutas el procedimiento anterior sobre la tabla atributos para traer el oro

2. Que es en base a lo que hiciste con el procedimiento anterior (que ya lo tienes listo).
Mira, estas haciendo esto:

Código ASP:

Select * from atributos where usuario='" & user & "'"
 

Con esto te estas trayendo todos los datos de la tabla atributos, pero el problema lo tienes aquí:

Código ASP:

lbloro.Text = dr(0).ToString() 'esto te dice el numero de fila en la que se encuentra el usuario buscado o logeado
 

Porque?, porque aqui estas obteniendo el primer campo que la instruccion select encuentre, sea cual sea, entonces como lo solucionas:
Puedes llamar unicamente los datos que necesitas por ejemplo:

Código ASP:

Select usuario,oro from atributos
 

entonces para asignarlo haces:

Código ASP:

label1.Text = dr(0).ToString() 'este seria el usuario 
label2.Text = dr(1).ToString() ' este el oro
 

O bien, seguir usando el select que tienes, pero entonces podrias cambiar el valor por el nombre de la columna de tu base de datos.
Asi:

Código ASP:

label1.Text = dr("usuario").ToString() 'este seria el usuario 
label2.Text = dr("oro").ToString() ' este el oro
 

Espero esto te ayude.

Saludo,

[GENESISBM]

Muchisimas gracias Jaullo!

Ahora si todo perfecto :P, seguro que me veras mas por aqui porque tendre mas dudas! xD

Gracias de nuevo!