Solicitando Login E Senha

[Rickardo]

acabei de fazer um aplicativo, porem agora quero fazer com q na abertura do sistema, ele peça o nome de usuario e senha.

Como faço isso..

alguém sabe onde tem um tutorial passo a passo ensinando.

Grato.

Espero retorno..

Rickardo Costa

rickardocc@ig.com.br

[Rickardo]

eu fiz assim mais não deu certo

criei um formulario com os seguintes itens

label1;

name=lbl1

caption=Nome

Label2;

name = lbl2

capition = Senha

text1;

name = txtnome

text2;

name = txtsenha

command1;

name = cmdOk

caption = &Ok

command2;

name = cmdcancel

caption = &cancelar

nos Botõe eu coloquei os seguintes codigos;

Private Sub cmdCancel_Click()  -----> Botão Cancelar

    cn.Close

    Unload Me

End Sub

---------------------------------------------------------------

Private Sub cmdOk_Click()-------------> Botão Ok

Set rs = CreateObject("ADODB.Recordset")

With rs

.Open "select nome, senha, codusuario from usuarios where nome='" & txtUsuario.Text & "' and senha='" & txtsenha.Text & "'", cn, adOpenKeyset, adLockOptimistic

If .RecordCount = 0 Then

MsgBox "Usuário ou senha inválida!", vbExclamation, "Erro"

Else

codigo = CLng(rs("codusuario"))

frmPrincipal.Show

Unload Me

End If

.Close

End With

End Sub

Ps. estou usando um banco de dados Access;

NOme do bd. = CENTER.MDB

TABELA = USUARIO

CAMPOS DA TABELA USUARIO;

CODUSUARIO= Auto num.= chave primaria

NOME = TEXT = TAM. 25

SENHA = TEXT = TAM. 8

ACHEI ESSE CÓDIGO EM UM OUTRO FORUN, TENTEI ADAPTA-LO PARA O MEU CASO, POREM NÃO ESTOU CONSEGUINDO.

ONDE EU ERREI?????

ESPERO RETORNO..

[William Rodrigues]

Brother...

Mude isso:

.Open "select nome, senha, codusuario from usuarios where nome='" & txtUsuario.Text & "' 

para:

.Open "select nome, senha, codusuario from usuarios where nome='" & txtNome.Text & "' 

Abraços,

William Rodrigues

[Rickardo]

Brother...

Mude isso:

.Open "select nome, senha, codusuario from usuarios where nome='" & txtUsuario.Text & "' 

para:

.Open "select nome, senha, codusuario from usuarios where nome='" & txtNome.Text & "' 

Abraços,

William Rodrigues

ae

eu mudei mas na hora de compilar

ta dando um erro ...

bem na seguinte linha..;

Private Sub cmdOk_Click()

Set rs = CreateObject("ADODB.Recordset") -----> bem no "rs"

o q significa isso????

[Bicicleta]

Ai, to começando em VB, não seria assim:

Set rs = New ADODB.RecordSet

???

Desculpa se eu falei bobagem, mais acho que é assim!

[Graymalkin]

Rickardo, você tem certeza de que tem o ADO instalado? Se não tiver, tente instalá-lo novamente (se quiser baixar: http://www.graymalkin.globalhosts.com.br/data.asp).

Bicicleta, ambos os modos funcionam, com algumas diferenças: no primeiro caso (do CreateObject) o objeto ADODB.Recordset é criado na hora e independe da versão instalada do ADO, enquanto que no exemplo que você deu é necessário marcá-lo na opção References do menu Project e ele fica dependente da versão marcada; outra diferença é que no primeiro caso quando você digitar "rs." não aparecerão os métodos e as propriedades, enquanto que no segundo caso sim.

Abraços,

Graymalkin

[Guest - Rickardo -]

Rickardo, você tem certeza de que tem o ADO instalado? Se não tiver, tente instalá-lo novamente (se quiser baixar: http://www.graymalkin.globalhosts.com.br/data.asp).

Bicicleta, ambos os modos funcionam, com algumas diferenças: no primeiro caso (do CreateObject) o objeto ADODB.Recordset é criado na hora e independe da versão instalada do ADO, enquanto que no exemplo que você deu é necessário marcá-lo na opção References do menu Project e ele fica dependente da versão marcada; outra diferença é que no primeiro caso quando você digitar "rs." não aparecerão os métodos e as propriedades, enquanto que no segundo caso sim.

Abraços,

Graymalkin

cara eu instalaei e masmo assim não funcionou...

tem como eu enviar a parte do ligin pra você da uma olhada???

é bem pequeno só 55kb, se puder me passe seu email.

agradesço desde já......

Rickardo costa

rickardocc@ig.com.br

[William Rodrigues]

tem como eu enviar a parte do ligin pra você da uma olhada???

Vai...

Me manda esse seu login aí que eu vou dar uma olhadinha...

PS: Prá saber do meu email basta clicar em meu nome

Abraços,

William Rodrigues