NOVATO: Login VS2008 & MySQL

[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 ?