AJUDA COM CODIGO...

RDPIZA 01/04/2014 00:57:08
#436727
qual o erro e se poder explicar agradeço......
é um sistema de login com banco de dados
RDPIZA 01/04/2014 01:35:14
#436728
Citação:

:
qual o erro e se poder explicar agradeço......
é um sistema de login com banco de dados




fiz assim mas so funciona com o primeiro registro os outros da usuario nao encontrado??????

Option Explicit
Dim banco As DAO.Database
Dim tb As DAO.Recordset


Private Sub CmdLogar_Click()
Dim nome As String
Dim senha As String
nome = tb([Ô]nome[Ô])
senha = tb([Ô]senha[Ô])
If nome = Text1.Text And senha = Text2.Text Then
MsgBox [Ô]Você esta logado[Ô], vbInformation, [Ô]Login[Ô]
Else
MsgBox [Ô]Usuario não foi encontrado[Ô], vbCritical, [Ô]Erro[Ô]
End If

Text1.SetFocus

End Sub

Private Sub Form_Load()
Set banco = OpenDatabase([Ô]C:\Users\RO&ISA\Documents\VisualBasic\login1.mdb[Ô])
Set tb = banco.OpenRecordset([Ô]login[Ô], dbOpenTable)
End Sub
TUNUSAT 01/04/2014 07:30:58
#436729
RDPIZA,

Isto é o velho truque da resposta [Ô]null[Ô] que o VB6 não consegue tratar, não é?
Parece mentira, mas tente adicionar um [Ô]vazio[Ô] antes de atribuir a variável. Isto acontece porque se a resposta for [ô]null[ô] a variável se perde...
... ficaria assim:
nome = tb([Ô]nome[Ô]) & [Ô][Ô]
senha = tb([Ô]senha[Ô]) & [Ô][Ô]


Ou assim:
nome = IIf(IsNull(tb([Ô]nome[Ô])), [Ô][Ô], tb([Ô]nome[Ô]))
senha = IIf(IsNull(tb([Ô]senha[Ô])), [Ô][Ô], tb([Ô]senha[Ô]))


[][ô]s,
Tunusat.
MARCELO.TREZE 01/04/2014 07:31:26
#436730
Filho você está começando agora? se sim procure partir diretamente para ADO, não use DAO.

pesquise: conexão usando ADO, consulta usando ADO, etc.
RDPIZA 01/04/2014 20:45:16
#436788
Citação:

:
RDPIZA,

Isto é o velho truque da resposta [Ô]null[Ô] que o VB6 não consegue tratar, não é?
Parece mentira, mas tente adicionar um [Ô]vazio[Ô] antes de atribuir a variável. Isto acontece porque se a resposta for [ô]null[ô] a variável se perde...
... ficaria assim:

nome = tb([Ô]nome[Ô]) & [Ô][Ô]
senha = tb([Ô]senha[Ô]) & [Ô][Ô]


Ou assim:
nome = IIf(IsNull(tb([Ô]nome[Ô])), [Ô][Ô], tb([Ô]nome[Ô]))
senha = IIf(IsNull(tb([Ô]senha[Ô])), [Ô][Ô], tb([Ô]senha[Ô]))


[][ô]s,
Tunusat.




NÃO DEU CERTO CONTINUA DO MESMO JEITO....
RDPIZA 01/04/2014 20:51:03
#436789
Citação:

:
Filho você está começando agora? se sim procure partir diretamente para ADO, não use DAO.

pesquise: conexão usando ADO, consulta usando ADO, etc.




OK VO DAR UMA PESQUISADA OBRIGADO,é ESTOU COMEÇANDO AGORA,E SE PODER ME INDICAR ALGUMA APOSTILA SOBRE BANCO DE DADOS ,VARIAVEIS,E TUDO MAIS AGRADEÇO VLWS...

é QUE FIZ UM CURSO MUITO BASICO,E NA VERDADE ESTOU APRENDENDO TUDO PELA INTERNET OK DESCULPE A LEIGUICE ..
OMAR2011 01/04/2014 23:44:17
#436792
E pode ter certeza que não vai certo.
Você tem uma caixa de texto com um valor,seja qual for.
Exemplo.
Text1.text = RDPIZA
Text2.Text = 123
tb([Ô]nome[Ô]) = Onde está o valor de tb([Ô]nome[Ô])
tb([Ô]senha[Ô]) =Onde está o valor de tb([Ô]senha[Ô])
Não tem nenhum,isto porque.Simples.
Onde está a consulta????????
Você abriu apenas a tabela,só isto.
Select * From Login Where Nome=[ô][Ô] & text1.text & [Ô][ô] and senha blá blá.
é deste jeito.
Valeu.
Faça seu login para responder
Voltar