[Resolvido]Dúvidas no sysbase II

Olá,
depois de registrar a dll nslock15vb5.ocx não consegui prosseguir.
Aparece uma mensagem informando que não existe a tabela "REGISTRA_APP".
Segue o link da imagem de erro:
Mensagem de erro

Não encontrei a tabela "REGISTRA_APP" no sistema.
E no formulário "F_Registro" no controle "S_CODE" não aparece o número do software.

Ao abrir o programa aparece esta mensagem:
Mensagem de erro 2

Se clico no botão "Continuar sem registrar" aparece esta mensagem:
Mensagem de erro 3

Não encontrei a tabela "REGISTRA_APP" no sistema.
E no formulário "F_Registro" no controle "S_CODE" não aparece o número do software.

O Comando enviar, deve ser adpatado conforme sua necessidade, ele não está totalmente pronto pois depende de como voce pretenderá que o sistema envie o Código a voce,

A tbl Registra_App seria para a venda em mais de uma copia ao mesmo comprador, e esta facilidade não foi concluida ainda por mim.... Basta excluir o comando e adaptar conforme sua necessidade


Quanto a outra mensagem fe erro, algumas vezes eu a percebi aqui tambem, resolvi desabilitando o UAC e resetando o windows.

Não sei realmente o motivo da mesma, mas deve ter algo haver com o WIN7.

Verei se ajusto o botão Enviar, e atualizo o exemplo.


cumprimentos.

As bibliotecas utilizadas no exemplo, segundo o criador da OCX, não funcionam muito corretamente no Windows 7 (ActiveLock16vb5.ocx)

Ele enviou-me uma versão atualizada: ActiveLockvb15vb6.ocx

Assim que eu tiver adaptado efetuado a questão do botão enviar, posto o exemplo e aviso.

Cumprimentos.

Ok,
Demorei um pouco para habilitar a ocx no meu W7, mas depois consegui desabilitando o UAC.
Olhei outros exemplos com ocx e estou estudando, mas tenho pouco tempo para trabalhar em cima das ideias.

Obrigado pela atenção.

Se nào me engano o modelo atualizado do sysbase ja desativa o UAC, depois posto o novo exemplo

Cumprimentos.

Sim, utilizei o form do SysBase para desabilitar o UAC do meu W7
e também utilizei o form de referências do SysBase para habilitar e registrar a ocx.
Funcionou perfeitamente...
Só que depois ocorreram aqueles erros que mencionei.
Vou testar em outros computadores e ver se ocorre o mesmo erro.
Obrigado pela atenção.

Estarei logo postando o modelo com o Nslock atualizado (nova versão)

cumprimentos.

Tai amigão.. a questao do registro de licencas, objeto da tbl Registra_APP
e o ActiveLock atualizado

http://maximoaccess.forumeiros.com/t11194-sistema-base-para-confeccao-de-sistemas#94561

Cumprimentos.

Beleza, vou baixar e testar.
Mas poderia apenas ter dado o caminho para fazer, aprender a fazer também é bom...
Vou estudar como foi aplicado.
Obrigado.

Em realidade eu tambem necessitava disso em meus projetos... tinha que fazer... Esta facilidade das licencas veio no exemplo original enviado-me pelo desenvolvedor do ActiveX, porem faltava a tabela Registro_APP.... Então a adptei conforme achei mais conveniente.... Sugestões serão sempre bem vindas.

Cumprimentos.

Segue os erros que estão dando no meu sistema.
Espero se possível que me ajudem.
Abraços



RELATÓRIO DE ERROS
----------------------------------------
Data do Erro : 18/05/2013 17:08:57
Numero do Erro : 26001
Descrilão do Erro: Failed to set registry value Key: '-2147483646',Section: 'SOFTWARE\Nelco\76335A177633406A510B31\6E3F5B0C41267C4B530D',Key: '7D3D4101582E7B4149' to value: ''
Numero do Erro : F_REGISTRO
Nome Procedimento: Form_Open
Nome do Usuario :
----------------------------------------
Data do Erro : 18/05/2013 17:09:03
Numero do Erro : 26001
Descrilão do Erro: Failed to set registry value Key: '-2147483646',Section: 'SOFTWARE\Nelco\7C255C27563055\6E3F5B0C41267C4B530D',Key: '63354D004522444D5F081F3956' to value: ''
Numero do Erro : F_REGISTRO
Nome Procedimento: SetFormIcon
Nome do Usuario :
----------------------------------------
Data do Erro : 18/05/2013 17:13:36
Numero do Erro : 26001
Descrilão do Erro: Failed to set registry value Key: '-2147483646',Section: 'SOFTWARE\Nelco\76335A177633406A510B31\6E3F5B0C41267C4B530D',Key: '7D3D4101582E7B4149' to value: ''
Numero do Erro : F_REGISTRO
Nome Procedimento: Form_Open
Nome do Usuario :
----------------------------------------
Data do Erro : 18/05/2013 17:13:41
Numero do Erro : 26001
Descrilão do Erro: Failed to set registry value Key: '-2147483646',Section: 'SOFTWARE\Nelco\7C255C27563055\6E3F5B0C41267C4B530D',Key: '63354D004522444D5F081F3956' to value: ''
Numero do Erro : F_REGISTRO
Nome Procedimento: SetFormIcon
Nome do Usuario :
----------------------------------------

Boa noite amigo,
esse erro ocorre porque a OCX (nslock) não foi registrada de forma correta.
Dentro do arquivo que você baixou tem a pasta “Documentação”, dentro dela tem dois arquivos, leia-os e siga os passos conforme estão descritos ali. Esses passos servem para registrar a OCX. Faça um teste e depois retorne.
Caso não consiga resolver, poste aqui novamente...
Particularmente, eu demorei um pouco para conseguir registrar, mas depois funcionou muito bem...

Arquivo do Repositório Atualizado

Segue imagens do erro e das referencias.
Foram feitas as suas sugestões.
Abraços

Qual sistema operacional?

Cumprimentos.

É a versão do pacote do Office.
O arquivo que está sendo solicitado pelo módulo não está no local indicado.
Qual é a versão do Office (2010/2013)?
E o Windows (7 32bits/64bits; win8)?

Verifique a versão do seu Office e faça as seguintes alterações:

---
Public Function fncConfig()
CaminhoReg = "HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Access\File MRU\"
'Aqui você deve alterar para este valor (se for access 2010):
'CaminhoReg = "HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Access\File MRU\"
'Aqui você deve alterar para este valor (se for access 2013):
'CaminhoReg = "HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Access\File MRU\"
'Armazenar configurações do cliente na tabela tblConfig
'Só altera se o campo bdAberto estiver configurado como falso, pois significa que o aplicativo foi fechado corretamente
If DLookup("bdaberto", "tblConfig") = 0 Then
If Application.Version = "12.0" Then
CurrentDb.Execute "UPDATE tblConfig SET SizeofMRUFileList = " & Application.GetOption("Size of MRU File List")
Else
Set reg = CreateObject("wscript.shell")
On Error Resume Next
MRU = reg.RegRead(CaminhoReg & "Max Quick Access Display")
If err.Number Then
MRU = 4
reg.RegWrite CaminhoReg & "Max Quick Access Display", MRU, "REG_DWORD"
err.Clear
End If
CurrentDb.Execute "UPDATE tblConfig SET SizeofMRUFileList = " & MRU
Set reg = Nothing
End If
CurrentDb.Execute "UPDATE tblConfig SET ConfirmActionQueries = " & Application.GetOption("Confirm Action Queries")
CurrentDb.Execute "UPDATE tblConfig SET bdAberto = -1 "
End If

If Application.Version = "12.0" Then
'Aqui você deve alterar para este valor (se for access 2010):
'If Application.Version = "14.0" Then
'Aqui você deve alterar para este valor (se for access 2013):
'If Application.Version = "15.0" Then

If Application.GetOption("Size of MRU File List") > 0 Then Application.SetOption "Size of MRU File List", 0
Else
Set reg = CreateObject("wscript.shell")
MRU = reg.RegRead(CaminhoReg & "Max Quick Access Display")
If MRU > 0 Then reg.RegWrite CaminhoReg & "Max Quick Access Display", 0, "REG_DWORD"
Set reg = Nothing
End If

If Application.GetOption("Confirm Action Queries") = True Then Application.SetOption "Confirm Action Queries", False

End Function
---

Altere os valores, feche e reabra o aplicativo...
Siga os passos e vualááá...

Depois nos conte...

Office 2010
Win 8
Todos 32

Estarei fazendo as mudanças nas linhas de codigo

Abraços

O sistema abre, mas dá os seguintes erros.
E na tela de registro os campos ficam vazios.
Abraços e obrigado pela colaboração.
Tão logo darei uma grande colaboração para o forum
Já com a base funcionando.

RELATÓRIO DE ERROS
----------------------------------------
Data do Erro : 19/05/2013 18:15:26
Numero do Erro : 75
Descrilão do Erro: Erro de acesso a caminho/arquivo
Numero do Erro : mdlRegstroDll
Nome Procedimento: RegistraBiblioteca
Nome do Usuario :
----------------------------------------
Data do Erro : 19/05/2013 18:15:29
Numero do Erro : 75
Descrilão do Erro: Erro de acesso a caminho/arquivo
Numero do Erro : mdlRegstroDll
Nome Procedimento: RegistraBiblioteca
Nome do Usuario :
----------------------------------------
Data do Erro : 19/05/2013 18:15:35
Numero do Erro : 26001
Descrilão do Erro: Failed to set registry value Key: '-2147483646',Section: 'SOFTWARE\Nelco\76335A177633406A510B31\6E3F5B0C41267C4B530D',Key: '7D3D4101582E7B4149' to value: ''
Numero do Erro : F_Registro
Nome Procedimento: Form_Open
Nome do Usuario :
----------------------------------------
Data do Erro : 19/05/2013 18:15:41
Numero do Erro : 26001
Descrilão do Erro: Failed to set registry value Key: '-2147483646',Section: 'SOFTWARE\Nelco\7C255C27563055\6E3F5B0C41267C4B530D',Key: '63354D004522444D5F081F3956' to value: ''
Numero do Erro : F_Registro
Nome Procedimento: SetFormIcon
Nome do Usuario :
----------------------------------------
Data do Erro : 19/05/2013 18:15:47
Numero do Erro : 26001
Descrilão do Erro: Failed to set registry value Key: '-2147483646',Section: 'SOFTWARE\Nelco\7C255C27563055\6E3F5B0C41267C4B530D',Key: '633D5C1165365E60511231' to value: ''
Numero do Erro : F_Registro
Nome Procedimento: cmdCancel_Click
Nome do Usuario :
----------------------------------------
Data do Erro : 19/05/2013 18:15:51
Numero do Erro : 26001
Descrilão do Erro: Failed to set registry value Key: '-2147483646',Section: 'SOFTWARE\Nelco\7C255C27563055\6E3F5B0C41267C4B530D',Key: '633D5C1165365E60511231' to value: ''
Numero do Erro : F_Registro
Nome Procedimento: cmdCancel_Click
Nome do Usuario :
----------------------------------------

Esta biblioteca atende perfeitamente ao Windows 7... para o Windows 8 o desenvolverdor ainda não lançou...

Deves implantar outra forma de registro..

Temos uma outra forma no repositório.


Cumprimentos.

Rafael, testou no windows 8?

Cumprimentos.

Desculpe a demora...

No Win8 não testei...

Apenas no Win7 com office 2010 e no office 2013, pois mudam os diretórios, mas ainda assim encontrei um erro...
ele não encontra o caminho indicado.

Posteriormente lhe envio os logs de erros... e a solução se eu resolver...

o problema é que o system32 não deixa copiar para la e nem registrar.
Parece que o win 8 bloqueia.

ja tentou copiar o nsLock para a pasta e registrar através do regsvr32?

Cumprimentos.

Sim a ocx está no system32, mas não registra com o comando regsvr32

Que mensagem de erro emite?


Cumprimentos.

OFFICE 2010 64 BITS E WIN 8 64 BITS


RELATÓRIO DE ERROS
----------------------------------------
Data do Erro     : 11/07/2013 12:37:21
Numero do Erro   : 75
Descrilão do Erro: Erro de acesso a caminho/arquivo
Numero do Erro   : mdlRegstroDll
Nome Procedimento: RegistraBiblioteca
Nome do Usuario  :
----------------------------------------
Data do Erro     : 11/07/2013 12:37:23
Numero do Erro   : 75
Descrilão do Erro: Erro de acesso a caminho/arquivo
Numero do Erro   : mdlRegstroDll
Nome Procedimento: RegistraBiblioteca
Nome do Usuario  :
----------------------------------------
Data do Erro     : 11/07/2013 12:37:30
Numero do Erro   : 438
Descrilão do Erro: O objeto não aceita esta propriedade ou método
Numero do Erro   : F_Registro
Nome Procedimento: Form_Open
Nome do Usuario  :
----------------------------------------
Data do Erro     : 11/07/2013 12:37:32
Numero do Erro   : 438
Descrilão do Erro: O objeto não aceita esta propriedade ou método
Numero do Erro   : F_Registro
Nome Procedimento: SetFormIcon

Boas Amigão... as dll's são copiadas para pastas dentro do windows..

Se Windows XP >>> System32
Se Windows 7  >>>> SysWow64.

Agora no Windows 8 não sei qual pasta as dll's são registradas...
Se observar o mdlRegstroDll np Procedimento: RegistraBiblioteca

a Função checa a versão do Windows... não sei se esta função consegue identificar a versão Windows 8... deves colocar ponto de interrupção na função e observar no procedimento checaWin... se a variável que guarda a versão do windows.. o que ela apresenta...
O erro deve estar ai... pois a função direciona para dois IF's, um para o xp e outro para o Win 8... como não tenho o 8 não tenho como testar.


Cumprimentos.

Olá,
a pasta de arquivamento do win 7 é a mesma do win8 (SysWOW64)
em MostraVersao me vem o resultado Windows 8 Pro

Mas o strDestino fica vazio (é isso mesmo)
Dai na linha 170 não deixa copiar para a pasta

Abraços

Basta no módulo acrescentar o if correspondente à versão Windows 8

Option Compare Database

'---------------------------------------------------------------------------------------
' Procedure     : RegistraBiblioteca
' Author        : Harysohn P. Pina (PILOTO) - Harysohn@hotmail.com
' Fórum         : Fórum Máximo Access -  http://maximoaccess.forumeiros.com/
' Date          : 23/1/2014
' Comentários   : Registra Dll e Ocx em WinXP e Win7 e ativa referências
'---------------------------------------------------------------------------------------
Function RegistraBiblioteca()
      '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
10    On Error GoTo TrataErro
      Dim NomeProcedimento As String
20        NomeProcedimento = "RegistraBiblioteca"
          'Adiciona o nome do procedimento à função
30        PegaProcedimento (NomeProcedimento)
      '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      Dim varFile As Variant, nRef As String, varPath As String
      Dim ref As Reference
      Dim FSO, Pasta, Arquivo
      Dim StrDestino As String

      'Checa a tabela para verificar se as referências foram instaladas
40    If DCount("*", "tblSistemasDependentes", "SistemaDependente = 'Registro de Bibliotecas' And Instalado = True") = 1 Then Exit Function
50        MsgBox "Instalando Referências", vbInformation, "INSTALAÇÃO REFERÊNCIAS"
60    Set FSO = CreateObject("Scripting.FileSystemObject")
70    Set Pasta = FSO.GetFolder(CurrentProject.Path & "\dll\")

      'verifica qual o sistema operacional
80    If MostraVersao = "Microsoft Windows XP" Then
90            StrDestino = "C:\Windows\System32"
100   ElseIf Left(MostraVersao, 9) = "Windows 7" Then
110           StrDestino = "C:\Windows\SysWow64"
120   ElseIf Left(MostraVersao, 9) = "Windows 8 Pro" Then
130           StrDestino = "C:\Windows\SysWow64"
140   End If

          'Busca pelos arquivos de bibliotecas dentro da pasta dll na pasta do sistema
150       For Each Arquivo In Pasta.Files
160           nRef = Arquivo
              'Carrega a variável com o caminho do Windows e o nome da biblioteca
170           varPath = StrDestino & Right(nRef, Len(nRef) - Len(Pasta))
              'Se a biblioteca já está dentro da pasta System32 no windows não é instalada
180           If Len(Dir(varPath, vbDirectory) & "") = 0 Then
                  'Copia a biblioteca para a pasta system32 no windows
190               FileCopy nRef, varPath
                  'Registra a Dll
200               shell "regsvr32.exe /s """ & varPath & """ , vbMinimizedNoFocus ', vbHide ', vbMinimizedNoFocus ', vbNormalFocus"
                      'Pesquisa pelas referencias
210                   For Each ref In References
220                       If ref.FullPath = nRef Then
230                           varPath = "Sim"
240                       End If
250                   Next ref
260                       If varPath = "Sim" Then
                          'MsgBox "Referência já existe"
270                       Else
                              'Adiciona a referência no projeto
280                           Set ref = References.AddFromFile(nRef)
                              'MsgBox "Referência adicionada: " & ref.FullPath, vbOKOnly + vbInformation, "SUCESSO"
290                       End If
300           End If
      'Continuar:
310       Next Arquivo
              'Atualiza a tabela para marcar como instalado as referências
320           CurrentDb.Execute "UPDATE tblSistemasDependentes set Instalado =1 WHERE SistemaDependente='Registro de Bibliotecas'"
330   Exit Function
      '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      'Tratamento de Erros
      '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Exit_TrataErro:
340       DoCmd.Hourglass False
350       DoCmd.Echo True
360   Exit Function
TrataErro:
370       Select Case err.Number
        Case 40179
380         Resume Next
390     Case -2147319779
400         Resume Next
410     Case 32813
420         Resume Next
430     Case Else
440         DoCmd.Hourglass False
450         DoCmd.Echo True
            'Chama a função global de tratamento de erros
460           GlobalErrHandler ("mdlRegstroDll")
470     End Select
End Function

cumprimentos

eu já havia feito isto, não funcionou.
o strDestino fica vazio (é isso mesmo)
na linha abaixo é que para o código.
FileCopy nRef, varPath

Será que teremos que ter privilegio de administrador para fazer copia para a pasta sysWOW64???
Abraços

Creio que não.. se a variável não está sendo carregada é porque não está direcionando ao If correto, coloque pontos de interrupcão nas linhas que seguem abaixo...

   ElseIf Left(MostraVersao, 9) = "Windows 8 Pro" Then
           StrDestino = "C:\Windows\SysWow64"
  End If
 Ao ser executado a primeira linha... Pouse o mouse sobre a funçào mostraVersao e veja o que está contido na mesma...
Pode ser que o texto não seja igual a "Windows 8 Pro", neste caso corrija a mesma para ficar igual ao que está navariável da função mostraVersao...

Se estiver igual carreha a variável StrDestino com o caminho correto.


Cumprimentos.

E muito estranho não carregar, pois tudo está certo. Inclusive o Windows 8 pro que tirei do sistema ao carregar o mostraversão. Estou procurando no site do office sobre o sistema 64 bits.
Abraços

Observe esta linha:

ElseIf Left(MostraVersao, 9) = "Windows 8 Pro" Then

veja que checo apenas as primeiras 9 letras da variável Mostra Versão.... Quando na verdade tenho que checar 13... pois a ocorrência Windows 8 Pro tem 13 caracteres, incluindo espaços.

ElseIf Left(MostraVersao, 13) = "Windows 8 Pro" Then

 

Cumprimentos.