• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

[S-K]

[VB6] Login em BD de access

8 mensagens neste tópico

boas,

percisava de fazer login na minha aplicaçao em vb e embora esteja a usar o codigo adaptado de outra aplicação com o mesmo sistema isto continua a dar.m erro...

se alguem souber kual é o problema... agradecia :P

OrigensDE.rsLogin.MoveFirst
OrigensDE.rsLogin.Find "USERNAME='" & txtUser.Text & "'"
If CxUser.Text = txtUTILIZADOR.Text And CxPass.Text = txtPASSWORD.Text Then
MenuInicial.Show

o USERNAME seria o campo na BD

os com o prefixo txt seriam as caixas de texto que estao ligadas directamente á base de dados

os CX sao os campos onde o utlizador irá escrever....

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

  Dim P_DB As Database

  Dim P_RS As Recordset

  Dim P_FLD As Field

 

  Set P_DB = Workspaces(0).OpenDatabase(App.Path & "\ComSenha.mdb", False, False, "MS Access;PWD=1234")

  Set P_RS = P_DB.OpenRecordset("Cadastro", dbOpenTable)

tens aqui 1 exemplo como conectar

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ja tinha resolvido o problema, tinha-me enganado num dos campos...

OrigensDE.rsLogin.MoveFirst

OrigensDE.rsLogin.Find "USERNAME='" & txtUser.Text & "'"

If CxUser.Text = txtUTILIZADOR.Text And CxPass.Text = txtPASSWORD.Text Then

MenuInicial.Show

a parte em bold estava com a caixa de texto ligava a base de dados e deveria de ser a caixa de texto onde eu insiro a pass :cheesy:

o codigo correcto era:

OrigensDE.rsLogin.MoveFirst
If CxUser.Text = "" And CxPass.Text = "" Then
Dim error1 As Integer
error1 = MsgBox("Erro, não foi inserida um Utilizador nem uma Password", vbOKOnly, "Erro!")
Else
OrigensDE.rsLogin.Find "UTILIZADOR='" & CxUser.Text & "'"
If CxUser.Text = txtUTILIZADOR.Text And CxPass.Text = txtPASSWORD.Text Then

Dim obgUser As String
obgUser = txtNOME_UTILIZADOR.Text

Dim resp As Integer
resp = MsgBox("Utilizador: " & obgUser & ".", vbOKOnly, "Bem Vindo ao Origens Bio Gest")

MenuInicial.Show
Me.Hide

Else
Dim error2 As Integer
error2 = MsgBox("Erro, Password não é igual ou utilizador inexistente: ", vbOKOnly, "Conferir Utilizador e Password")

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

vasta esse código para fazer login de uma bd em vb?

este codigo é o "algoritmo" do login. so verifica se a pessoa nao meteu os campos vazios ou errados.

a ligação á base de dados é feita atraves do data environment.

se tiver tempo ainda vou adicionar a contagem de tentativas e o tempo limite. se o fizer depois posto aqui o codigo completo

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

OrigensDE.rsLogin.MoveFirst

podem-me o que quer dizer "origensDE"?

e tambem  o "rsLogin"....

nao percebi isto

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

OrigensDE.rsLogin.MoveFirst

podem-me o que quer dizer "origensDE"?

e tambem  o "rsLogin"....

nao percebi isto

origensDE.rsLogin.xxx

DataEnvironment.RecordSet.xxxx

data enviroment é um componente do projecto q faz a ligaçao com a base de dados. o recordset é qual dos comandos executado por esse data environment keres usar(qual dos comandos carrega a consulta ou afim q tu keres usar no form)

os nomes que aparecem no meu codigo sao os  nomes da minha aplicaçao mesmo :P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora