SENHA DE BANCO DE DADOS

USUARIO.EXCLUIDOS 29/04/2007 10:40:36
#214245
Pessoal, bom dia!!!
Coloquei uma senha no meu BD (access2000), e gostaria da ajuda de vcs no seguinte:

Em um modulo ficou assim:

Public cnSQL As ADODB.Connection

Sub Main()

Load frmLogin
'--------------------------------------------------------------------
'Aqui começa a verificaçao da existencia do bd e sua conexao via rede
'--------------------------------------------------------------------
Dim Caminho As String
If App.PrevInstance = True Then
   Dim Form As Form
   For Each Form In Forms
      MsgBox "O Sistema já foi Iniciado", vbInformation, ""
      Unload Form
      Set Form = Nothing
   Next Form
   End
End If


Caminho = ReadINI("Caminho", "BD", App.Path & "\CooperNet.ini")
On Error GoTo Finalizar
Set cnSQL = New ADODB.Connection
cnSQL.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & Caminho & ";Jet OLEDB:database Password=mferreira"

MDIForm1.Show
Exit Sub

Finalizar:
MsgBox "Não foi possível localizar o Banco de Dados!" _
& vbCr & "Verifique sua existência no diretório padrão, ou contate o suporte técnico.", vbCritical, "Minas Táxi"
End
Set MDIForm1 = Nothing
Exit Sub
'--------------
End Sub



Quando tento acessar o programa é retornadouma mensagen de senha inválida.

Como posso acressentar a rotina no form. login???
Veja o Código de accesso do form login:

Private Sub Form_Load()
   'Indica o caminho do Banco de Dados e faz a conexao com as tabelas
     Caminho = ReadINI("Caminho", "BD", App.Path & "\CooperNet.ini")
     Set CpnInfo = Workspaces(0).OpenDatabase(Caminho, False, False, ";Password=mferreira")
          
     Data1.DatabaseName = Caminho
     Data1.RecordSource = "Select * From TblCadastroUsuario"
     Data1.Refresh
     
     Data2.DatabaseName = Caminho
     Data2.RecordSource = "Select * From TblCadastroAbertura"
     Data2.Refresh
     
     Data3.DatabaseName = Caminho
     Data3.RecordSource = "Select * From TblCadastroOperador"
     Data3.Refresh
End Sub


Conto com vcs,
Obrigado!

Marcelino Neto
VB6.0
Access 2000
Dao
USUARIO.EXCLUIDOS 29/04/2007 11:11:52
#214247
Qual é exatamente a mensagem de erro que o sistema está retornando? Aparentemente, a forma de passar a senha do banco de dados está correta. Lembrando que a senha é case-sensitive , ou seja, diferencia maiúsculas de minúsculas.
USUARIO.EXCLUIDOS 29/04/2007 11:21:34
#214248
A seguinte mensagen:

Run-Time error '3031':
Senha Inválida

Na seguinte linha:
Set CpnInfo = Workspaces(0).OpenDatabase(Caminho, False, False, ";Password=mferreira")

Ok
ROBIU 30/04/2007 09:28:32
#214311 Resposta escolhida
Amigo, também estava vendo isso ontem e saiu isso do forno:
http://www.vbmania.com.br/vbmania/vbmdetail.php?varID=6643
você ainda não viu?
Tópico encerrado , respostas não são mais permitidas
Voltar