Ver Mensaje Individual
  #2 (permalink)  
Antiguo 22/10/2004, 15:13
Avatar de jrp01
jrp01
 
Fecha de Ingreso: mayo-2004
Ubicación: México
Mensajes: 2.702
Antigüedad: 20 años, 8 meses
Puntos: 0
Es facil:

dim cn as new adodb.connection
dim rs as new adodb.recordset
dim sql as string

en el boton:

sql="select tus_campos from tu_tabla where tu_campo_para_busqueda=" & text1.text
set rs=cn.execute(sentencia)
if isnull(rs(0)) then
msgbox "No Existe el registro"
else
text2.text=rs!tucampo ' o tambien rs(1)
......
end if

Saludos