Ver Mensaje Individual
  #4 (permalink)  
Antiguo 25/02/2010, 07:16
edjosephgr
 
Fecha de Ingreso: enero-2007
Mensajes: 13
Antigüedad: 17 años, 11 meses
Puntos: 0
De acuerdo Respuesta: VB6.0 SP6 y MySQL

Bueno logre solucionar mi problema haciendo esto:

res.Fields("stad") = Check1.Value
res.MoveNext
If (res.RecordCount <> 0) Then
Label2.Caption = res.Fields("id")
Text1.Text = res.Fields("tlf")
Text2.Text = res.Fields("msj")
Check1.Value = res.Fields("stad")
Else
Label2.Caption = ""
Text1.Text = ""
Text2.Text = ""
Check1.Value = 0
End If

No se si sea la mejor practica pero funciona. Si tienen aguna sugerencia agradecido :)