CODIGO PARA FORMULARIO DE LOGIN
Seguindo orientação do colega Marcelo-Treze estou postando o meu tópico referente a código para formulário para login no fórum vb.net um dos erro eu consegui resolver, mas outros 3 não esperando assim pela ajuda de vocês. Segue abaixo o código e os erros.
Citação:Imports MySql.Data.MySqlClient
Imports Siscom.ClsConexaoMySql
Imports System.Data
Public Class frmLogin
Dim conn As New MySqlConnection
Dim MyCommand As New MySqlCommand
Dim MyAdapter As New MySqlDataAdapter
Dim MyData As New DataTable
Dim Sql As String
Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim conn As MySqlConnection
conn = New MySqlConnection
Sql = [Ô]Select * From teste_siscom.tblusuario[Ô]
End Sub
Private Sub TimerLogin_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerLogin.Tick
lblData.Text = DateAndTime.Now.ToLongDateString
lblDataHora.Text = DateTime.Now.ToLongTimeString
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelarLogin.Click
Me.Close()
End Sub
Private Sub btnOkLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOkLogin.Click
Dim vNivel, vSenha, vNome As String
If txtUsuarioLogin.Text = Nothing Then
MsgBox([Ô]Digite o seu Nome de Usuário!![Ô], vbOKOnly + MsgBoxStyle.Information, [Ô]Sistema de Automação Comercial - Aviso[Ô])
txtUsuarioLogin.Focus()
Exit Sub
End If
If txtSenhaLogin.Text = Nothing Then
MsgBox([Ô]Digite a sua Senha!![Ô], vbOKOnly + MsgBoxStyle.Information, [Ô]Sistema de Automação Comercial - Aviso[Ô])
txtSenhaLogin.Focus()
Exit Sub
End If
vNome = Chr(39) & txtUsuarioLogin.Text & Chr(39)
vSenha = Chr(39) & txtSenhaLogin.Text & Chr(39)
conn.Open([Ô]Select * tblusuario where usuario & vNome & And senha = & vSenha[Ô], conn, adOpenForwardOnly, adLockOptimistic, adCmdText)
If conn.DataSource = 0 Then
MsgBox([Ô]Usuário ou Senha Invalida[Ô], vbOKOnly = MsgBoxStyle.Information, [Ô]Sistema de Automação Comercial - Aviso[Ô])
txtUsuarioLogin.Text = [Ô][Ô]
txtSenhaLogin.Text = [Ô][Ô]
txtUsuarioLogin.Focus()
conn.Close()
Exit Sub
Else
frmPrincipal.Show()
End If
End Sub
End ClassImports MySql.Data.MySqlClient
Imports Siscom.ClsConexaoMySql
Imports System.Data
Public Class frmLogin
Dim conn As New MySqlConnection
Dim MyCommand As New MySqlCommand
Dim MyAdapter As New MySqlDataAdapter
Dim MyData As New DataTable
Dim Sql As String
Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim conn As MySqlConnection
conn = New MySqlConnection
Sql = [Ô]Select * From teste_siscom.tblusuario[Ô]
End Sub
Private Sub TimerLogin_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerLogin.Tick
lblData.Text = DateAndTime.Now.ToLongDateString
lblDataHora.Text = DateTime.Now.ToLongTimeString
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelarLogin.Click
Me.Close()
End Sub
Private Sub btnOkLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOkLogin.Click
Dim vNivel, vSenha, vNome As String
If txtUsuarioLogin.Text = Nothing Then
MsgBox([Ô]Digite o seu Nome de Usuário!![Ô], vbOKOnly + MsgBoxStyle.Information, [Ô]Sistema de Automação Comercial - Aviso[Ô])
txtUsuarioLogin.Focus()
Exit Sub
End If
If txtSenhaLogin.Text = Nothing Then
MsgBox([Ô]Digite a sua Senha!![Ô], vbOKOnly + MsgBoxStyle.Information, [Ô]Sistema de Automação Comercial - Aviso[Ô])
txtSenhaLogin.Focus()
Exit Sub
End If
vNome = Chr(39) & txtUsuarioLogin.Text & Chr(39)
vSenha = Chr(39) & txtSenhaLogin.Text & Chr(39)
conn.Open([Ô]Select * tblusuario where usuario & vNome & And senha = & vSenha[Ô], conn, adOpenForwardOnly, adLockOptimistic, adCmdText)
If conn.DataSource = 0 Then
MsgBox([Ô]Usuário ou Senha Invalida[Ô], vbOKOnly = MsgBoxStyle.Information, [Ô]Sistema de Automação Comercial - Aviso[Ô])
txtUsuarioLogin.Text = [Ô][Ô]
txtSenhaLogin.Text = [Ô][Ô]
txtUsuarioLogin.Focus()
conn.Close()
Exit Sub
Else
frmPrincipal.Show()
End If
End Sub
End Class
Erros:
Erro 1 O nome [ô]adOpenForwardOnly[ô] não está declarado.
Erro 2 O nome [ô]adLockOptimistic[ô] não está declarado.
Erro 3 O nome [ô]adCmdText[ô] não está declarado.
Desde já Agradeço.
Código de Vb5,Vb6 e anteriores é Codigo dos referidos.
f txtSenhaLogin.Text = Nothing Then
MsgBox([Ô]Digite a sua Senha!![Ô], vbOKOnly + MsgBoxStyle.Information, [Ô]Sistema de Automação Comercial - Aviso[Ô])
txtSenhaLogin.Focus()
Exit Sub
End If
vNome = Chr(39) & txtUsuarioLogin.Text & Chr(39)
vSenha = Chr(39) & txtSenhaLogin.Text & Chr(39)
conn.Open([Ô]Select * tblusuario where usuario & vNome & And senha = & vSenha[Ô], [txt-color=#e80000]conn, adOpenForwardOnly, adLockOptimistic, adCmdText)[/txt-color]
Não vai abrir nuncaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa.
De novo o mesmo erro né cara.
Por favor me ajude a substituir estes. Para que eu aprenda e não poste o mesmo erro de novo.
Desde já agradeço.
Muito Obrigado pela ajuda, deu certo.
Veja como ficou:
Citação:Imports System.Text
Imports System.Security.Cryptography
Imports MySql.Data.MySqlClient
Public Class cllLogin
Public strcon As String
Public Sub New()
Dim servidor As String = [Ô]localhost[Ô]
Dim usuario As String = [Ô]root[Ô]
Dim senha As String = [Ô][Ô]
Dim banco As String = [Ô]Seu Banco de Dados[Ô]
Strcon = [Ô]server = [Ô] & servidor & [Ô]; user id = [Ô] & usuario & [Ô]; password = [Ô] & senha & [Ô]; 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 str As String
str = [Ô]SELECT usuario FROM tblusuario WHERE usuario = [ô][Ô] & usuario & [Ô][ô] AND senha = [ô][Ô] & CripSenha(senha) & [Ô][ô][Ô]
Dim conn As New MySqlConnection(strcon)
Dim cmd As New MySqlCommand(str, 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
End Class
Muito Obrigado