Não Conecta ao banco de dados.

  • Thread starter Thread starter Samuel C. Ribeiro
  • Start date Start date
S

Samuel C. Ribeiro

Guest
Boa tarde.

Até que em fim comecei a ver alguma coisa funcionar, mas infelizmente o sistema ainda não conecta ao Banco de Dados. as Mensagens que aparecem são estas.

"Chave não pode ser nula. Nome do parâmetro: Key"

"Usuário ou Senha, foi digitado incorretamente." Mensagem feita por mim no MsgBox do sistema.

Código:

Imports System.Security.Cryptography
Imports Microsoft.VisualBasic
Imports MySql.Data.MySqlClient
Imports System
Imports System.Text

Public Class frmLogin
Dim strCon As New MySqlConnection
Dim Sql As String
Public Class conn
Variavel Privada, variavel conexao.
Public strCon As String
Método Construtor
Public Sub New()
Dim host As String
Dim user As String
Dim pass As String
Dim banco As String

host = "localhost"
user = "Administrador"
pass = "25041966"
banco = "teste_siscom"

strCon = "server=" & host & "; user id=" & user & "; password=" & pass & "; database=" & banco & ";"
End Sub
Public Function CripSenha(ByRef texto As String) As String
Dim Ue As New UnicodeEncoding
Dim ByteSourcetexto() As Byte = Ue.GetBytes(texto)
Dim md5 As New MD5CryptoServiceProvider
Dim Bytehash() As Byte = md5.ComputeHash(ByteSourcetexto)

Return Convert.ToBase64String(Bytehash)

End Function

Public Function Login(ByVal usuario As String, ByVal senha As String) As Boolean
Dim strCon As String
strCon = "SELECT usuario FROM tblusuario WHERE usuario = " & usuario & " AND senha = " & CripSenha(senha) & ""
Dim conn As New MySqlConnection
Dim cmd As New MySqlCommand(strCon, conn)

Try
Dim dr As MySqlDataReader
conn.Open()
dr = cmd.ExecuteReader
If dr.Read Then
Return True
Else
Return False
End If

Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
conn.Close()
End Try
End Function
Public Function Conectar() As Boolean
Dim Conexao As New MySqlConnection(strCon)
Try
Conexao.Open()
Catch ex As Exception
MsgBox(ex.Message)
End Try
retorna variavel State Open 1, Close 0
Return Conexao.State
End Function

End Class

Private Sub btnOkLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOkLogin.Click

Dim Logar As New conn

If Logar.Login(txtUsuarioLogin.Text, txtSenhaLogin.Text) = True Then

frmPrincipal.Show()
Else
MsgBox("Usuario ou Senha, foi digitado Incorretamente", vbOKOnly + MsgBoxStyle.Exclamation, "Sistema de Automação Comercial - Aviso")
End If
End Sub


Desde já Agradeço.

Continue reading...
 
Back
Top