Como Fazer Um Sistema De Login

[mestre fyoda]

alguém poderia me passar um codigo de sistema de login com bando de dados e como fazer um update atraves do login .

Tem como usar session ? , se tiver me ajudem .

[mestre fyoda]

como que se usa essa Coleçoes numa instruçao por exemplo em asp é assim .

rs.Open "SELECT * FROM usuarios WHERE login = '"&Session("login")&"' "

Esta parte em negrito , como faria com uma Collection .?

[Graymalkin]

como que se usa essa Coleçoes numa instruçao  por exemplo em asp é assim .

rs.Open "SELECT * FROM usuarios WHERE login = '"&Session("login")&"' "

Esta parte em negrito , como faria com uma Collection .?

Ah, isso não é nada demais. Todos os retornos de uma Session são Variants, que podem ser concatenadas. O exemplo que você deu seria o mesmo que:

usuário = Session("login")
rs.Open "SELECT * FROM usuarios WHERE login = '" & usuário & "'"

Portanto, você pode ver que não existe diferença. Uma vez que a variável "usuário" tem o valor, você pode concatená-la com qualquer outra string; isso não é uma exclusividade de uma Session. No caso de uma coleção, seria necessário você declará-la assim (de preferência em um módulo):

dim Coleção as new collection

Daí, quando o usuário fizesse o login, você usaria (supondo que txtLogin é uma caixa de texto onde o usuário digitou o login dele):

Coleção.Add txtLogin.text, "login"

A partir daí, você poderia fazer igual ao exemplo:

rs.Open "SELECT * FROM usuarios WHERE login = '" & Coleção("login") & "'"

Abraços,

Graymalkin

[mestre fyoda]

não deu certo .

Ei mano como você manja , como deixo enabled um text ?

[Graymalkin]

Ei mano como você manja , como deixo enabled um text ?

Como assim "enabled"? Habilitado? Por padrão todas as caixas de textos já são habilitadas. Para desabilitá-las você usa a propriedade Enabled definindo-a para False. É isso mesmo que você quer? Ou você quis dizer "selecionado"?

Abraços,

Graymalkin

[mestre fyoda]

é enable , aonde deixo false ?

não deu certo o seu codigo de Collection.

codigo do login

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim Coleção As New Collection
Private Sub Command1_Click()
Dim sql As String
Set rs = CreateObject("ADODB.Recordset")
With rs
.Open " Select * from usuarios where codigo ='" & Codigo.Text & "' and nome ='" & Nome.Text & "'", cn, adOpenKeyset, adLockOptimistic

If rs.EOF Then
MsgBox "Usuário ou senha inválida!", vbExclamation, "Erro"
Else
Coleção.Add Codigo.Text, "codigo"
Form2.Show
Unload Me
End If
.Close
End With
End Sub

Private Sub Form_Load()
cn.CursorLocation = adUseClient 'Define o cursor como local
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Banco.mdb" 'Abre o BD
rs.Open "SELECT * FROM usuarios", cn, adOpenDynamic, adLockOptimistic 'Abre a tabela no objeto "rs"

End Sub

codigo do update

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim Coleção As New Collection
Private Sub Form_Load()
cn.CursorLocation = adUseClient 'Define o cursor como local
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Banco.mdb" 'Abre o BD

rs.Open "SELECT * FROM usuarios where codigo = '" & Coleção("codigo") & "' ", cn, adOpenDynamic, adLockOptimistic 'Abre a tabela no objeto "rs"

Codigo.Text = rs.Fields("codigo").Value
Nome.Text = rs.Fields("nome").Value
Endereco.Text = rs.Fields("endereco").Value
Numero.Text = rs.Fields("numero").Value
End Sub


Private Sub Update_Click()
Dim sql As String
sql = "UPDATE usuarios SET nome = '" & Nome.Text & "' , numero = '" & Numero.Text & "' WHERE codigo = '" & Codigo.Text & "' "
cn.Execute sql
End Sub

[Graymalkin]

Leia novamente o que disse no outro post (em especial a parte em negrito):

No caso de uma coleção, seria necessário você declará-la assim (de preferência em um módulo):

Se você declarar "Coleção" em cada um dos forms, a mesma só existirá para aquele form. Já quando você declara no módulo (apenas uma vez) ela vale para ambos os forms.

Abraços,

Graymalkin

[mestre fyoda]

não manjo nada de vb , tem como eu guardar dentro de uma variavel do form1 e passar essa variavel para o form2 .

Exemplo :

Form1

Verifica = Codigo.Text

Form2

Nesse form2 ele ira receber o Verifica .

Como faço , por favor me passe passo a passo .

[Graymalkin]

Uma vez declarada a variável no General Declarations (aquela parte lá do topo da janela de código)...

Dim Verifica as String

... você pode chamá-la de qualquer lugar da seguinte maneira (por exemplo):

text1.text = Form1.Verifica

Veja que é só colocar o nome do form + . + nome da variável.

Abraços,

Graymalkin

PS: Quando você quiser um outro assunto diferente do tópico original, poste outro tópico.

[mestre fyoda]

não deu certo cara .

[Graymalkin]

não deu certo cara .

Ops, eu falei errado mesmo. O correto seria:

public Verifica as string

Daí sim você pode digitar Form1.Verifica.

Abraços,

Graymalkin

[mestre fyoda]

deu certo cara , valeu .