USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Erro 3051?
tamanini
não registrado
Postada em 02/07/2004 08:39 hs   
Olá pessoal, estou com um problema em um cliente, no qual aparece o Erro '3051', dizendo que não pode abrir o sistema, isso está acontecendo no XP, alguém sabe me dizer o problema?
 
Obs.: O XP tem cadastrado 2 usuários, o admin e estufas, sendo que foi instalado no admin, neste funciona normal, agora quando tento executar o software pelo usuário estufas, aparece esse erro dizendo que o programa já está aberto, o que eu poderia fazer?
[]'s,
 
Marcelo Tamanini
     
|-tom-|
Pontos: 2843
CATANDUVA
SP - BRASIL
Postada em 02/07/2004 11:01 hs            
olha esse erro é qdo vc esta tentando acessar o banco de dados, vc tera q verificar a sua recordset e olhar se ele esta permitindo q o cliente possa acessar o banco de dados, pq o administrador deve estar definido com acesso exclusivo ao banco de dados.
 
qualquer duvida vc me retorna.
 
Ok

-------------------------------------------------------------------------------------------------------------------------------------------------------------------------

 tom -Catanduva/SP

Analista Sistemas - Visual Basic 6 - VB.NET

"Confiai perpetuamente no Senhor, porque o Senhor Deus é uma Rocha Eterna"

                                                                                              Isaías 26:4  Emoções 

 

     
tamanini
não registrado
Postada em 02/07/2004 11:11 hs   
Para acessar os 2 BD que tem o software, estou fazendo assim:
If Right(App.Path(), 1) <> "" Then
        SetPathExport = App.Path() & "": GetPathAndDb = App.Path() & "DmcHisto.mdb"
        GetPathConfig = App.Path() & "dmcconfig.mdb"
    Else
        GetPathConfig = App.Path() & "dmcconfig.mdb": GetPathAndDb = App.Path() & "DmcHisto.mdb"
        SetPathExport = App.Path()
    End If
    Set DMCConfig = OpenDatabase(GetPathConfig): Set DMCData = OpenDatabase(GetPathAndDb)
    Set rsTBLRun = DMCData.OpenRecordset("SELECT * FROM DMCHistRun WHERE Run = " & True & _
                                       " AND DMCNo <> 0 ORDER BY DMCNo, Data")
    Set rsTBLFin = DMCData.OpenRecordset("SELECT * FROM DMCHistRun WHERE Run = " & False & _
                                       " AND DMCNo <> 0 ORDER BY DMCNo, Data")
 
 
Obs.: Estou usando DAO!
[]'s
 
Marcelo Tamanini
     
|-tom-|
Pontos: 2843
CATANDUVA
SP - BRASIL
Postada em 02/07/2004 11:22 hs            
Vc tem instalado no vb o Service Pack 5 , pq pode ser q a versao do DAO q vc esta utilizando esteja dando , pq pelo codigo q vc me passou me parece estar td correto.
qual versao do acess voce esta utlizando?
 
 
 
ok

-------------------------------------------------------------------------------------------------------------------------------------------------------------------------

 tom -Catanduva/SP

Analista Sistemas - Visual Basic 6 - VB.NET

"Confiai perpetuamente no Senhor, porque o Senhor Deus é uma Rocha Eterna"

                                                                                              Isaías 26:4  Emoções 

 

     
tamanini
não registrado
Postada em 02/07/2004 11:50 hs   
Sim, eu utilizo o SP5, mas o DAO que estou usando é ainda o 3.51 e o acess é a versão 97.
Em outros máquinas com XP, tb tive problemas com um erro '6', mas depois desinstalei e instalei de novo não apareceu mais, nesse que tem dois usuários funcionou normal quando foi instalado no admin.
Ou seja, alguns XP funciona, outros não.
Será por causa da versão antiga com dao 3.51 e acess97?
     
HadesLgc
PINDORAMA
SP - BRASIL
Postada em 02/07/2004 12:26 hs            
tente fazer o logoff do admim antes de executar o sistema no outro usuário, e ve o que aconteçe

Um trabalho se justifica na medida em que ganha experiências e esforços permitindo que outros comecem por onde terminamos, pois a vida é curta demais para que possamos pesquisar e analizar a grande quantidade de informações dispersas em muitas fontes que não podemos consultar Emoções

     
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página