Ir para conteúdo
Fórum Script Brasil

baloweb

Membros
  • Total de itens

    6
  • Registro em

  • Última visita

Tudo que baloweb postou

  1. Obrigado pela ajuda Kuroi Realmente a solução foi essa: um pequeno Slepp de 1 segundo entre os envios do SendData e uma condicional no DataArrival garantiu o funcionamento perfeito... segue abaixo como ficou 'Arrival If Label1.Caption = "" Then wskServidor.GetData strdados Label1.Caption = strdados Else wskServidor.GetData Teste Label2.Caption = Teste End If Command wskCliente.SendData text1.Text Espere (1) wskCliente.SendData text2.Text Obrigado pela ajuda Abrs Luciano
  2. Bom dia, Sou novo em programação e tenho um duvida quanto a utilização do winsock. Quero enviar através do SendData uma string para campos dferentes entre cliente e servidor, ou seja que uma variável vá para uma text1 e que outra vá para a text2 ., tentei atraves do mesmo objeto send e não funcionou. O que esta acontecendo é que a string é enviada só para a text1 Segue o código abaixo , e fico agradecido se alguém pode me ajudar Código no Servidor: Private Sub wskServidor_DataArrival(ByVal bytesTotal As Long) dim strdados1 as string dim strdados2 as string wskServidor.GetData strdados1 Text1.text = strdados1 wskServidor.GetData strdados2 Text2.text = strdados2 end sub Código no envio do cliente: Private Sub wskCliente_DataArrival(ByVal bytesTotal As Long) Dim strdados1 As String Dim strdados2 As String wskCliente.GetData strdados1 Text1.text = strdados1 wskCliente.GetData strdados2 Text2.text = strdados2 End Sub 'Envio pelo command Private Sub Command2_Click() wskCliente.SendData Text1.Text wskCliente.SendData Text2.Text End Sub Abrs Luciano
  3. Solucionado... Ocorria que ele percorria apenas o primeiro campo (coluna) e saí da condição do loop. Optei por colocar uma condição diferente para cada loop..funcionou... segue: Set Tbl = cat.Tables("Tabela") For Each Columns In Tbl.Columns If Columns = txtNome.Text Then MsgBox ("Nome igual da textbox") Exit Sub End If Next 'Se nome for igual pula pra proxima coluna For Each Columns In Tbl.Columns If Columns <> txtNome.Text Then MsgBox ("Nome diferente cria coluna com o nome então...") Tbl.Columns.Append txtNome.Text, adSmallInt Set cat = Nothing Exit Sub End If Next Obrigado a todos pela atenção! []´s Luciano
  4. Sim estão.... estamos no caminho certo...pelo que notei ao posicionar o mouse sobre: If Columns.Name = txtNome.Text Then em Columns.Name retorna o nome de uma coluna que existe, e em txtnome.text a coluna que informei... ou seja, sempre quando informo um nome de coluna que sei que existe na tabela ele sai da condição.... sendo assim , não esta percorrendo todas as colunas como deveria.... []'s Luciano
  5. Não.... Run-time error '424': Object Required na linha If Columns.Name = txtNome.Text Then []´s Luciano
  6. Obrigado por responder Gray... Fiz o que pediu... porem quando perceorre a tabela ele localiza uma coluna diferente da que informei e executa a função... Exemplo, tenho as colunas existentes: maça , banana, uva, pera, mamão. ele localiza a coluna "uva" e diz ser igual ao que está no textbox e executa: segue o codigo com o for each: txtnome.text = "ggg" Set Tbl = cat.Tables("Tabela") For Each Columns In Tbl.Columns If Columns = txtNome.Text Then MsgBox ("NOme Igual as textbox") else MsgBox ("Nome diferente") ' cria a coluna como nome informado... Tbl.Columns.Append txtNome.Text, adSmallInt Set cat = Nothing Exit Sub End If Next column
×
×
  • Criar Novo...