Login com BD VB6

[Filipe_Correia]

Boas

não sei como conseguir fazer um login de um programa ligado a uma BD, ou seja só os utilizadores registados poderia fazer login.

Urgente

Cumps

pipas

[kuroi]

você grava numa tabela do banco o login e a senha.

ai você faz um form de login pra ser o form inicial da sua aplicacao.

ai você so passa pro form principal caso ele digite login e senha validos. exemplo:

sql = "Select * From Login Where Usuario = '" & txtUser.Text & "' And Senha = '" & txtSenha.Text & "'"
Set rs = cn.Execute(sql)

If rs.EOF Then
    MsgBox "Usuário ou senha inválidos!"
Else
    Unload Me
    Form_Principal.Show    
End If[/code]

[Filipe_Correia]

Boas.

A base de dados não é em SQL é em access.

esse codigo não dá

[Filipe_Correia]

não me consegue resolver o problema?? è muito urgente...

[raphael_suporte]

o fato dele ter usado sql não significa que o BD é SQL, o sql usado ali é apenas uma variável do tipo string onde ele montou o Select, não irá fazer tanta diferença. você terá que abrir conexão com o banco do tipo ACCESS.

você sabe como iniciar um aplicativo com o banco de dados??

[Filipe_Correia]

Boas

Sim sei utilizar BD em vb.

Me ajuda

[kuroi]

aquele codigo q eu passei la em cima é pra funcionar pra você.

se você ta usando o objeto DataControl, você so tem q adaptar, mais o menos assim:

sql = "Select * From Login Where Usuario = '" & txtUser.Text & "' And Senha = '" & txtSenha.Text & "'"
Data1.RecordSource = sql

If Data1.RecordSet.EOF Then
    MsgBox "Usuário ou senha inválidos!"
Else
    Unload Me
    Form_Principal.Show    
End If[/code]
bom, na verdade, eu não tenho costume de usar datacontrol e nem sei direito como ele funciona, mas acho q o codigo deve ser mais o menos assim.
mas se der erro, posta ai a mensagem de erro e aponte a linha.