NAO FOI POSSIVEL ENCONTRAR ISAM INSTALAVEL

USUARIO.EXCLUIDOS 12/09/2006 22:19:38
#171069
Pessoal, seguindo uma dica que copiei aqui mesmo no site, fiz um projetinho para fazer bakcup em bases de dados, porem o este erro aparece:

"Não foi possível encontrar ISAM instalável"

Já fiz referencia a JRO, mas o erro persiste.
Também ja atualizei para p SP6.

Qual seria o erro? Segue o código:

Option Explicit

Dim Origem As String
Dim Destino As String
Dim sProv As String
Dim objJet As JRO.JetEngine


Private Sub cmdCompact_Click()
    
    sProv = "Microsoft.Jet.OLEDB.5.0;DataSource="
    Origem = App.Path & IIf(Right$(App.Path, 1) = "\", "", "") & ".mdb"
    Destino = "D:\BackUp\" & Format$(Now, "ddmmyyyy") & ".mdb"
    Set objJet = New JRO.JetEngine
    objJet.CompactDatabase sProv & Origem, sProv & Destino
    Set objJet = Nothing
    Origem = Empty
    Destino = Empty
    sProv = Empty
End Sub


Private Sub Form_Load()
Origem = App.Path & IIf(Right$(App.Path, 1) = "\", "", "") & ".mdb"

'mostra o caminho no textbox
Text1.Text = Origem
End Sub


Agradeço a todos.
HUGOSSOUZA 13/09/2006 06:58:02
#171088
na hora que instala o vb6 na parte de custom tem uma opção de isam.
verifica se essa opção ta selecionada na hora da instalação.
USUARIO.EXCLUIDOS 13/09/2006 10:01:59
#171146
Cara tive um problema parecido aqui, resolvi instalando o BDE que ta disponivel em varios sites na net.
Tópico encerrado , respostas não são mais permitidas
Voltar