25/02/2010, 07:16
|
| | | Fecha de Ingreso: enero-2007
Mensajes: 13
Antigüedad: 17 años, 3 meses Puntos: 0 | |
 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 :) |