Programacion cliente servidor vb6

CONEXION REMOTA
SERVIDOR
Form_Load ‘Configuro el WinServer
If WinServer.State <> sckClosed Then WinServer.Close
WinServer.LocalPort = 1338 ‘Establecer Puerto
WinServer.Listen‘Escuchar
Adodc1.ConnectionString = "Connection String"

WinServer_ConnectionRequest(ByVal requestID As Long)
If WinServer.State <> sckClosed Then WinServer.Close
WinServer.Accept requestID‘Aceptar la conexion

WinServer_DataArrival(ByVal bytesTotal As Long)
Dim SQL As String
Dim rs As New Recordset
Dim sCabezal As String
Dim iIndice As Integer
WinServer.GetData SQL‘Guardo la consulta solicitada
AdoConnection.RecordSource = SQL ‘Ejecuto la consulta
AdoConnection.Refresh
Set rs = AdoConnection.Recordset
sCabezal = ""
iIndice = 0While iIndice <= rs.Fields.Count – 1 ‘Levanto los nombre de las columnas
sCabezal = sCabezal & rs.Fields.Item(iIndice).Name & ","
iIndice = iIndice + 1
WendWinServer.SendData Left(sCabezal, Len(sCabezal) - 1) & vbCrLf &
rs.GetString(adClipString, , ",", vbCrLf, "") ‘Mando una cadena con los resultados de la consulta
CLIENTE
FunctionConsultaRemota(SQL as string) As Recordset
Dim Datos as string ‘Lugar donde voy a guardar la respuesta del Servidor
Dim rs As New Recordset ‘Rescordset que voy a devolver cargado
Dim lineas() As String‘Array para guardar la respuesta del Servidor tranformada
Dim Columnas() As string
If WinCliente.State <> sckClosed Then WinCliente.Close
WinCliente.RemotePort = 1338 ‘Establezco el puertoWinCliente.RemoteHost = 10.1.1.1 ‘Establezco el servidor
WinCliente.Connect ‘Pido conexión
If WinCliente.state=7 then ‘Si se estableció la conexión
WinCliente.SendData SQL ‘Le mando la consulta
Endif
WinCliente.GetData líneas ‘Guardo el resultado
lineas = Split(Datos, vbCrLf) ‘Lo convierto en un Array
Columnas=Split(Lineas(0),”,”) ‘Consigo un array con los nombre de las columnas...