none
Erro Com Código de Login do programa (Com Banco de dados) RRS feed

  • Pergunta

  • Olá, preciso muito de ajuda, estou fazendo um programa com login e cadastro de usuario, bom o cadastro está tudo certo, ele manda tudo pro banco de dados , certinho, mas o problema está no login, bom eu tenho um form de login com duas TextBox's (1,2)  e o código do meu botão de login está assim: 

    Dim ConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Users\Home\Documents\Bancodedados.accdb"
            Dim query As String = "SELECT * FROM Clientes"
    
            Dim DataAdapter As New  OleDbDataAdapter(query,ConnectionString)
            Dim MyData As New DataSet
            DataAdapter.Fill(MyData, "Usuarios")
            Dim COMMAND As OleDbCommand = New OleDbCommand("SELECT * FROM users WHERE login = 'TextBox1.Text' AND senha = 'TextBox1.Text'", CONEXAO)
            Dim ADAPTADOR As OleDbDataAdapter = New OleDbDataAdapter(COMMAND)
            Dim DADOS As New DataTable()

    Bom eu tenho este erro     : http://nsae01.casimages.net/img/2014/05/02/140502021302580278.png

    COMO RESOLVO? SE POSSIVEL DEIXE O CODIGO COM A SOLUÇÃO POR QUE TENHO CONHECIMENTO BÁSICO SÓ KK.

    E OUTRA PERGUNTA:

    COMO PODERIA FAZER A CONEXÃO COM O BANCO DE DADOS , ESTE ESTANDO NO MEU COMPUTADOR E SENDO ACESSADO DE OUTRO ?


    quinta-feira, 1 de maio de 2014 20:03

Respostas

  • Olá,

    Tente fazer desta forma:

    'Está parte deve entrar no topo do seu form ou classe.
    
    Imports System.Data.OleDb
    
    '*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
      
    	Dim Conexao As New OleDbConnection
    	Dim Comandos As New OleDbCommand
    	Dim Consulta As New OleDbDataReader
    
    	Conexao.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; DATA SOURCE=C:\Users\Home\Database.accdb"
    	Conexao.Open()
    
    	'Troque "Usuários" pelo nome de sua tabela. "Nome" pela coluna onde vai ficar o nome de usuário. "Senha" pela coluna onde serão armazenadas suas senhas.
    	Comandos.CommandText = "SELECT * from Usuarios where Nome='" + txtUsuario.Text + "'And Senha='" + txtSenha.Text"'"
    	Comandos.Connection = Conexao
    	Consulta = Comandos.ExecuteReader
    
    	If (Consulta.HasRows) Then
    	  frmPrincipal.Show()
    
    	Else
    
    	  MsgBox("Usuário ou Senha Inválidos!")
    
    	End IF
    	Conexao.Close()
    	Me.Close()


    Abraço!


    "O verdadeiro sábio, é aquele que se coloca na posição de eterno aprendiz." Sócrates





    sexta-feira, 2 de maio de 2014 01:06