Login e senha com VB.NET

[Elnata COsta 2]

Bom pessoal eu consegui fazer a conexão com o banco de dados MySql com o VB, mas agora eu gostaria de saber como buscar os dados no banco de de dados ou seja: Verifica se usuario da Textbox1 e Senha da TextBox2 forem iguais a usuário e senha do banco de dados então exibe form2 e fecha form1. A única coisa que eu não consigo fazer é essa verificação no banco de dados! :mellow:

 

Abaixo está o código que usei para conexão com o DB MySql:

 

'PARTE DA CONEXÃO COM O BANCO DE DADOS

       Dim CONEXAO As New MySqlConnection
       Dim COMMAND As New MySqlCommand
       Dim ADAPTADOR As New MySqlDataAdapter
       Dim DADOS As New DataTable
       Dim SQL As String
       ' Dim sql As String = "SELECT id, username, password, email, type FROM users WHERE username = xname AND password = xpass"

       CONEXAO = New MySqlConnection
       CONEXAO.ConnectionString = "SERVER=localhost;user id=root;password=;database=vaadministration"
       SQL = "SELECT * FROM vaadministration.users"

       Try
           CONEXAO.Open()
           Try

               COMMAND.Connection = CONEXAO
               COMMAND.CommandText = SQL
               ADAPTADOR.SelectCommand = COMMAND
               ADAPTADOR.Fill(DADOS)


           Catch ex As Exception

           End Try

       Catch erro As MySqlException
           Form5.Show()

       Finally
           CONEXAO.Dispose()
       End Try
       'FINALIZA CONEXÃO COM O BANCO DE DADOS

 

Então galera podem me ajduar como faço pra fazer isso?

[KhaosDoctor 242]

No botão de login você deve abrir a conexão e executar um comando no MySQL que seria referente a isto:

 

SELECT * FROM <tabela> WHERE Username = 'Textbox1.text' AND Senha = 'TextBox2.Text'

 

E faça assim:

 

 

 

       Dim CONEXAO As New MySqlConnection("SERVER=localhost;user id=root;password=;database=vaadministration") 
       Dim ADAPTADOR As New MySqlDataAdapter
       Dim DADOS As New DataTable
       Dim SQL As String = "SELECT id, username, password, email, type FROM vaadministration.users WHERE username = xname AND password = xpass"
Dim COMMAND As New MySqlCommand(SQL,CONEXAO)



           CONEXAO.Open()

           Try

               ADAPTADOR.SelectCommand = COMMAND
               ADAPTADOR.Fill(DADOS)

	If ADAPTADOR.Rows.Count > 0 Then

	//Abre form1 pois há usuário

	Else

	//Não há usuário

	End If         



       Catch erro As MySqlException
           Form5.Show()

End Try

   	CONEXAO.Close()

 

[Elnata COsta 2]

No botão de login você deve abrir a conexão e executar um comando no MySQL que seria referente a isto:

 

SELECT * FROM <tabela> WHERE Username = 'Textbox1.text' AND Senha = 'TextBox2.Text'

 

E faça assim:

 

 

 

       Dim CONEXAO As New MySqlConnection("SERVER=localhost;user id=root;password=;database=vaadministration") 
       Dim ADAPTADOR As New MySqlDataAdapter
       Dim DADOS As New DataTable
       Dim SQL As String = "SELECT id, username, password, email, type FROM vaadministration.users WHERE username = xname AND password = xpass"
Dim COMMAND As New MySqlCommand(SQL,CONEXAO)



           CONEXAO.Open()

           Try

               ADAPTADOR.SelectCommand = COMMAND
               ADAPTADOR.Fill(DADOS)

	If ADAPTADOR.Rows.Count > 0 Then

	//Abre form1 pois há usuário

	Else

	//Não há usuário

	End If         



       Catch erro As MySqlException
           Form5.Show()

End Try

   	CONEXAO.Close()

 

Amigo ele da erro na seguinte linha:

 

If [b]ADAPTADOR.Rows.Count[/b] > 0 Then

PS.: Onde está em negrito!!

[KhaosDoctor 242]

Qual erro?

[Elnata COsta 2]

Qual erro?

'Rows' is not a member of 'MySql.Data.MySqlClient.MySqlDataAdapter'.

Este é o erro que dá! :(

[KhaosDoctor 242]

Substitua ADAPTADOR por DADOS, me enganei nos controles rs

[Elnata COsta 2]

Substitua ADAPTADOR por DADOS, me enganei nos controles rs

Ai sim eim... consegui amigo vlw..., srrs