Pregunta:
Visual Basic 6.0 Busqueda y Validacion ....ayuda!!!?
dinoPuerquito Jr.
2008-05-27 12:30:03 UTC
Hola, estoy haciendo dos programas en visual basic, pero me han salido estos problemas que la vdd no c ni como resolver, espero que me puedan ayudar.

1.Hice una agenda enlazada con una base de datos de access, y tengo que dar de alta, de baja y buscar registros, los primeros dos ya me sirvieron,todo bien y todo, pero el de buscar no me sale, puse el siguiente codigo para buscar pero como uqe tiene algun detallito, xq al momento de introducir el nombre me manda a un registro vacio.

Private Sub Command2_Click()
Dim buscar As String
With Adodc1.Recordset
buscar = " nombre like ' " & InputBox("Dame nombre a buscar") & "'"
.Find (buscar)
End With
End Sub


2. Hice un programa para registrar en un list box nombre y correo electronico (en diferente listbox y sin bases de datos), en la que tengo que verificar si el correo electronico tiene lo que se necesita para ser correo electronico (@, dominio....como .com o .net y proveedor de servicios...como hotmail o yahoo) todo me lo hace bien..
Tres respuestas:
anonymous
2008-05-27 15:08:24 UTC
Para el primer punto, mmmm, creo que estas usando un control, ¿no? al cual le tienes que pasar un query; el query sería del estilo:



sNombre = InputBox("Dame nombre a buscar")

sNombre = TRIM(sNombre)

sQry = "SELECT * FROM TABLA WHERE NOMBRE LIKE '" & sNombre & "'"



La verdad, yo creo que debes de crear un formularío para búsqueda, ese parece albañilería... Aunque sea un proyecto de la escuela, debes de hacerlo bien hecho, ¿qué no?



Por otro lado, te recomiendo que uses ADOBD en lugar de ADO, siempre es más fácil y más ordenado al usarse...



Para el punto dos;



Puedes cortar la cadena, por ejemplo, digamos que tienes una variable con la cadena, asi:



sEmail = "pete_676@hotmail.com"



ya tienes resuelto lo demás, ¿no?



entonces, para lo del dominio haces:



sAuxDominio = mid(sEmail, instr(sEmail, "@") + 1) 'Hace una subcadena a partir de la posición siguiente a la @

sDominio = mid(sAuxDominio, instr(sAuxDominio , ".") - 1) ' Hace una subcadena desde el inicio de la cadena Auxiliar,

'hasta una antes donde encuentra el punto



if trim(sDominio) = "" then

msgbox("Falta Dominio")

end if





'Supongo que conoces las funciones MID, INSTR E INSTRREV; te serán bastante utiles para este propósito...



MID - corta un segmente de una cadena, utiliza tres parámetros: la cadena, la posición inicial y la final



INSTR - localiza la posición inicial de una subcadena dentro de una cadena

INSTRREV - localiza la posición inicial de una subcadena dentro de una cadena, pero iniciand desde atrás...



Ojalá, te sea de utilidad.



Si necesitas más ayuda, échame un grito... Saludos
?
2016-05-28 12:11:48 UTC
Hay un asistente para crear una conexion a base de datos JET, este aparece al hacer click sobre el control ADO Data, el cual tienes que agregar a la barra de herramientas!
anonymous
2008-05-27 13:18:08 UTC
Pala el primer punto no te puedo ayudar por que no estas usando SQL y así es difícil así q ni idea con el borrar ya buscas amigo ahora en lugar de darle delete al archivo solo es mostrar checa tu código para borrar



Segundo punto con respecto a validar si es un correo ya que checas si tiene arroba, checa si después de la arroba hay algún dominio valido un case donde este una lista con los dominios mas comunes yahoo.com, hotmal.com, prodigy.com, etc, etc o en lugar de checa si hay arriba checa la arroba y con el domino o sea todo



@hotmail.com

@yahoo.com.mx



Checa si esta el dominio entero con todo y arroba osea



asi por cada uno



a = InStr(Text2.Text, "@hotmail.com")

a = InStr(Text2.Text, "@yahoo.com")


ⓘ
Este contenido se publicó originalmente en Y! Answers, un sitio web de preguntas y respuestas que se cerró en 2021.
Loading...