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