Lo que quiero esque en " usuario.Text = "Carlos" " se carge ese usuario directo de la base de datos.. OJO: son 3 usuarios y cada uno tiene un nivel de acceso diferente..
lo que no se es como hacerlo.. tengo la idea pero no la concreto no se si tengo que hacer una funcion aparte o puedo ejecutar un query directamente desde el evento click.. quiciera que me ayudaran a aclarar esta dudita..
yo estaba haciendo algo como esto pero creo que esta un poco errado por las dudas de la funcion ademas que tengo problemas con la sintaxis del query :S
Public Sub Form_Open()
Dim query As Result
conexion.conectar()
query = conexion.cn.Exec("Selec From usuario where acceso= Administrador")
TextBox1.Text = query["usuario"]
End
Public Sub Button1_Click()
Button2.Visible = False
HPanel2.Visible = False
Button3.Visible = False
HPanel3.Visible = False
usuario.Text = "Carlos"
password.SetFocus
End
Dim query As Result
conexion.conectar()
query = conexion.cn.Exec("Selec From usuario where acceso= Administrador")
TextBox1.Text = query["usuario"]
End
Public Sub Button1_Click()
Button2.Visible = False
HPanel2.Visible = False
Button3.Visible = False
HPanel3.Visible = False
usuario.Text = "Carlos"
password.SetFocus
End
El problema es que lo estoy haciendo en form_open y no se como hacerlo en el evento click porfa alguien ayudeme
Aqui la tabla Usuario por si alguien quiere ayudar mas:
usuario CREATE TABLE `usuario` (
`id_usuario` bigint(20) unsigned NOT NULL AUTO_INCREMENT,
`usuario` varchar(254) DEFAULT NULL,
`password` varchar(254) DEFAULT NULL,
`acceso` varchar(254) DEFAULT NULL,
PRIMARY KEY (`id_usuario`)
) ENGINE=InnoDB AUTO_INCREMENT=4 DEFAULT CHARSET=latin1