LOGIN COM BANCO DE DADOS

FERATK 13/01/2012 03:20:06
#393138
Pessoal,
Já virei a internet de pernas para o ar e não achei como criar um sistema de login acessando um banco de dados no acess


Preciso que seja explicado no minimo dos detalhas
pq não entendo nada de bd.

Grato Felipe
NICKOSOFT 13/01/2012 06:34:30
#393140
fica um pouco dificil, vc precisa entender um pouquinho saber fazer consultas pelo menos.....
o mais simples dos simples seria
vc tem q ter uma tabela com os usuarios e senhas dos mesmos....
na tela de login vc preenche os campos, qnd clicar no entrar, vai fazer uma consulta ao banco de dados procurando por akele nome de usuario, e comparar a informacao de senha q tem na tabela com o foi digitado....
ALTAIR148 13/01/2012 07:42:53
#393141
Bom dia,

Amigo, se deseja fazer uma aplicação que vai utilizar um BD a primeira coisa é entender o BD, se não sabe fazer SELECT, INSERT, UPDATE e DELETE, aconselho a pesquisar na internet, pq exemplo da forma que quer ai é meio difícil, tem que se ter noção primeiro para desenvolver algo. Na internet tem muitos materiais que falam a respeito de bancos de dados, sugiro que dê uma pesquisada pq se não saber fazer o básico que são essas 4 funções que mencionei, vc vai ter muito trabalho, é melhor entender o BÁSICO antes de começar.

Nesse TÓPICO dei um exemplo básico de um login com access, dá uma olhada nele que tem o que você precisa, só acho que não vai estar comentado do jeito que quer, mas nada como uma boa pesquisada no ORÁCULO GOOGLE que não resolva o seu problema. Aqui no VBMANIA mesmo tem muitos exemplo com acces, é só da uma pesquisada que encontra.

Abraços.
FERATK 13/01/2012 12:59:34
#393171
nunca trabalhei com banco de dados por isso que eu qro fazer este projeto, pois acho que é um dos mais faceis de se fazer.
Mas se alguem puder informar aonde acho estes materiais fico grato.
NICKOSOFT 13/01/2012 13:12:20
#393173
aki no forum tem um monte de coisas, tem codigo fonte ali em cima q ajuda
ALTAIR148 13/01/2012 13:20:55
#393174
O que já tem pronto? Já tem algum código? O exemplo que te passei deu uma olhada?

Alguém te dar algo totalmente comentado é meio difícil, tem que pesquisar para entender o código, ninguém vai fazer um código comentado para você explicando tudo que tem nele, geralmente, explicamos o básico no código fonte. Tenta dar mais alguma pesquisada por aí, primeira coisa que eu te digo são coisas fundamentais para o que quer fazer.

1º - Entender o BD
2º - Conectar com o BD
3º - Fazer um SELECT

São 3 funções que tem que se entender para começar a desenvolver uma rotina de login.

Igual eu disse anteriormente, na minha opnião as quatro operações fundamentais para se trabalhar com BD são:

Select
Insert
Update
Delete

Pesquise tem muitos materiais sobre o assunto. CLIQUE AQUI e veja a quantidade imensa de material que tem sobre essas quatro operações fundamentais.
FERATK 14/01/2012 17:43:58
#393240
Pessoal continuo com o meu dilema, ja consegui o codigo para abrir o banco de dados no vb.net
ele aparentemente não apresenta erro nenhum
mas quando executo o projeto e digito o usuario e a senha e pressiono o botão de entrar surge o erro:
A first chance exception of type [ô]System.Data.OleDb.OleDbException[ô] occurred in System.Data.dll


Segue abaixo o codigo do form:

Imports System.Data.OleDb
Imports System.Data
Public Class Form1
Dim StrSenha As String

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
[ô]Hora e data:
Timer1.Enabled = True
Timer2.Enabled = True

End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
Text_senha.PasswordChar = [Ô][Ô]
End If
If CheckBox1.Checked = False Then
Text_senha.PasswordChar = [Ô]*[Ô]
End If
End Sub

Private Sub B_Entrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Entrar.Click
Dim connString As String = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Felipe Oliveira\Desktop\Dropbox\VB\Planilhas\Usuario.mdb Mode=ReadWrite;Persist Security Info=False[Ô]
Dim myConnection As OleDbConnection = New OleDbConnection
myConnection.ConnectionString = connString
myConnection.Open()
Dim reader As OleDbDataReader
Dim oCmd As OleDbCommand = myConnection.CreateCommand()
oCmd.CommandText = [Ô]SELECT * FROM Usuario where Usuario = [Ô] & Text_usuario.Text & [Ô][ô][Ô]
reader = oCmd.ExecuteReader
While reader.Read
StrSenha = reader([Ô]Senha[Ô])
End While
myConnection.Close()

[ô] Verifica se o login e senha conferem

If Me.Text_senha.Text = StrSenha Then
MsgBox([Ô]Usuario/Senha Confere[Ô])
B_Plan1.Visible = True
B_Plan2.Visible = True
B_Plan3.Visible = True
B_Admin.Visible = True
Else
If Text_senha.Text <> StrSenha Then
MsgBox([Ô]Usuario/Senha não confere[Ô])
End If
End If

End Sub

Private Sub B_sair_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_sair.Click
End
End Sub

Private Sub B_Plan1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Plan1.Click
Form2.Show()
Me.Hide()
End Sub

Private Sub B_Plan2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Plan2.Click
Form3.Show()
Me.Hide()
End Sub

Private Sub B_Plan3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Plan3.Click
Form4.Show()
Me.Hide()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
L_Hora.Text = TimeOfDay
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
L_Data.Text = DateAndTime.Now.Date
End Sub


Private Sub Text_usuario_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Text_usuario.KeyPress
If Char.IsNumber(e.KeyChar) Then
e.Handled = True
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Admin.Click
form5.show()
End Sub
End Class



Grato desde já Felipe
NICKOSOFT 16/01/2012 06:45:50
#393273
copiar o codigo sem procurar entender da muito erro, qnd se procura string no banco, deve ser usado aspa simples tmb

  oCmd.CommandText = [Ô]SELECT * FROM Usuario where Usuario = [ô] [Ô] & Text_usuario.Text & [Ô] [ô] [Ô]

de cara vi isso, so dei espaso pra ficar facil visualizar q tem uma aspa simples antes e uma depois do campo de texto
FERATK 16/01/2012 14:36:28
#393341
Citação:

:
copiar o codigo sem procurar entender da muito erro, qnd se procura string no banco, deve ser usado aspa simples tmb

  oCmd.CommandText = [Ô]SELECT * FROM Usuario where Usuario = [ô] [Ô] & Text_usuario.Text & [Ô] [ô] [Ô]

de cara vi isso, so dei espaso pra ficar facil visualizar q tem uma aspa simples antes e uma depois do campo de texto



Tentei fazer o que voce disse e continua ocorrendo o mesmo erro.
FILMAN 16/01/2012 16:24:40
#393363 Resposta escolhida
Primeiro sua conexão esta faltanto um ponto e virgula ;

Dim connString As String
connString = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Felipe Oliveira\Desktop\Dropbox\VB\Planilhas\Usuario.mdb[txt-color=#e80000];[/txt-color]Mode=ReadWrite;Persist Security Info=False[Ô]


Segundo como o nosso colega NICKOSOFT falou é necessário colocar apostrofo ou aspas simples na SQL com o banco

oCmd.CommandText = [Ô]SELECT * FROM Usuario where Usuario = [ô][Ô] & Text_usuario.Text & [Ô][ô][Ô]


Provavelmente vai funcionar
FERATK 16/01/2012 22:34:06
#393382
Citação:

:
Primeiro sua conexão esta faltanto um ponto e virgula ;

Dim connString As String
connString = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:UsersFelipe OliveiraDesktopDropboxVBPlanilhasUsuario.mdb[txt-color=#e80000];[/txt-color]Mode=ReadWrite;Persist Security Info=False[Ô]


Segundo como o nosso colega NICKOSOFT falou é necessário colocar apostrofo ou aspas simples na SQL com o banco

oCmd.CommandText = [Ô]SELECT * FROM Usuario where Usuario = [ô][Ô] & Text_usuario.Text & [Ô][ô][Ô]


Provavelmente vai funcionar




Cara infelizmente deu erro novamente!
Página 1 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar