none
CÓDIGO PARA FORMULÁRIO DE LOGIN VISUAL BASIC 2008 EXPRESS EDITION RRS feed

  • Pergunta

  • <object height="0" id="79c959ca-5968-8ca3-7aca-0bb10993829e" type="application/gas-events-cef" width="0"></object>

    Boa tarde senhores.
    A um Tempinho estou lutando com este código e não estou conseguindo resolver estes 3 erros que estara abaixo do código.

    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 Class
    Desde ja agradeço.

    sexta-feira, 28 de junho de 2013 18:47

Respostas

  • <object height="0" id="79c959ca-5968-8ca3-7aca-0bb10993829e" type="application/gas-events-cef" width="0"></object>

    Boa tarde senhores.
    A um Tempinho estou lutando com este código e não estou conseguindo resolver estes 3 erros que estara abaixo do código.

    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 Class
    Desde ja agradeço.

    Desculpem esqueci os 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.

    sexta-feira, 28 de junho de 2013 18:49