NOVATO: Login VS2008 & MySQL

[SirDuque]

Hola muchachos, estoy ante la necesidad de diseñar en VB por una jodida controladora fiscal.
pero como esto es nuevo para mi, el lenguaje se me complica un poco.

Por ahora de tuto en tuto, voy obteniedo un poco de cada cosa.

Estoy trabajando con Visual Studio 2008 Pro SP1 y MySQL.
Ya instale el conector de MySQL
Ya configure Origenes de datos.
Tengo un modelo de login.

Bien ahora lo que necesito es realizar la consulta.

Código C++:

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "Mariano" And TextBox2.Text = "*********" Then
            MsgBox("Bienvenido", MsgBoxStyle.Information, "Login")
            Form2.Show()
            Me.Close()
 
        Else
            MsgBox("Error", MsgBoxStyle.Critical, "Error")
        End If
    End Sub
End Class
 

Tengo que cambiar esta linea:

Código:

If TextBox1.Text = "Mariano" And TextBox2.Text = "*********" Then

y que el if realize la consulta en la tabla Usuarios de la BD.

bueno gracias por tomar un tiempito leyendo.

[rikimm]

mas bien tienes q cambiar todo porque tienes que hacer la conexion con my sql y luego sacar los datos etc t voy a dejar un ejemplo en vb

Código vb:

Public sAppPath As String = Application.StartupPath.ToString
    Public sBaseDatos As String = sAppPath & "\doggyp.mdb"
    Public sConexion As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBaseDatos
    la parte que esta en public esos estan en un modulo
y en el boton pones esto
 
    If Me.TextBox2.Text <> "" And Me.TextBox1.Text <> "" Then
            Dim cn As New OleDbConnection(sConexion)
            Dim estatus As Integer
            Dim forma As New MenuDP
            ' Permitir varios intentos
            veces = veces + 1
            'Comenzamos una transacción
            Try
                cn.Open()
                ' evitamos la inyección de código reemplazando las comillas simples
                ' por otro carácter
                Dim sql As String = "Select estatus From Usuarios Where " & _
                " pass = '" & Trim(Replace(Me.TextBox2.Text, "'", "k")) & _
                "' And user = '" & Trim(Replace(Me.TextBox1.Text, "'", "k")) & "'"
 
                'creamos un comando
                Dim cmd As New OleDbCommand(sql, cn)
                'leemos el valor y lo convertimos a entero
                estatus = CInt(cmd.ExecuteScalar().ToString)
            Catch ex As Exception
                'mostramos el error
                If Err.Number = 91 Then
                    MessageBox.Show("No se encontro registro ")
                Else
                    MessageBox.Show("error " & Err.Number.ToString & vbCrLf & ex.Message)
                End If
            Finally
                'cerramos la conexion solo si esta abierta
                If (cn.State And ConnectionState.Open) <> 0 Then
                    cn.Close()
                End If
            End Try
 
 
            If estatus = 1 Then
                forma.Show()
                forma.Button5.Top = 128
                forma.Button5.Left = 658
                
            End If
            'Hide()
        Else
            MessageBox.Show("Ingresa tus datos completos", "Faltan Datos", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            ' todavía puedes hacerlo de esta forma
 
        End If
 

la parte donde esta la condicion de estatus es para abrir un nuevo fomulario

[SirDuque]

Wow que aspero..
Rikimm gracias por el aporte, y apesar que explicas barias lineas.
Muchas cosas no entiendo.
Para empesar te escribo la rama de mi proyecto:

Login Simple
_ My proyect
_ app.config
_ astoreDataSet.xsd <- Origenes base de datos
_ Form1.vd <- Login
_ Form2.vd

Por lo que lei tengo que crear un Modulo.
cree un
_ Module.vd

y pege esto entre Module Module1 & End Module

Código ASP:

Public sAppPath As String = Application.StartupPath.ToString
            Public sBaseDatos As String = sAppPath & "\doggyp.mdb"
            Public sConexion As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBaseDatos
            'la parte que esta en public esos estan en un modulo
 

Pero tiene errores
Ahora como o donde conecto el form1.vb con la bd
Me podrian ayudar?
en donde sumplanto¿?

Host: 127.0.0.1
BD: Astore
Tabla: Usuario
Columnas: usuarios contraseña
alguien tiene a mano un tuto a mano relacionado al tema, para que no realize preguntas tan basicas.

[SirDuque]

Tambien en el form1 me tira 5 errores seguro que arrastro ya q no configure en ningun lado la BD.

Error 1 El tipo 'OleDbConnection' no está definido. C:\Documents and Settings\Administrador\Mis documentos\Visual Studio 2008\Projects\Login Simple\Login Simple\Form1.vb 6 27 Login Simple

Error 2 El tipo 'MenuDP' no está definido. C:\Documents and Settings\Administrador\Mis documentos\Visual Studio 2008\Projects\Login Simple\Login Simple\Form1.vb 8 30 Login Simple

Error 3 No se ha declarado el nombre 'veces'. C:\Documents and Settings\Administrador\Mis documentos\Visual Studio 2008\Projects\Login Simple\Login Simple\Form1.vb 10 13 Login Simple

Error 4 No se ha declarado el nombre 'veces'. C:\Documents and Settings\Administrador\Mis documentos\Visual Studio 2008\Projects\Login Simple\Login Simple\Form1.vb 10 21 Login Simple

Error 5 El tipo 'OleDbCommand' no está definido. C:\Documents and Settings\Administrador\Mis documentos\Visual Studio 2008\Projects\Login Simple\Login Simple\Form1.vb 21 32 Login Simple

[rikimm]

si por ejemplo en el modulo en la parte sbasedatos en ves de doggy.mdb pones tu base de datos que ocupas lo del modulo es para crear variables que se pueda ocupar en todas las form y en la parte donde te dije que va lo del boton busca la parte de sql ahi vas a sistutir el estatus por el idetificador que tengas en tu tabla en la mia es estatus porque ahi se que tipo de usuario es 1 o 2 que podria ser 1 para usuario y 2 para administrador despues del form va la tabla de la base de datos y si sigues vas a ver uno que dice pass y user eso igual lo sustituyes por lo que tengas en tu base de datos que para ti es usuario y contraseña

[rikimm]

tambien se me olvido que arriba de la parte de class tienes que poner import system.data y import system.data.oleDb eso elimina los errores 1 y 5

el error que te manda del menudp es porque ahi estoy dando a llamar la siguiente form (osea mi form se llama menuDP) esta parte lo vas a sustituir asi
Dim forma As New aqui poner el nombre de tu form
asi eliminas el erro 2

el error 3 y 4 pones esto abajo de las lineas import porque se crea como que una funcion algo asi como el boton
Public Class Login
Private veces As Integer = 0
Private Const NumeroIntentos As Integer = 3

[SirDuque]

Te muestro lo que voy haciendo:

Este es el form 1

Código VS2008:

Imports System.Data.OleDb
Imports System.Data
 
 
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        If Me.TextBox2.Text <> "" And Me.TextBox1.Text <> "" Then
            Dim cn As New OleDbConnection(sConexion)
            Dim estatus As Integer
            Dim forma As New Form2
            ' Permitir varios intentos
            veces = veces + 1
            'Comenzamos una transacción
            Try
                cn.Open()
                ' evitamos la inyección de código reemplazando las comillas simples
                ' por otro carácter
                Dim sql As String = "Select usuario From usuarios Where " & _
                " contraseña = '" & Trim(Replace(Me.TextBox2.Text, "'", "k")) & _
                "' And usuario = '" & Trim(Replace(Me.TextBox1.Text, "'", "k")) & "'"
 
                'creamos un comando
                Dim cmd As New OleDbCommand(sql, cn)
                'leemos el valor y lo convertimos a entero
                estatus = CInt(cmd.ExecuteScalar().ToString)
            Catch ex As Exception
                'mostramos el error
                If Err.Number = 91 Then
                    MessageBox.Show("No se encontro registro ")
                Else
                    MessageBox.Show("error " & Err.Number.ToString & vbCrLf & ex.Message)
                End If
            Finally
                'cerramos la conexion solo si esta abierta
                If (cn.State And ConnectionState.Open) <> 0 Then
                    cn.Close()
                End If
            End Try
            If estatus = 1 Then
                forma.Show()
                forma.Button5.Top = 128
                forma.Button5.Left = 658
            End If
            'Hide()
        Else
            MessageBox.Show("Ingresa tus datos completos", "Faltan Datos", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            ' todavía puedes hacerlo de esta forma
 
        End If
 
    End Sub
End Class
 

este es el modulo:

Código Modulo:

Module Module2
    Public sAppPath As String = Application.StartupPath.ToString
    Public sBaseDatos As String = sAppPath & "\astore.mdb"
    Public sConexion As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBaseDatos
    'la parte que esta en public esos estan en un modulo
 
End Module
 

Y los errores son:

Código errores:

Error   1   No se ha declarado el nombre 'veces'.   C:\Documents and Settings\Administrador\Mis documentos\Visual Studio 2008\Projects\Login Simple\Login Simple\Form1.vb   15  13  Login Simple
 
Error   2   No se ha declarado el nombre 'veces'.   C:\Documents and Settings\Administrador\Mis documentos\Visual Studio 2008\Projects\Login Simple\Login Simple\Form1.vb   15  21  Login Simple
 

si bien me brindas una solucion para esto:

el error 3 y 4 pones esto abajo de las lineas import porque se crea como que una funcion algo asi como el boton
Public Class Login
Private veces As Integer = 0
Private Const NumeroIntentos As Integer = 3

Cuando lo pongo me aparecen 15 errores aprox y me daña el form. :S

Pregunta es neceserio, segun Vs2008 es variable, y no esta definida :S de donde sale veces?

[rikimm]

creo que no me entendi muy bien eso de los errores que te faltan verdad te voya poner el codigo completo como lo tengo pero recuerda que tienes que modificar mas cosas que estas dejando como yo lo deje

Código vb2008:

Imports System.Data.OleDb
Imports System.Data
Public Class Login
    Private veces As Integer = 0
    Private Const NumeroIntentos As Integer = 3
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        If Me.TextBox2.Text <> "" And Me.TextBox1.Text <> "" Then
            Dim cn As New OleDbConnection(sConexion)
            Dim estatus As Integer
            Dim forma As New Form2
            ' Permitir varios intentos
            veces = veces + 1
            'Comenzamos una transacción
            Try
                cn.Open()
                ' evitamos la inyección de código reemplazando las comillas simples
                ' por otro carácter
                Dim sql As String = "Select usuario From usuarios Where " & _
                " contraseña = '" & Trim(Replace(Me.TextBox2.Text, "'", "k")) & _
                "' And usuario = '" & Trim(Replace(Me.TextBox1.Text, "'", "k")) & "'"
 
                'creamos un comando
                Dim cmd As New OleDbCommand(sql, cn)
                'leemos el valor y lo convertimos a entero
                estatus = CInt(cmd.ExecuteScalar().ToString)
            Catch ex As Exception
                'mostramos el error
                If Err.Number = 91 Then
                    MessageBox.Show("No se encontro registro ")
                Else
                    MessageBox.Show("error " & Err.Number.ToString & vbCrLf & ex.Message)
                End If
            Finally
                'cerramos la conexion solo si esta abierta
                If (cn.State And ConnectionState.Open) <> 0 Then
                    cn.Close()
                End If
            End Try
            If estatus = 1 Then -------------------recuerda que esta linea o el valor de 1 tiene que estar en la base de datos  
                forma.Show()
                forma.Button5.Top = 128-------------- esto no es necesario lo que hace es que tu form se ponga en cierta posision de la pantalla al igual que la linea de abajo
                forma.Button5.Left = 658---------la parte de top toma medida de la parte de arriba de tu pantalla y left  de lado izq hacia la derecha si no me ekivoco
            End If
            'Hide()----------------- esto lo que hace es como que ocultar la form por eso esta como comentario porque si no cuando cierres el programa asi de simple vista no lo hace porque no esta cerra esta ventana que tiene el hide
        Else
            MessageBox.Show("Ingresa tus datos completos", "Faltan Datos", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            ' todavía puedes hacerlo de esta forma
 
        End If
 
    End Sub
 

espero que ya este solucionado y las partes dond te explique son como que opcional menos la condicion de estatus

otra observacion que vi es que tu tambien lo estas haciendo con access tu lo kieres con mysql si no me equivoco a menos que te hayas arrepentido

[SirDuque]

Iniciado por rikimm

creo que no me entendi muy bien eso de los errores que te faltan verdad te voya poner el codigo completo como lo tengo pero recuerda que tienes que modificar mas cosas que estas dejando como yo lo deje
-----....---
espero que ya este solucionado y las partes dond te explique son como que opcional menos la condicion de estatus

otra observacion que vi es que tu tambien lo estas haciendo con access tu lo kieres con mysql si no me equivoco a menos que te hayas arrepentido

No rikimm no te equivocas lo quiero hacerlo con MySQL por que donde voy a implementar este pequeño programita, ya esta funcionando este servidor.

Te paso a contar como van las cosas...

el tema es el siguiente... en el modulo pusimos "/astore.mdb"
y cuando corro el programa me tira el siguiente error:

Error 5
No se pudo encontrar el archivo 'C:/Documents and Settings/Administrador/Configuracion local/Datos de programa/Temporary Proyects/WidnowsApplication1/bin/debug/astore.mdb

Te muestro la rama del proyecto (objetos/componentes)

Proyecto

WindowsApplication1
-- My Proyect
-- app.config
-- astore.mdf
-- astoreDataSet.xsd
-- Form1.vb
-- Form2.vb
-- Module1.vb

Origenes de datos

astoreDataSet
+-usuarios
----usuario
----contraseña
----estatus

Código Modulo:

Module Module1
    Public sAppPath As String = Application.StartupPath.ToString
    Public sBaseDatos As String = sAppPath & "\astore.mdb"
    Public sConexion As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBaseDatos
    'la parte que esta en public esos estan en un modulo
 
End Module
 

Código Form1:

Imports System.Data.OleDb
Imports System.Data
Public Class Login
 
    Private veces As Integer = 0
    Private Const NumeroIntentos As Integer = 3
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        If Me.TextBox2.Text <> "" And Me.TextBox1.Text <> "" Then
            Dim cn As New OleDbConnection(sConexion)
            Dim estatus As Integer
            Dim forma As New Form2
            ' Permitir varios intentos
            veces = veces + 1
            'Comenzamos una transacción
            Try
                cn.Open()
                ' evitamos la inyección de código reemplazando las comillas simples
                ' por otro carácter
                Dim sql As String = "Select usuario From usuarios Where " & _
                " contraseña = '" & Trim(Replace(Me.TextBox2.Text, "'", "k")) & _
                "' And usuario = '" & Trim(Replace(Me.TextBox1.Text, "'", "k")) & "'"
 
                'creamos un comando
                Dim cmd As New OleDbCommand(sql, cn)
                'leemos el valor y lo convertimos a entero
                estatus = CInt(cmd.ExecuteScalar().ToString)
            Catch ex As Exception
                'mostramos el error
                If Err.Number = 91 Then
                    MessageBox.Show("No se encontro registro ")
                Else
                    MessageBox.Show("error " & Err.Number.ToString & vbCrLf & ex.Message)
                End If
            Finally
                'cerramos la conexion solo si esta abierta
                If (cn.State And ConnectionState.Open) <> 0 Then
                    cn.Close()
                End If
            End Try
            If estatus = 1 Then
                forma.Show()
                forma.Button5.Top = 128
                forma.Button5.Left = 658
            End If
            'Hide()----------------- esto lo que hace es como que ocultar la form por eso esta como comentario porque si no cuando cierres el programa asi de simple vista no lo hace porque no esta cerra esta ventana que tiene el hide
            If MessageBox.Show("Ingresa tus datos completos", "Faltan Datos", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) Then
                ' todavía puedes hacerlo de esta forma
 
            End If
        End If
 
    End Sub
 
 
End Class
 

Como creo el astore.mdb ?

[rikimm]

ammmmm creo que me vas a matar compañero porque el ejemplo te lo estoy poniendo comn access aunque no habra diferencia solo que cambiaras la intrucions o conexion de la que deve llevar con mysql y en ves de astore.mdb seria astore.sql y te recomendaria que utilizaras un visor de mysql para crear las bases en caso de que no sepas utilizar el lenuaje sql

[SirDuque]

Iniciado por rikimm

ammmmm creo que me vas a matar compañero porque el ejemplo te lo estoy poniendo comn access aunque no habra diferencia solo que cambiaras la intrucions o conexion de la que deve llevar con mysql y en ves de astore.mdb seria astore.sql y te recomendaria que utilizaras un visor de mysql para crear las bases en caso de que no sepas utilizar el lenuaje sql

Bueno rikimm, te cuento que mysql no es el problema, lo trabajo hace tiempo...
lo que no entiendo mucho es el lenguaje y la forma de trabajode VS2008...
por otro lado astore.mdb o astore.sql, son archivos que el aplicativo, busca en el directorio ej:

C:\Documents and Settings\Administrador\Configuración local\Datos de programa\Temporary Projects\WindowsApplication1\bin\Debug

si no mal interpreto el modulo esta causando esto.

Public sBaseDatos As String = sAppPath & "\astore.mdb" <-- direcctorio del access

Alguna idea (?)

[rikimm]

ese astore lo tienes puesto en la carpeta bin debug mas omenos seria asi la direcion
C:\Users\riki\Documents\Visual Studio 2008\Projects\SistemaDP\SistemaDP\bin\Debug
busca la carpeta de tu proyecto y busca el bin y luego luego esta el debug ahi debes pegar tu bd

[SirDuque]

Claro rikimm pasa que MySQL no es como access y no es un archivo. por lo tanto si tengo que darle una conexion por ejemplo en PHP

host: 127.0.0.1
user: root
password: *********
db: astore

mysql_select_db($db,mysql_connect($host,$user,$pas sword););

[SirDuque]

Rikimm puse un astore.mdb con:

tabla usuarios
columnas
id 1
usuario mariano
contraseña ******
estatus 1

y al correrlo me tira el siguiente error:


error 13
La conversion de la cadena "mariano" en el tipo 'Integer' no es valida.

[rikimm]

ya revisaste en tu bd que usuario este como texto en ves de entero

[SirDuque]

Iniciado por rikimm

ya revisaste en tu bd que usuario este como texto en ves de entero

Rikimm tanto

usuario
contraeña
estatus

estan en modo texto.

antes estatus estaba en modo numero
pero lo cambie y tiene el mismo efecto.

[rikimm]

olle el estatus lo devs tener en numerico pork lo estas delcarando como interger a lo mejor sea por eso que te manda el error y otra pregunta y exactamente en q parte te recalca el error que tienes

[SirDuque]

me fui a hacer este curso ya vengo :D!

Microsoft