COMO FAZER RECONHECER A DECISAO NO VB 2010?

JEFERSONDNB 08/08/2013 10:06:29
#427244

Galera estou com um problema ...
Não sei se é porque meu sistema esta rodando a outra tabela de login mesmo apos um dispose ...

vou postar o código a baixo ...


Imports MySql.Data.MySqlClient
Imports MySql.Data.MySqlClient.MySqlDataAdapter
Imports System
Public Class Info_Usuario
Dim conexao As MySqlConnection
Dim command As New MySqlCommand
Dim adaptador As New MySqlDataAdapter
Dim mydata As MySqlDataReader
Dim SQL As String
Dim MaskedTextBox As System.Nullable
Dim Nullable As System.Nullable
Dim numero As Integer

Private Property MySqlConnection As MySqlConnection



Private Sub Info_Usuario_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim conexao As MySqlConnection
conexao = New MySqlConnection

conexao.ConnectionString = [Ô]server=localhost;user id=root;password=sistema;database=serbom[Ô]

Dim SQL As String
Dim adaptador As New MySqlDataAdapter
SQL = [Ô]SELECT NOME_USU,AUTORIA_USU FROM cadusu WHERE NOME_USU=[ô][Ô] & nome_usuario.Text & [Ô][ô]AND AUTORIA_USU=[ô]ADMINISTRADOR[ô];[Ô]
nome_usuario.Text = My.Forms.logar_usuario.escreva_usuario.Text
Dim command As New MySqlCommand
command.Connection = conexao
command.CommandText = SQL
adaptador.SelectCommand = command
mydata = command.ExecuteReader()

If mydata.HasRows = 0 Then
Autoridade.Text = [Ô]Usuario[Ô]

Else : Autoridade.Text = [Ô]Administrador[Ô]

End If


Isso é uma caixa de dialogo no sistema para barrar o acesso a cada grupo de usuário. Colocado sobre um usuário
com as informações de autoridade no Banco de Dados.