|
|
Postada em 08/02/2007 10:12 hs
Não consigo - já tentei mil vezes - fazer a conexão via código de um adodc a um mdb com senha. A conexão normal eu faço numa rotina no módulo Main():
Set cnCMM = New ADODB.Connection
With cnCMM
.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "ase_dados.mdb;Jet " & "OLEDB:Database Password=minhasenha;"
End With
Mas quando tento criar a conexão no AdoDc, via propriedades, me dá um erro de que o banco já está aberto por outro usuário (seria a conexão aberto, que é feita no form Principal (tela inicial). Isso acontece mesmo que eu não inicialize o sistema, ou seja, com a conexão fechada.
E quanto ao DataGrid? Funciona igual do velho DBGrid?
Aguardo sugestões.
|
|
|
|
|
|
|
|
Postada em 08/02/2007 12:27 hs
'Modulo
Global DB As ADODB.Connection
--------------------------------------------------------------------------------------------------
Sub ABRIR_BANCO()
Set DB = New ADODB.Connection
DB.ConnectionString = "DSN=CADCLI_ADO" (crie uma Fonte de Dados)
DB.Open
End Sub
--------------------------------------------------------------------------------------------------
'DataGrid
Sub CARREGA_GRID(FORMU As Form)
On Error GoTo ERRO_GRID
SQL = "SELECT AREA AS A, LOGIN AS B, IP AS C FROM USUARIOS ORDER BY AREA, LOGIN "
FORMU.Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "d_teste.mdb;Jet OLEDB:Database Password=sua senha;"
FORMU.Adodc1.CommandType = adCmdText
FORMU.Adodc1.RecordSource = SQL
FORMU.Adodc1.Refresh
Exit Sub
ERRO_GRID:
MsgBox "Não foi possível carregar a Lista de Usuários..." & vbCrLf & "por favor, contate o Administrador do Sistema", vbCritical, "DataGrid"
frmLISTUSER.Hide
Exit Sub
End Sub
Private Sub DataGrid1_GotFocus()
Adodc1.Refresh
End Sub
Private Sub Form_Load()
CARREGA_GRID frmLISTUSER
End Sub
.:Rodrigo Bedin:.
|
|
|
|
CSRocha
|
BRASILIA
DF - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 08/02/2007 12:49 hs
Vou testar, Rodrigo. Estava já disposto a desistir,tirando a senha do DB.
Espero que funcione. Postarei resultado.
|
|
|
|
CSRocha
|
BRASILIA
DF - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 08/02/2007 13:35 hs
Estou confuso nessa criação de DSN. Uso a conexão padrão e não tenho conhecimento dos aquivos de configuração de segurança de Access.
Depois não entendi a rotina no FormLoad: esse form LISTUSER seria criado automaticamente se a Fonte de Dados estivesse correta?
|
|
|
|
|
|
Postada em 09/02/2007 00:24 hs
Fonte de dados ODBC:
Crie essa fonte em "Ferramentas Administrativas" no Painel de Controle, no caso "CADCLI_ADO" e selecione seu banco de dados, no caso é "bd_teste.mdb" e entre com sua senha
-----------------------------------------------------------------------------------------------------
Qnt ao frmLISTUSER, perceba q crio uma rotina de Carregamento do Grid (CARREGA_GRID), apenas faço a chamada dela para q seja alimentado seu Grid.
-----------------------------------------------------------------------------------------------------
obs: Referencia - Microsoft ActiveX Data Objetcs 2.7 Library
Proriedade do DataGrid - DataSource = Adodc1
-----------------------------------------------------------------------------------------------------
ou ainda:
ADO
Sub ADOAbrirBDProtegido()
Dim CNN As New ADODB.Connection
CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path &"SeuBD.MDB;Jet " & _
"OLEDB:Database Password=senha;"
CNN.Close
End Sub
Onde "senha" é a sua senha. Quer dizer, subistitua "senha" pela senha do banco de dados.
-----------------------------------------------------------------------------------------------------
Recomendo:
http://www.macoratti.net/dica46.htm
http://www.macoratti.net/vb6grids.htm
Espero ter adjudado!!!
.:Rodrigo Bedin:.
|
|
|
|
