CRIAR SETUP
Bom Dia.
Tenho uma aplicação para o escritório onde trabalho bem simples somente para emitir requisição para abastecimento.
VB6
Crystal Reports XI
Banco de Dados PostGreSQL
na estação de desenvolvimento ela funciona normalmente ao compilar o projeto e tentar executar em outro computador da a msg:
tun-time error 429
activex component can[ô]t criat object
As dll e ocx que utilizei no projeto foram.
crviewer.dll
craxdui.dll
crviewer.DLL
craxddrt.Dll
CRDesignerCtrl.DLL
MSSTDFMT.DLL
scrrun.dll
crtslv.DLL
craxdrt.DLL
Mscomctl.ocx
COMCT332.OCX
MSFLXGRD.OCX
MSCOMM32.OCX
comdlg32.ocx
Tenho uma aplicação para o escritório onde trabalho bem simples somente para emitir requisição para abastecimento.
VB6
Crystal Reports XI
Banco de Dados PostGreSQL
na estação de desenvolvimento ela funciona normalmente ao compilar o projeto e tentar executar em outro computador da a msg:
tun-time error 429
activex component can[ô]t criat object
As dll e ocx que utilizei no projeto foram.
crviewer.dll
craxdui.dll
crviewer.DLL
craxddrt.Dll
CRDesignerCtrl.DLL
MSSTDFMT.DLL
scrrun.dll
crtslv.DLL
craxdrt.DLL
Mscomctl.ocx
COMCT332.OCX
MSFLXGRD.OCX
MSCOMM32.OCX
comdlg32.ocx
A mensagem se refere a falta de alguma OCX ou DLL que existe no projeto e não está registrada na máquina do usuário.
Uma forma de resolver é você criar um instalado do seu sistema e executa-lo na máquina do usuário, isso faz com que todos os componentes do projeto sejam registrado.
Se mesmo assim não resolver, eu criaria um log no programa para ver exatamente onde ele está apresentando o erro e ai sim identificar o componente que está faltando.
Ou criar um tratamento de erro que mostre a linha onde está ocorrendo o erro.
1- Faça assim, numero todas as linhas da SUB que está a presentante o erro.
2 - Adicione no inicio dessa sub o comando [Ô]On error goto saida[Ô]
3 - no final da sub informa da seguinte forma:
Exit sub
Saida:
msgbox [Ô]Erro descricao: [Ô] & err.Description & vbnewline & [Ô]Erro linha: [Ô] & erl,,[Ô]Aviso[Ô]
Isso mostra em qual linha deu o erro.
Uma forma de resolver é você criar um instalado do seu sistema e executa-lo na máquina do usuário, isso faz com que todos os componentes do projeto sejam registrado.
Se mesmo assim não resolver, eu criaria um log no programa para ver exatamente onde ele está apresentando o erro e ai sim identificar o componente que está faltando.
Ou criar um tratamento de erro que mostre a linha onde está ocorrendo o erro.
1- Faça assim, numero todas as linhas da SUB que está a presentante o erro.
2 - Adicione no inicio dessa sub o comando [Ô]On error goto saida[Ô]
3 - no final da sub informa da seguinte forma:
Exit sub
Saida:
msgbox [Ô]Erro descricao: [Ô] & err.Description & vbnewline & [Ô]Erro linha: [Ô] & erl,,[Ô]Aviso[Ô]
Isso mostra em qual linha deu o erro.
Vlw pela ajuda:
fiz conforme comentado sobre numerar as linhas deu erro na linha 2 sendo ela essa:
Sub Imprimir(nome_relatorio As String, vSql As String, nformula As Variant, vformula As Variant, nro_formulas As Long, nCopias As Long, sPage_ini As Long, sPage_fim As Long, sTipo_papel As Integer, sOrientacao As Integer, vImpressora As Variant, Video_Impressora As Boolean, Optional ordenar As String, Optional sub_relat As Integer, Optional nome_sub_relat As Variant)
On Error GoTo Saida
[ô]Desvia Possiveis erros para uma rotina de tratamento
[ô]On Error GoTo ErroImprime
[ô]Inicializa campos de Impressao
1 Dim ConexaoPG As String
[ô]Abre o arquivo .rpt selecionado pelo botão cmdSelecionaArquivo
3 Set Report = Report_Application.OpenReport(nome_relatorio)
fiz conforme comentado sobre numerar as linhas deu erro na linha 2 sendo ela essa:
Sub Imprimir(nome_relatorio As String, vSql As String, nformula As Variant, vformula As Variant, nro_formulas As Long, nCopias As Long, sPage_ini As Long, sPage_fim As Long, sTipo_papel As Integer, sOrientacao As Integer, vImpressora As Variant, Video_Impressora As Boolean, Optional ordenar As String, Optional sub_relat As Integer, Optional nome_sub_relat As Variant)
On Error GoTo Saida
[ô]Desvia Possiveis erros para uma rotina de tratamento
[ô]On Error GoTo ErroImprime
[ô]Inicializa campos de Impressao
1 Dim ConexaoPG As String
[ô]Abre o arquivo .rpt selecionado pelo botão cmdSelecionaArquivo
3 Set Report = Report_Application.OpenReport(nome_relatorio)
A pergunta é você criou o instalador? se sim onde criou este instalador?
Não criei o instalador.
Estou registrando as dll manualmente.
A tela do relatório abre mas os dados do relatório não são exibidos.
Estou registrando as dll manualmente.
A tela do relatório abre mas os dados do relatório não são exibidos.
Olha filho crie um instalador que você não terá problemas, usar o package & deployment wizard e criar o instalador que vai instalar todas dll's e ocx's pra você e se quiser algo mais profissional, basta usar o inno setup.
criei o setup por ele.
Ao executar deu o seguinte erro
msg:
ocorreu uma violação de acesso ao copiar o arquivo.
Ao executar deu o seguinte erro
msg:
ocorreu uma violação de acesso ao copiar o arquivo.
qual e o sistema operacional que voce esta tentando instalar, se for windows 7 tente desativar o UAC.
Boa Tarde.
Ja fiz isso e da o mesmo erro.
Creio que eu esteja errando na criação do setup.
Ja fiz isso e da o mesmo erro.
Creio que eu esteja errando na criação do setup.
Olá,
Tente usa meu gerador de instalações é gratuito, você tem que ter o Inno Setup instalado.
http://www.hcsi.com.br/downloads/hcmaker3.exe
Tente usa meu gerador de instalações é gratuito, você tem que ter o Inno Setup instalado.
http://www.hcsi.com.br/downloads/hcmaker3.exe
Bom Dia.
Ao utilizar Package and Deployment Wizard, ele me gerou este arquivo em anexo:
Ao criar o setup por esse programa, terei que referenciar esas dll?
nunca gerei um instalador para um projeto a unica coisa que eu pretendo seria pegar minha aplicação que é simples tem 5 tela de cadastro e aplicar em 2 computadores aqui onde eu trabalho. Minha intenção não é distribuir a aplicação ou comercializar ela.
Tenho somente 1 relatório e não sei as Dll necessárias para fazer ele abrir em outro computador sem Crystal instalado.
Ao utilizar Package and Deployment Wizard, ele me gerou este arquivo em anexo:
Ao criar o setup por esse programa, terei que referenciar esas dll?
nunca gerei um instalador para um projeto a unica coisa que eu pretendo seria pegar minha aplicação que é simples tem 5 tela de cadastro e aplicar em 2 computadores aqui onde eu trabalho. Minha intenção não é distribuir a aplicação ou comercializar ela.
Tenho somente 1 relatório e não sei as Dll necessárias para fazer ele abrir em outro computador sem Crystal instalado.
Tópico encerrado , respostas não são mais permitidas