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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  AdoDC e DataGrid
CSRocha
BRASILIA
DF - BRASIL
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.


     
b.3.d.1.n
SANTO ANDRE
SP - BRASIL
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?

   
b.3.d.1.n
SANTO ANDRE
SP - BRASIL
ENUNCIADA !
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:.
   
Página(s): 1/1    

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