Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
é 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
Carregando comentários...