Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
pero aqui hace 1 o 2 años no recuerdo bien postearon la guia completa de las API's del winsock y sus constantes y tipos y variables y todo bien completito hasta con las explicaciones de los errores mas frecuentes. Gracias igual -Freeze-
Public Type IconDescriptor
Tamaño As Long
Nombre As Long
blablabla As String
End Type
Public Variable As Tipo para utilizar esa Variable desde otro Modulo o Form debes colocar asi Nombre_Form_Contiene_Dicha_Variable.Variable''''Escritura
Form1.Visible = True
''''Lectura
Msgbox Form1.Visible Dim Rs As New Recordset
Dim Cadena As String
Rs.Open "Select DISTINCT NOMBRES, APELLIDOS, TELEFONOS, CIUDAD FROM CLIENTES", DBConex, adOpenStatic, adLockOptimistic
If Rs.RecordCount > 0 Then
For i = 1 To Rs.RecordCount
if StrComp(Cadena, Rs!Nombre, vbTextCompare) = 1 then goto Existe
Cadena = Cadena & Rs!Nombre & " " & Rs!Ciudad & " " & Rs!Telefono & Chr(13)
Existe:
Rs.movenext
Next i
MsgBox Cadena
End If