[Resolvido] no Modulo

[Anakia 0]

é o seguinte eu to fazendo o login tudo certinho, so que a conexão esta no mesmo codigo do login eu gostaria de colocar a conexão no modulo que se chama cnnBiblio.Bas copmo eu faço isso?

 

 

Este ai e o codigo q eu uso para verificar no banco de dados se existe o registro...

mais eu queria tirar esta conexão e colocar no Modulo (cnnBiblio.bas), e depois que eu colocar como eu vou puxar no codigo de logim de novo?

Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=BANCO.mdb;Persist Security Info=False"

cn.Open

Set rs = New ADODB.Recordset
sql = "select * from tb_login where nome = '" & txtNome.Text & "' and senha = '" & txtSenha.Text & "'"
rs.Open sql, cn, 3, 3

If rs.EOF Then
MsgBox "Nome de usuario ou senha incorretos", vbExclamation, "Erro"

Else
Unload Me
frmBPR.Show

End If

rs.Close

[scorpio 7]

Declara as variaveis como globais lá no modulo, dai você pode criar uma sub 'Abrir' com isso

Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=BANCO.mdb;Persist Security Info=False"

cn.Open

Set rs = New ADODB.Recordset

Dai toda vez que você precisar abrir você chama a sub.

 

você pode até criar também uma função para fazer o login, passa pra ela a senha e o usuário dai retorna TRUE/FALSE se estiver CORRETO/ERRADO

 

mas dai fica com você!

 

 

Flw

[Anakia 0]

Como assim eu chamo a Sub?

[Claudio Neto 3]

Você vai criar uma sub no modulo, como o Scorpio falou.

 

Ai no seu, por exemplo form_load, você põe "call OnomeDAsubQUEcriou"

[Anakia 0]

Eu nao sei como que cria esta Sub...

tem como me explicar passo-a-passo como se cria?

[scorpio 7]

Global cn as ADODB.Connection
Global rs as ADODB.Recordset

Public Sub AbrirBanco() '<--- SUB
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=BANCO.mdb;Persist Security Info=False"

cn.Open

Set rs = New ADODB.Recordset
End Sub

Quando for chamar, por exemplo no form_load, use

call AbrirBanco()

[Anakia 0]

Obrigado Scorpio esta tudo resolvido Vlw...