Evento LostFocus Visual Basic BD

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...