DATA REPORT - INVALID DATA SOURCE
Pessoal, boa noite
Fiz um pequeno sistema em VB6 + BD Access com relatórios usando o Data Report
Na minha máquina uso o Windows XP SP2
Para Compilar o sistema usei o INNO SETUP
Tudo funcionando perfeitamente.
Quando instalei o sistema na máquina do Cliente que tem Windows 7 SP1,
fiz os seguintes procedimentos:
. Desativei o UAC
. Ativei o modo de compatibilidade para o sistema trabalhar com windows XP SP2
. Instalei o sistema [Ô]Executar como Administrador[Ô]
. Pronto, o sistema foi instalado, está abrindo normalmente, faço lançamentos de incluir, alterar, excluir
mas quando clico no botão de imprimir aparece a mensagem [Ô]Invalid Data Source[Ô].
Clico em OK na caixa de mensagem e o sistema FECHA TODO.
Por favor gostaria da ajuda de vocês, para resolver este problema.
Obrigado
Fiz um pequeno sistema em VB6 + BD Access com relatórios usando o Data Report
Na minha máquina uso o Windows XP SP2
Para Compilar o sistema usei o INNO SETUP
Tudo funcionando perfeitamente.
Quando instalei o sistema na máquina do Cliente que tem Windows 7 SP1,
fiz os seguintes procedimentos:
. Desativei o UAC
. Ativei o modo de compatibilidade para o sistema trabalhar com windows XP SP2
. Instalei o sistema [Ô]Executar como Administrador[Ô]
. Pronto, o sistema foi instalado, está abrindo normalmente, faço lançamentos de incluir, alterar, excluir
mas quando clico no botão de imprimir aparece a mensagem [Ô]Invalid Data Source[Ô].
Clico em OK na caixa de mensagem e o sistema FECHA TODO.
Por favor gostaria da ajuda de vocês, para resolver este problema.
Obrigado
Pessoal, por favor, preciso da ajuda de vocês, segue o código que fiz para chamar o dataenvironment via código
Private Sub Command1_Click()
If DataEnvironment1.Connection1.State = 1 Then
DataEnvironment1.Connection1.Close
End If
With DataEnvironment1.Connection1
.ConnectionString = CON [ô]nome da conexão
.CursorLocation = adUseClient
.Open
End With
DataEnvironment1.Command2
rptPagar.Show 1
End Sub
Private Sub Command1_Click()
If DataEnvironment1.Connection1.State = 1 Then
DataEnvironment1.Connection1.Close
End If
With DataEnvironment1.Connection1
.ConnectionString = CON [ô]nome da conexão
.CursorLocation = adUseClient
.Open
End With
DataEnvironment1.Command2
rptPagar.Show 1
End Sub
Pelo que entendi, no IF você está fechando a conexão e logo abaixo está tentando utiliza-la. Tira esse IF e tenta novamente, deve dar certo.
Aconselho fechar a conexão depois que o processo fizer o que precisa.
Aconselho fechar a conexão depois que o processo fizer o que precisa.
Faça seu login para responder