[Resolvido] Problema em validar Sql

[Rodrigo Defende 0]

Tenho a seguinte funcao:

Sub Validar()
		Dim Sql As String
		Dim Cnm As MySqlCommand
		Dim Dr As MySqlDataReader

		If txSenha.Text = "" Then
			MsgBox("Você deve indicar uma senha válida.", MsgBoxStyle.Information, "Validação de Login.")
			txSenha.Focus()
			Exit Sub
		End If

		Try
			Sql = "SELECT tbl_user.iduser,tbl_user.nome,tbl_user.idgrupo,tbl_user.idpermissao,tbl_user.ema
il "
			Sql = Sql & "FROM tbl_login INNER JOIN tbl_user ON (tbl_login.idlogin = tbl_user.idlogin) "
			Sql = Sql & "Where tbl_login = 'Master' And "
			Sql = Sql & "tbl_login.pwd = '" & EncryptINI(txSenha.Text, "Validacao") & "'"

			Conecta(True)
			Cnm = New MySqlCommand
			Cnm.CommandText = Sql
			Dr = Cnm.ExecuteReader
			Dr.Read()

			If Dr.HasRows Then
				nmNome = Dr.GetValue(1).ToString
				idUser = Dr.GetValue(0).ToString
				MsgBox("Deu certo")
			ElseIf Dr.HasRows = False Then
				MsgBox("Usário não encontrado. Favor verificar dados digitados.", MsgBoxStyle.Information, "Validação de Login.")
				txSenha.Text = ""
				txSenha.Focus()
			End If

		Catch ex As Exception
			MsgBox(ex.Message)
		Finally
			Conecta(False)
		End Try

	End Sub

Mas ela me retorna um erro na linha - Dr = Cnm.ExecuteReader -

O erro que me retorna eh o seguinte: Referência de objeto não definida para uma instância de um objeto.

 

O que pode estar errado aqui??

[quintelab 91]

Pelo erro é que algum objeto não foi instanciado, eu costumo usar diferente o Command. Tente da seguinte forma:

 

Conecta(True)
Cnm = New MySqlCommand(Sql, SUA_VARIAVEL_CONEXAO)
Dr = Cnm.ExecuteReader
Dr.Read()

Tente desta forma!!

Abraços...

[Rodrigo Defende 0]

Valeu - era isso.