Como fazer um form de login e um de cadastro de usuario no vb .net

Disponível somente no TrabalhosFeitos
  • Páginas : 8 (1993 palavras )
  • Download(s) : 0
  • Publicado : 20 de outubro de 2012
Ler documento completo
Amostra do texto
Como fazer um form de login e um de cadastro de usuario.

http://social.msdn.microsoft.com/Forums/pt-BR/vsvbasicpt/thread/820...

Procurar no Visual Studio com o Bing

Brasil (Português)

Sign in

Home

Introdução

Biblioteca

Aprender

Downloads

Extensão

Galeria

Suporte

Fóruns

Visual Studio Developer Center >Fóruns do Visual Studio > VB.NET e Visual Basic > Comofazer um form de login e um de cadastro de usuario.

Como fazer um form de login e um de cadastro de usuario.
Pesquisar Fórum VB.NET e Visual Basic

Meus Links para Fóruns
Entrar para Fóruns Página Inicial dos Fóruns Procurar Usuários de Fóruns

Fazer uma Pergunta

kacamv

0 Points
quarta-feira, 2 de setembro de 2009 19:18

Tópicos relacionados
= Não Respondido = Respondido

BoaTarde,

Como criar um programa de cadastro sem usar BD? Formulário de Cadastro asp.net c# Acesso a Objetos / Atributos de outros Forms

0
Entrar para Votar

Estou fazendo um projeto em VB6,porém até então,ainda não havia programado em vb... Preciso de uma ajuda para fazer um login de usuario... achei um código,porem o mesmo está em VB.NET e eu não consigo adaptar esse codigo para VB6. Seráque alguem pode me ajudar a fazer um código de login (usuário(nome) e senha)??????Lembrando que este login deve verificar se os dados digitados(usuario e senha) são os mesmos do meu banco de dados(feito em access).E se não fosse encomodo,gostaria de ajuda tbm para fazer um form para cadastrar esses usuarios nessa mesma tabela(com os campos:nome,usuario,senha).

tela de login + access 2007 +vb2008 Como saber se usuário está logado ou não no software? Criar formulario de login com VB 2005 Express Como permitir senha simples no cadastro de usuario Criando Usuário e Grupo do Usuário | Login Gravar dados do Form em C# em BD SQL Server 2005 Cadastro de usuarios

espero ter sido clara qnto as minhas necessidades,qlquer sugestão eh bem-vinda!!!

grata desde já pela atenção de todos!!!Estatísticas
Iniciado em: 02/09/2009 Última Resposta: 04/09/2009 Votos Úteis: 0 Respostas: 6 Exibições: 3.432

Responder

Citação

Respostas
DJ ROGER CWB 35 Points
sexta-feira, 4 de setembro de 2009 06:23 Ola... Segue a solução abaixo:

Precisa de Ajuda com Fóruns? (FAQ)

0
Entrar para Votar

BASE DE DADOS ACEESS : CADASTRO.MDB TABELA : USUARIO OBS: TROQUE O NOME DA BASE DE DADOSACIMA PELO NOME DA SUA BASE DE DADOS TROQUE O NOME DA TABELA ACIMA PELO NOME DA SUA TABELA CRIE NA SUA TABELA, O INDICE (CHAVE PRIMARIA) COM NOME PSEN para o campo SENHA ATENÇÃO: ONDE SE LÊ SH.TEXT é o campo onde o operador digita a senha e tecla ENTER Após ter criado o campo SENHA no formulário, utilizando um TEXTBOX, na propriedade KEYPRESS do TEXTBOX, coloque o codigo abaixo:

If KeyAscii = 13Then '----- Aqui se define se for pressionada a tela ENTER If SH.Text "" Then '----- Aqui o sistema testa se o CAMPO ONDE ESTA DIGITANDO A SENHA NAO ESTA EM BRANCO On Error GoTo FECHA '- -----Aqui é uma rotina de tratamento de erro Dim VAL As Variant '-------- Aqui voce cria a variavel que ira guardar o nome da base de dados VAL = App.Path + "\CADASTRO.MDB" '----- Aqui voce DEFINE o nome da basede dados e abre ela Set MDB_DADOS = Workspaces(0).OpenDatabase(VAL, False, False) Set TAB_USU = MDB_DADOS.OpenRecordset("USUARIO", dbOpenTable) '---- Aqui voce ABRE A TABELA USUARIOS que contem os dados do usuario (nome, senha, etc... TAB_USU.Index = "PSEN" '------ Aqui diz ao sistema qual campo de INDICE ele ira usar para localizar a senha digitada TAB_USU.Seek "=", SH '------ Aqui o sistema vaitestar se a senha digitada existe ou nao If TAB_USU.NoMatch Then '------- Se nao existe, fecha a tabela e fecha a base de dados. TAB_USU.Close MDB_DADOS.Close MsgBox "Senha Invalida. Tente novamente !", 48, "Mensagem"

1 de 5

24/07/2012 13:05

Como fazer um form de login e um de cadastro de usuario.

http://social.msdn.microsoft.com/Forums/pt-BR/vsvbasicpt/thread/820...

SH.Text = ""...
tracking img