Ilurdoz
14 de Junio del 2005

Hola, os explico mi problema a ver si alguien puede ayudarme. Tengo una tabla de access con dos campos enlazada por adodc a un formulario de VB6.
En dicho formulario intento q en un campo textbox en el evento lostfocus el texto introducido simplemente compruebe si existe en la tabla. Para q de esta forma ejecute una accion u otra. No se si alguien me podra ayudar con esto, gracias.

Marcelo
14 de Junio del 2005

data1.recordset.findfirst " Cod_Postal = " & text1.text
If not data1.recordset.nomatch then
text2.text= data1.recordset.fields("Direccion")
else
text2.text=" "
end if
If text2.text <> " " then
msgbox"Codigo Existente",vbcritical,"Alta de Codigos"
eixt sub
end if
Cualquier cosa contame Suerte

krizall
14 de Junio del 2005

bueno, tambien lo pudes hacer con sql

adodc.recordsource="select * from tabla where campoabuscar='" & text1.text & "'"

if adodc.recordset.eof then
el texto no existe
else
el texto ya existe
end if

aunque si ya utilizas el control ado, no creo que te sea muy dificil aprender a usar su referencia y un poco de sql, te haran las coasas mas faciles

con solo un modulo y 3 o 4 procedimientos podras manejar tu bd desde cualquier parte de tu programa.

suerte y si te interesa esto de manejar la referencia de ado, puedes entrar a www.elguille.info/default.aspx

ahi viene tanto como manejar ado con el control y sin el(por medio de la referancia)

suerte.

ilurdoz
14 de Junio del 2005

Gracias por vuestra ayuda. ;-)