PROBLEMAS COM LOGIN COM MYSQL

GAHHSOUZA 15/05/2013 09:50:08
#423509

Fala galera , estou tentando criar um login com o mySQL
mas estou tendo alguns problemas , fiz dois codigos e gostaria que vocês dessem uma olhada, por incrivel que pareça os dois estão dando erros hahaha, aqui segue os codigos :
1º:

Public pvl As Boolean = False
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click



[ô]----Variaveis de conexão
Dim conexao As New MySqlConnection
Dim comandos As New MySqlCommand
Dim consulta As MySqlDataReader

[ô]---Variaveias de conexão

[ô]---Configuração de conexão e identificação do DB
conexao.ConnectionString = [Ô]DATABASE=OurWorkout[Ô]

conexao.Open()

If RadioButton1.Checked = True Then
comandos.CommandText = [Ô]SELECT * from Matricula where Nome_Usuario=[ô][Ô] + TextNome.Text + [Ô][ô]And Senha=[ô][Ô] + TextSenha.Text + [Ô][ô] And Privilegio =1[Ô]
pvl = True
Else
comandos.CommandText = [Ô]SELECT * from Matricula where Nome_Usuario=[ô][Ô] + TextNome.Text + [Ô][ô]And Senha=[ô][Ô] + TextSenha.Text + [Ô][ô] And Privilegio =0[Ô]
pvl = False
End If
[ô]---Configuração de conexão e identificação de DB

[ô]---Comandos para executar a verificação de Login
comandos.Connection = conexao
consulta = comandos.ExecuteReader()
[ô]---Comandos para execultar a verificação de login

[ô]---Condição de login e acesso
If consulta.HasRows Then
If pvl = True Then
AreadoProfessor.Show()
Me.Close()
ElseIf pvl = False Then
AreadoAluno.Show()
Me.Close()
End If
Else
MsgBox([Ô]Erro de login.[Ô] & Environment.NewLine & [Ô] Verifique seu Nome, Senha e Tipo de usuario e tente novamente.[Ô], MsgBoxStyle.Critical, [Ô]Erro de dados[Ô])
End If
[ô]---Condição de login e acesso
End Sub

2º
Dim conn As MySqlConnection
conexão com DB
conn = New MySqlConnection()
conn.ConnectionString = [Ô]database=Our Workout[Ô]
[ô] ve se a conexão falhou
Try
conn.open()
Catch myerror As MySqlException
MsgBox([Ô]Erro ao se conectar com o Banco de Dados[Ô])
End Try
[ô]sql query
Dim myAdapter As New MySqlDataAdapter

Dim sqlquery = [Ô]SELECT * FROM Matricula where Nome_Usuario = [ô][Ô] + TextNome.Text + [Ô][ô] AND Senha=[ô][Ô] + TextSenha.Text + [Ô][ô][Ô]
Dim myCommand As New MySqlCommand()
myCommand.Connection = conn
myCommand.CommandText = sqlquery
[ô]inicia query
myAdapter.SelectCommand = myCommand
Dim myData As MySqlDataReader
myData = myCommand.ExecuteReader()
[ô]ve se o usuario saiu
If myData.HasRows = 0 Then
MsgBox([Ô]Login Invalido[Ô])
Else
MsgBox([Ô]Login Aceito[Ô])
AreadoProfessor.Show()
Me.Hide()
End If
End Sub

Qual dos dois deveria usar e onde deveria acertar ?

PS: estou fazendo todos os imports necessarios