ergoproxyy

EVENTO LOST FOCUS PARA HACER UNA BUSQUEDA EN UNA BASE DE DATOS Hola que tal, en esta ocasion haremos una busqueda dentro de una base de datos MySQL usando VB 6 como interfaz, usando el evento lostfocus de un textbox. Para llevar a cabo esta practica debes de tener configurado un ODBC y agregado un ADODC y un DATAGRID, si no sabes como, te invito a que veas el siguiente POST. http://www.taringa.net/posts/info/9495730/Conexion-a-MySQL-con-Visual-Basic-6_0-usando-objetos-ADO.html usaremos la tabla creada en el anterior post. Nombre de la Base de Datos: PRUEBA Nombre de la tabla: TABLA Campos: nombre Varchar(50), apellido_paterno varchar(50), apellido_materno varchar(50) Esto se crea en el PHP MY ADMIN Teniendo todo esto creamos la interfaz como sigue.... Para hacer nuestra busqueda agregaremos a tres personas a nuestra base de datos... En nuestro formulario dar doble clic sobre la caja de texto q esta al lado de nombre y seleccionar el evento LOSTFOCUS. El evento LOSTFOCUS se activa cuando quitamos el cursor de la caja de texto, mientras se escriba sobre el primer cuadro de texto no pasará nada, cuando keramos escribir el apellido es ahi donde se activara el evento ya que debemos kitar el cursor de nombre para pasarlo a apellido. AHORA EXPLICAMOS EL CODIGO... Adodc1.RecordSource = "select * from tabla where nombre ='" & Text1.Text & "' " Con esta linea le decimos al ADODC que almacene todos los registros que coinciden con el nombre escrito en la caja de texto, o sea el text1.text . Adodc1.Refresh Con esto le decimos que se actualice el ADODC y por decirlo asi, guarda los cambios hechos por la consulta. En lugar de almacenar todos los registros contenidos en la tabla TABLA, solo almacenará al registro con el nombre ingresado....mucha redundancia en fin.. . En caso de haber encontrado el registro es obvio que habrá uno. Si no lo encuentra almacenará vacio o 0 registros. Ahora bien... If Adodc1.Recordset.RecordCount > 0 Then Text1.Text = Adodc1.Recordset!nombre Text2.Text = Adodc1.Recordset!apellido_paterno Text3.Text = Adodc1.Recordset!apellido_materno Else Text2.Text = "" Text3.Text = "" End If Si la busqueda hecha por el ADODC nos devuelve un registro es obvio que es mayor a 0. Si es asi entonces mostrará en el text1 lo almacenado en el ADODC en su campo Nombre, y asi con los apellidos, serán mostrados en los demas text. Recordar que esto se activara despues de kitar el cursor del text q contiene el nombre de la persona. Bueno en caso de no encontrar nada....limpia las cajas de texto de los apellidos.. como aparece en la parte del else...

Creando un Inicio de SesionHola que tal, en esta ocasión les traigo el cómo hacer un inicio de sesion desde Visual Basic 6.0 y MySQL, nuestro usuario y pass estaran almacenados en la base de datos. Asi que practicamente es lo que se va a realizar, espero sea de mucha ayuda para algunos que estudien este tipo de cosas en la escuela, bueno saludos a todos y empecemos. Lo primero que haremos será abrir Visual Basic 6.0 y elegir la opcion que se muestraAhora creamos la interfaz de un inicio de sesion, asi sencilla como la que se muestraAhora bien, en las propiedades de las cajas de texto ponemos.....La propiedad Nombre es el nombre de la caja de texto y será para utilizarlo a la hora de la programación.La propiedad TEXT almacenará lo que nosotros escribamos dentro de la caja de texto, dejamos en blanco para que al momento de ejecutar la aplicacion esten vacios los dos campos, comúnmente se ve esto, aunque podrian dejarle alguna informacion si lo desean,Teniendo lista la interfaz ahora debemos insertar el control ADO, este nos servira para que la aplicacion se pueda enlazar con la base de datos que posteriormente vamos a crear, de momento hay que agregarlo a la aplicacion.Muchas veces he notado un problema cuando he trabajado con mis compañeros al momento de querer agregar este control, sucede que al darle clic a ACEPTAR manda un error, para que no suceda repiten lo mismo pero primero le dan APLICAR y despues ACEPTAR. Puede que no les suceda...solo es una recomendacionEste paso fue para agregarlo en el panel de la izquierda, ahora hay que insertarlo a la aplicacion, veremos que el control es como 2 flechitas y un botecito En la propiedad NOMBRE tambien es para lo mismo, es el nombre que tendra y al cual nos referiremos al momento de programar.La propiedad VISIBLE se ha puesto en False, esto es porque cuando se ejecute la aplicacion no queremos que el control ADO aparezca.Ahora tenemos que empezar a crear la Base de Datos, para esto debemos tener instalado XAMPP, en el post anterior vienen los pasos de como instalarlo Una vez instalado ejecutamos XAMPP CONTROL esto esta en la carpeta donde se ha instalado.Por lo regular esta en C:xampp, lo ejecutamos.OK. Ahora vamos a nuestro navegador y seguimos los pasos que a continuacion se muestran.1- Para entrar a la interfaz de bienvenida de XAMPP2.- Accede a PHPMyAdmin donde podremos crear la base de datos3.- Nos abre una ventana, y en la parte de Crear la base de datos la creamos.4.- Comprueba que se ha creado satisfactoriamente. Ya tenemos la base de datos, ahora hay que crear a un usuario, este sera el que accedera a la base de datos, y tambien daremos los privilegios correspondientes.Llenamos los campos correspondientes.1. De momento el usuario sera el administrador, puede ir cualquier nombre. en Servidor, como estamos trabajando en nuestro equipo de computo tenemos que poner obligatoriamente localhost, en caso de que se vaya a conectar a la base de datos desde otro equipo que esta dentro de la misma red, tendriamos que poner su direccion ip.Contraseña: para este ejemplo le pusimos admin2. Le estamos dando todos los privilegios, crear, borrar, modificar, etc.3. Marcar todos.....continuar...y listo, se ha creado el usuario admin.Bueno hasta aqui tenemos creada la interfaz, la base de datos que ocuparemos. Ahora falta configurar el ODBC, que sera el enlace entre visual basic y mysql. Si no sabes donde bajarlo te recomiendo que pases a mi otro post, ahi vienen los pasos.Ahora crearemos el lugar donde se iran guardando todos los usuarios q se den de alta pero desde visual basic.El tipo Varchar almacena numeros y caracteres. Le dimos una longitud de 50.Ahora le damos clic a la pestaña de INSERTAR, para poder agregar al primer usuario que podra logearse desde visual basic.En el paso 3 vemos que ya se ha agregado correctamente el registro.En el paso 4 es para Examinar o ver todos los registros que se hayan agregado a la tabla usuarios.En el paso 5 comprobamos que efectivamente el registro si se agregó.*****************************************************Configuracion del ODBCOJO..... si te vas a conectar desde otro equipo de computo entonces debes darle en Agregar que esta en la pestaña DNS de sistema.Para los que estan sobre el mismo PC...sigan tal cual la imagen.Aqui en esta ultima imagen si quiero decir que es donde hay mas problemas, asi que por favor traten de hacerlo bien xD.En TCP/IP Server : localhost porque estamos en la misma computadora.User: el que creamos anteriormente. Password: la que pusimos admindatabase: la que se creo al principio taringaAl momento de darle TEST debe aparecer la ventanita que se muestra. De lo contrario algo escribieron mal, o regresen a ver como le pusieron en usuario y la contraseña, verifiquen el nombre de la base de datos, todos los campos que pide, no debe haber errores, sino no podran continuar.Continuará.....Hora de ProgramarNos vamos de regreso a nuestra interfaz de visual basic donde ya tenemos nuestros controles, con las propiedades listas....si recuerdan insertamos un control ADO, ahora hay que hacerle lo siguiente...Clic Derecho en el control ADO1.- Usar nombre de origen de datos ODBC. De la lista desplegable les debera aparecer el nombre del ODBC que configuramos anteriormente. Lo seleccionamos y nos vamos al paso 2.2.- Lo configuran como en la imagen. Dentro del texto de comando hay que poner:select * from usuariosEsto quiere decir que al arrancar la aplicacion el control ADO almacenará o Seleccionará a todos los registros que estan dentro de la tabla usuarios.El asterisco se utiliza para representar a todos los registros dentro de una tabla. Y todos los registros que haya encontrado estaran ahi almacenados dentro del ADO, esperando a ser consultados por nosotros.Muy bien, al iniciar sesión con el usuario ergoproxyy y contraseña 123456, yo quiero que me mande a otro formulario donde podrian estar las diversas acciones q puede hacer este usuario.Crearemos otro formularioAhora tenemos que escribir el codigo siguiente...Private Sub Command1_Click() adoInicio.RecordSource = "select * from usuarios where nombre ='" & txtUsuario.Text & _ "' and password='" & txtPass.Text & "'" adoInicio.Refresh If adoInicio.Recordset.RecordCount = 0 Then MsgBox "los datos son incorrectos" Else Unload Me Form2.Show End IfEnd SubDespues ejecuten la applicacion y pongan de usuario el q agregamos a la tabla antes...ergoproxyy123456y funcionará....lo acabo de probar....me voy lejos asi q pongo las imagenes como en 3 dias.