Ver Mensaje Individual
  #1 (permalink)  
Antiguo 24/11/2005, 09:53
crealejo
 
Fecha de Ingreso: diciembre-2002
Ubicación: Medelllin
Mensajes: 46
Antigüedad: 22 años
Puntos: 0
Validar INNER JOIN desde Visual Basic 6

HOla todos, tengo una consulta desde visual basic que me trae información de 2 tablas en Acces, la información la trae correctamente, pero debo validar que solo traiga la información si se digita la cedula correcta, si la cedula no existe no debe traer nada, y en ambos casos me trae la información, como debo validar para que traiga los datos solo si existe la cedula.

Private Sub txtcedula_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
Set rst = Nothing
Set rst = CreateObject("ADODB.RECORDSET")
rst.Open "Select * From formacion INNER JOIN datosper ON formacion.cedula= datosper.cedula;", conexion

If rst.EOF Then
MsgBox "La Cédula No Existe"
Else
txtnombre = rst("nombre") & (" ") & rst("ap_padre") & (" ") & rst("ap_madre")
txtfecha = rst("fecha_nacimto")
txtsexo = rst("sexo")
txtedad = rst("edad")
txtestadoc = rst("estado_civil")
txtarea = rst("area_sup")
txtescol = rst("titulo_sup")
End If

End If