CONFIGURACAO DO DATA ENVIRONMENT
Bom pessoal,
Em um programa que utiliza o Data Environment e os relatórios do data report no próprio VB6 não consigo que em um outro determinado computador o programa detecte automaticamente o Banco de dados para emitir os data report[ô]s... não gostaria de usar arquivos ini, pois assim quaquer malandrinho poderia querer dar pau no programa... se fosse possÃvel eu gostaria de saber como fazer via código para configurar o caminho do banco de dados para que o Data Environment buscasse o arquivo do banco de dados na mesma pasta do aplicativo.
Espero ter exclarecido o meu problema. e se alguém puder ajudar ficaria muito grato.
Carlos.
Em um programa que utiliza o Data Environment e os relatórios do data report no próprio VB6 não consigo que em um outro determinado computador o programa detecte automaticamente o Banco de dados para emitir os data report[ô]s... não gostaria de usar arquivos ini, pois assim quaquer malandrinho poderia querer dar pau no programa... se fosse possÃvel eu gostaria de saber como fazer via código para configurar o caminho do banco de dados para que o Data Environment buscasse o arquivo do banco de dados na mesma pasta do aplicativo.
Espero ter exclarecido o meu problema. e se alguém puder ajudar ficaria muito grato.
Carlos.
Sugiro que não utilize o DATA ENVIRONMENT para alimentar os relatórios.
Utilize um RECORDSET conectado / desconectado.
Utilize um RECORDSET conectado / desconectado.
Seguindo, o que o TECLA sugeriu, olhe o link abaixo, que existe com detalhes, como vc pode fazer usando um RECORDSET para imprimir seus reports. Veja:
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=Abrir&varID=330682&varPagina=1#bottom
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=Abrir&varID=330682&varPagina=1#bottom
Tambem aconselho a não usar o Dataenviroment. Veja minha resposta neste tópico
Mas se preferir, coloque o código no evento inicialize do DataEnvironment:
Segue um exemplo anexo:
Mas se preferir, coloque o código no evento inicialize do DataEnvironment:
Private Sub DataEnvironment_Initialize()
Dim Caminho As String
Caminho = App.Path & [Ô]\Teste.mdb[Ô]
Dataenvironment1.cn.Open Caminho
End Sub
Segue um exemplo anexo:
Tópico encerrado , respostas não são mais permitidas