Ver Mensaje Individual
  #8 (permalink)  
Antiguo 29/07/2010, 23:04
rikimm
 
Fecha de Ingreso: agosto-2008
Ubicación: D,F
Mensajes: 412
Antigüedad: 16 años, 7 meses
Puntos: 4
Respuesta: NOVATO: Login VS2008 & MySQL

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:
Ver original
  1. Imports System.Data.OleDb
  2. Imports System.Data
  3. Public Class Login
  4.     Private veces As Integer = 0
  5.     Private Const NumeroIntentos As Integer = 3
  6.  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  7.  
  8.         If Me.TextBox2.Text <> "" And Me.TextBox1.Text <> "" Then
  9.             Dim cn As New OleDbConnection(sConexion)
  10.             Dim estatus As Integer
  11.             Dim forma As New Form2
  12.             ' Permitir varios intentos
  13.             veces = veces + 1
  14.             'Comenzamos una transacción
  15.             Try
  16.                 cn.Open()
  17.                 ' evitamos la inyección de código reemplazando las comillas simples
  18.                 ' por otro carácter
  19.                 Dim sql As String = "Select usuario From usuarios Where " & _
  20.                 " contraseña = '" & Trim(Replace(Me.TextBox2.Text, "'", "k")) & _
  21.                 "' And usuario = '" & Trim(Replace(Me.TextBox1.Text, "'", "k")) & "'"
  22.  
  23.                 'creamos un comando
  24.                 Dim cmd As New OleDbCommand(sql, cn)
  25.                 'leemos el valor y lo convertimos a entero
  26.                 estatus = CInt(cmd.ExecuteScalar().ToString)
  27.             Catch ex As Exception
  28.                 'mostramos el error
  29.                 If Err.Number = 91 Then
  30.                     MessageBox.Show("No se encontro registro ")
  31.                 Else
  32.                     MessageBox.Show("error " & Err.Number.ToString & vbCrLf & ex.Message)
  33.                 End If
  34.             Finally
  35.                 'cerramos la conexion solo si esta abierta
  36.                 If (cn.State And ConnectionState.Open) <> 0 Then
  37.                     cn.Close()
  38.                 End If
  39.             End Try
  40.             If estatus = 1 Then -------------------recuerda que esta linea o el valor de 1 tiene que estar en la base de datos  
  41.                 forma.Show()
  42.                 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
  43.                 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
  44.             End If
  45.             '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
  46.         Else
  47.             MessageBox.Show("Ingresa tus datos completos", "Faltan Datos", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
  48.             ' todavía puedes hacerlo de esta forma
  49.  
  50.         End If
  51.  
  52.     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
__________________
Si el amor a una mujer es igual al amor a la programacion
cual de las dos escojerias...mmmm buena pregunta jejeje

Última edición por rikimm; 29/07/2010 a las 23:09