jueves, febrero 09, 2006

ENTER DE CODE

' código encontrado en un programa, no tiene desperdicio leerlo con cuidado ;-)



Public Sub LeerMensaje()
Set tb = New ADODB.Recordset
X = "SELECT * FROM mensajes WHERE men_par=" & Id_Usuario & " ORDER
BY men_fch"
tb.MaxRecords = 1
tb.Open X, conex, adOpenForwardOnly, adLockReadOnly, adCmdText

If Not tb.EOF Then
tb.MoveFirst
NumMensajes = 0
Do While Not tb.EOF
NumMensajes = NumMensajes + 1
tb.MoveNext
Loop
tmp = MsgBox("Tiene " & NumMensajes & "nuevo/s.", vbOKOnly,
"Mensajes Nuevos")
End If
tb.Close
Set tb = Nothing
If NumMensajes <> 0 Then
frmMostrarMensajes.Show vbModal
End If
End Sub

1 comentario:

IoZ dijo...

Realmente estamos ante un gran ejemplo de codigo optimizado XD