EXECUTAR APLICATIVO COM PARAMETROS

PERCIFILHO 09/04/2014 16:25:51
#437094
Boa tarde pessoal. Vou tentar ser o mais claro possível.
Tenho um aplicativo que gera um visualizador de relatórios, onde o usuário vai escolher entre visualizar ou imprimir um relatório.
Pois bem.... Acontece que esse é um aplicativo (executável).
Só que o sistema é outro executável. Então, eu gostaria de saber o seguinte. Quando o usuário estiver usando o sistema, vai clicar no botão para gerar um relatório. Aí vai chamar o executável do aplicativo (gerador de relatório) passando um parâmetro, que seria o nome do arquivo que ele vai abrir.
Não sei como fazer isso.
é como se fosse usar parâmetro para abrir um arquivo pelo Notepad (c:
otepad.exe <nome do arquivo>), a ideia é mais ou menos essa.
Alguém tem uma solução para mim?

Até mais.
MIQUEIASSARTOR 09/04/2014 21:44:20
#437104
ola galera desculpe o lugar erra mais sou novo aqui no forum e nao sei mexer muito
estou com um problema aqui neste codigo.
isto e uma tela de login com banco de dados, mais quando coloco o nome e senha ele nao puxa nada, e dentro do visual basic 2008 quando eu dou um play e digito o nome e senha e volta para a tele de cofigo marcando esta parte do codigo em amarelo.



Imports System.Data.OleDb

Public Class Form1

Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
cadastro_de_usuario.Show()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim conexao As New OleDbConnection

Dim comandos As New OleDbCommand

[th][/th]
Cabecalho
Dim consulta As OleDbDataReader





conexao.ConnectionString = [Ô]Provider=Microsoft.ACE.OLEDB.12.0; DATA SOURCE= C:\Documents and Settings\Aline\Meus documentos\Visual Studio 2008\Projects    este de login    este de login\bin\Debug\basededados.accdb;[Ô]
conexao.Open()
comandos.Connection = conexao
consulta = comandos.ExecuteReader

If (consulta.HasRows) Then
Tela_Principal.Show()

Else
MsgBox([Ô]senha ou usuario incorretos[Ô])

End If
conexao.Close()
Me.Close()






End Sub
End Class
PEGUDO 10/04/2014 07:44:33
#437107 Resposta escolhida
PERCIFILHO,
No seu código principal, você deve chamar o outro executável assim:
Suponha que o usuário clicou para visualizar.

process.start(outroexecutavel.exe,[txt-color=#e80000][Ô]visualizar[Ô][/txt-color])


No outro executável você deve pegar o valor do [txt-color=#0000f0]Command()[/txt-color]
Private Sub Form1_Load(...
    Dim opcao As String = Command()

    If opcao = [txt-color=#e80000][Ô]visualizar[Ô][/txt-color] Then
        [txt-color=#007100][ô]Faça isso[/txt-color]
    Else
       [txt-color=#007100] [ô]Faça aquilo[/txt-color]
    End If
End Sub
PERCIFILHO 10/04/2014 07:53:19
#437108
Essa é a maneira que eu uso e funciona:
Basta adaptar ao seu código, pois eu trabalho com o Banco de dados SQL Server:

Citação:

Dim cmdusuarios As New SqlCommand([Ô]Select * From Usuarios Where Usuario Like [ô][Ô] & TxtUsuario.Text & [Ô][ô] And senha Like [ô][Ô] & TxtSenha.Text & [Ô][ô][Ô], conexao)
Dim drusuarios As SqlDataReader
conexao.Open()
cmdusuarios.ExecuteScalar()
drusuarios = cmdusuarios.ExecuteReader
If drusuarios.Read Then
Principal.Show()
Else
MsgBox([Ô]Acesso NÃO permitido[Ô], MsgBoxStyle.Information, [Ô]Acesso proibido[Ô])
End If
PERCIFILHO 11/04/2014 15:38:42
#437207
Valeu, Pegudo, é isso mesmo.

Até mais.
Tópico encerrado , respostas não são mais permitidas
Voltar