Boa Tarde Amigos

 

Estou com uma duvida cruel, com relacao ao Crystal Reports.Eu sempre instalei meus sistemas por isso nunca entreguei o Setup de Instalacao para ninguem, portanto sempre resolvi os prolemas existentes manualmente, faltava alguma pasta ou banco de dados, eu simplesmente os criava e copiava para o diretorio especifico, sem precisar definir isso no Setup.

 

Foi o que acabou ocorrendo com o Crystal.Bem eu uso o CR7 com o VB6,por comodidade eu sempre criei uma conexao ODBC e chamava essa conexao dentro do Crystal para montar o relatorio.

 

Acontece que agora terei que gerar um Setup para outra pessoa instalar o sistema e ainda estou meio perdido.

 

Minha duvida e essa : Como definir a localizacao do relatorio dentro do Crystal.Quando vou gerar um novo relatorio, ha a opcao "Data File" que eu posso utilizar para definir o caminho de onde se encontra a base de dados.Entretanto a base podera ficar em outro diretorio apos a instalacao.

 

Eu tenho que definir no Setup que a base de dados devera ficar no mesmo caminho de onde eu a peguei da minha maquina?

 

Meu objetivo e claro e fazer com na execucao do sistema, a base de dados, esteja em um caminho conhecido.

 

Acredito que isso nao seja dificil, pois baixei um exemplo com relatorio do Crystal e nao importa o diretorio, onde eu coloque o projeto com o Base de dados, ele sempre funciona.

 

Obrigado e um Abraço

É só vc abrir o seu report no Crystal e no menu: Database / Set Location clicar no "Same as Report" ou seja no mesmo local do report. Claro que os seus reports precisar ficar na mesma pasta onde está o Bdados.

Quanto à fonte Odbc, vc pode criá-la através do próprio vb, ai vc fica livre de intervenção na instalção.

 

Muito obrigado por sua ajuda J.Carlos

 

Eu baixei um exemplo onde nao e usado o ODBC e o relatorio e executado sem problemas, vc sabe comi criar a conexao ODBC via VB?

 

Baixei um exemplo onde nao e usada essa conexao e o relatorio funciona perfeitamente e foi usado o DataFiles para especificar a localizacao da base de dados.

 

Obrigado e um Abraço

Ok, Ventana.

Mas se precisar cirar o odbc é só fazer o seguinte (no caso é pra conectar a um BD SqlServer): poe estas declarações abaixo no general (Declarations) no inicio do form.

 

Private Const REG_SZ = 1    'Constant for a string variable type.
Private Const HKEY_LOCAL_MACHINE = &H80000002

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias _
   "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, _
   phkResult As Long) As Long

Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias _
   "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, _
   ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal _
   cbData As Long) As Long

Private Declare Function RegCloseKey Lib "advapi32.dll" _
   (ByVal hKey As Long) As Long

 

Private sub Cria_odbc ()

Call Cria_DSN
End Sub

 

'Rotina pra cria a Odbc

Private Sub Cria_DSN()
   Dim DataSourceName As String
   Dim DatabaseName As String
   Dim Description As String
   Dim DriverPath As String
   Dim DriverName As String
   Dim MaxUser As String
   Dim Regional As String
   Dim Server As String

   Dim lResult As Long
   Dim hKeyHandle As Long

   'Specify the DSN parameters.

   DataSourceName = "Nomedaminhaodbc"
   DatabaseName = "Nome do Meu Bd"
   Description = "Odbc do meus Sistema"
   DriverPath = "C:WindowsSystem32"
   MaxUser = "sa" 'Usuário do Banco de dados
   Server = "NomedoPCServidor ou IP"
   DriverName = "SQL Server"

   'Create the new DSN key.

   lResult = RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWAREODBCODBC.INI" & _
        DataSourceName, hKeyHandle)

   'Set the values of the new DSN key.

   lResult = RegSetValueEx(hKeyHandle, "Database", 0&, REG_SZ, _
      ByVal DatabaseName, Len(DatabaseName))
   lResult = RegSetValueEx(hKeyHandle, "Description", 0&, REG_SZ, _
      ByVal Description, Len(Description))
   lResult = RegSetValueEx(hKeyHandle, "Driver", 0&, REG_SZ, _
      ByVal DriverPath, Len(DriverPath))
   lResult = RegSetValueEx(hKeyHandle, "MaxUser", 0&, REG_SZ, _
      ByVal MaxUser, Len(MaxUser))
   lResult = RegSetValueEx(hKeyHandle, "Server", 0&, REG_SZ, _
      ByVal Server, Len(Server))

   'Close the new DSN key.

   lResult = RegCloseKey(hKeyHandle)

   'Open ODBC Data Sources key to list the new DSN in the ODBC Manager.
   'Specify the new value.
   'Close the key.

   lResult = RegCreateKey(HKEY_LOCAL_MACHINE, _
      "SOFTWAREODBCODBC.INIODBC Data Sources", hKeyHandle)
   lResult = RegSetValueEx(hKeyHandle, DataSourceName, 0&, REG_SZ, _
      ByVal DriverName, Len(DriverName))
   lResult = RegCloseKey(hKeyHandle)
End Sub

Obrigado Novamente por sua ajuda J.Carlos.

 

Meu banco e em Access e irei avaliar as mudanças necessarias.

Mais uma pergunta.A conexao criada vai aparecer la em ferramentas administrativas, onde eu crio a conexao ODBC?

 

Muito Obrigado

 

Um Abraço