PEGAR UM FORM NUM SERVIDOR

USUARIO.EXCLUIDOS 27/08/2007 09:34:46
#232774
Senhores,

Tenho um Form (FrmConsultas) somente de consulta.
E tenho outro Form (FrmPrincipal) que puxa esse Form de consultas (FrmConsultar) levando alguns dados (ID_PESSOA) por exemplo.

Minha dificuldade.

Se tenho um projeto onde um Form chama um outro, beleza (crio o executavel e funciona).

Mas gostaria mesmo que o Form FrmPrincipal que esta numa maquina de desenvolvimento (MAQUINA1) no momento que for chamar o FrmCosultas fosse chamar lá em uma outra maquina (NTSERVIDOR).

Isso é possivel?
USUARIO.EXCLUIDOS 27/08/2007 09:44:02
#232781
Amigo, o que vc pode fazer é compilar os form's em executáveis diferentes, e vc chamar o executável que se encontra lá no servidor em uma pasta compartilhada.

Aí estes dados que vc quer enviar para o outro executável, vc enviaria por passagem de parâmetro, chamando pelo shell... algo tipo assim:


Shell "\\Servidor\PastaCompartilhada\ExeServidor.exe ID_PESSOA,NOME_PESSOA"


Aí no exe do servidor, vc faz assim para recuperar as informações:

Dim Parametro as String
Dim splParam as Variant
Dim IDPessoa as Long
Dim NomePessoa as String

Parametro = Command$
splParam = split(Paramtro, ",")
IDPessoa = splParam(0)
NomePessoa = splParam(1)
USUARIO.EXCLUIDOS 27/08/2007 11:18:25
#232812
Marcelo,

fiz e quando executo a linha
Shell "\
tbkp\VB\Project1.exe 123456,ABCD"

Dá o erro abaixo:

9-Subscript out of range

isso aconcete exatamente quado passa na linha abaixo:
IDPessoa = splParam(0)

e se eu comentar a linha, da o mesmo erro na outra linha:
NomePessoa = splParam(1)


O que vc acha que pode ser?
USUARIO.EXCLUIDOS 27/08/2007 11:29:08
#232819
Marcelo,

refiz e deu certo!

Obrigado!
USUARIO.EXCLUIDOS 27/08/2007 11:36:50
#232822
Marcelo,

como te disse antes, funcionou so que tem como ele trazer o executavio (segundo programa) na tela.

Do jeito que esta ele chama o excutavel passa os dados mais o executavel fica minimizado.
USUARIO.EXCLUIDOS 27/08/2007 12:03:14
#232830
No próprio executável, no do servidor, quando vc dá o show no formulário ele deveria já ficar na frente.

Poste pra gente como vc está fazendo no exe do servidor.
USUARIO.EXCLUIDOS 27/08/2007 14:46:20
#232875
Segue o codigo:

Private Sub Form_Load()
   Dim Parametro As String
   Dim splParam As Variant
   Dim IDPessoa As Long
   Dim NomePessoa As String
   Dim sMsg       As String
  
   On Error GoTo Fim
 
   Form1.Show
   Parametro = Command$
   splParam = Split(Parametro, ",")
   IDPessoa = splParam(0)
   NomePessoa = splParam(1)
   Text1.Text = IDPessoa
   Text2.Text = NomePessoa

Fim:
    
  If Err.Number <> 0 Then
     sMsg = Err.Number & "-" & Err.Description
  End If

End Sub
USUARIO.EXCLUIDOS 27/08/2007 14:55:29
#232879
E ele está abrindo minimizado?? o.O


Verifique a propriedade WindowState do form para ver como está... pra ver se não está Minimized...
USUARIO.EXCLUIDOS 27/08/2007 15:26:34
#232898
sim, ele abre o programa lá em baixo (minimizado)
entao tenho que clicar nele pra mostrar o form


USUARIO.EXCLUIDOS 27/08/2007 15:34:17
#232903
deixei WindowState = 2 maximized

e nao fucionou
USUARIO.EXCLUIDOS 27/08/2007 16:25:41
#232939
Poste também o código de como vc está chamando o executável
Página 1 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar