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