Enviar variables con Winsock a otro ordenador y ligar textbox a datacontrol en Visual Basic
Hola, hace poco que empecé con VB y tengo dos preguntas:
1) Como hago para enviar dos variables mediante el winsock a otra pc, porque las dos variables las manda pero la que recibe esas dos, las mete en una sola, ¿cómo se podrían separar?
2) Cuando intento acceder a una BD de access usando el tiempo de diseño me anda perfecto, los textbox andan bien sin problemas, todo va super bien, pero cuando intento ligar un textbox al datacontrol mediante el datasource me tira un error
Hago
text1.datasource=data1 y me dice "no se encuentra el método"
¿Por qué me dice eso si en el tiempo de diseño anda perfecto?
Gracias :)
1) Como hago para enviar dos variables mediante el winsock a otra pc, porque las dos variables las manda pero la que recibe esas dos, las mete en una sola, ¿cómo se podrían separar?
2) Cuando intento acceder a una BD de access usando el tiempo de diseño me anda perfecto, los textbox andan bien sin problemas, todo va super bien, pero cuando intento ligar un textbox al datacontrol mediante el datasource me tira un error
Hago
text1.datasource=data1 y me dice "no se encuentra el método"
¿Por qué me dice eso si en el tiempo de diseño anda perfecto?
Gracias :)
1 respuesta
Respuesta de andresmaga
1
Te respondo brevemente:
1) Tenés 2 opciones, o las envías en 2 procesos distintos, o cuando las recibís en la otra maq jugar con el left y el right (si son longitud fija)
Por ej: left("data", 2) te devuelve da
O sino separarlas con algún carácter, y usar la función instr:
Por ej las separas con el signo ! Y hacés:
Instr("varable","!",) devuelve 5 (la posición de lo encuentra al carácter especificado y después hacés: left(variable, 5 - 1) te va a devolver la primer variable, y después right(variable, len(variable)-5) te devuelve la 2da variable
Así sería un ej completo:
Dim var1 As String
Dim var2 As String
Dim tmp As Integer
Dim data As String
data = "Pepe!Rodrigo"
tmp = InStr(data, "!")
var1 = Left(data, tmp - 1)
var2 = Right(data, Len(data) - tmp)
MsgBox var1 & "-" & var2
y cuando hacés el sendata sería:
winsock.senddata var1 & "!" & var2
1) Tenés 2 opciones, o las envías en 2 procesos distintos, o cuando las recibís en la otra maq jugar con el left y el right (si son longitud fija)
Por ej: left("data", 2) te devuelve da
O sino separarlas con algún carácter, y usar la función instr:
Por ej las separas con el signo ! Y hacés:
Instr("varable","!",) devuelve 5 (la posición de lo encuentra al carácter especificado y después hacés: left(variable, 5 - 1) te va a devolver la primer variable, y después right(variable, len(variable)-5) te devuelve la 2da variable
Así sería un ej completo:
Dim var1 As String
Dim var2 As String
Dim tmp As Integer
Dim data As String
data = "Pepe!Rodrigo"
tmp = InStr(data, "!")
var1 = Left(data, tmp - 1)
var2 = Right(data, Len(data) - tmp)
MsgBox var1 & "-" & var2
y cuando hacés el sendata sería:
winsock.senddata var1 & "!" & var2
