Ver Mensaje Individual
  #2 (permalink)  
Antiguo 28/07/2010, 21:03
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

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:
Ver original
  1. Public sAppPath As String = Application.StartupPath.ToString
  2.     Public sBaseDatos As String = sAppPath & "\doggyp.mdb"
  3.     Public sConexion As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBaseDatos
  4.     la parte que esta en public esos estan en un modulo
  5. y en el boton pones esto
  6.  
  7.     If Me.TextBox2.Text <> "" And Me.TextBox1.Text <> "" Then
  8.             Dim cn As New OleDbConnection(sConexion)
  9.             Dim estatus As Integer
  10.             Dim forma As New MenuDP
  11.             ' Permitir varios intentos
  12.            veces = veces + 1
  13.             'Comenzamos una transacción
  14.            Try
  15.                 cn.Open()
  16.                 ' evitamos la inyección de código reemplazando las comillas simples
  17.                ' por otro carácter
  18.                Dim sql As String = "Select estatus From Usuarios Where " & _
  19.                 " pass = '" & Trim(Replace(Me.TextBox2.Text, "'", "k")) & _
  20.                 "' And user = '" & Trim(Replace(Me.TextBox1.Text, "'", "k")) & "'"
  21.  
  22.                 'creamos un comando
  23.                Dim cmd As New OleDbCommand(sql, cn)
  24.                 'leemos el valor y lo convertimos a entero
  25.                estatus = CInt(cmd.ExecuteScalar().ToString)
  26.             Catch ex As Exception
  27.                 'mostramos el error
  28.                If Err.Number = 91 Then
  29.                     MessageBox.Show("No se encontro registro ")
  30.                 Else
  31.                     MessageBox.Show("error " & Err.Number.ToString & vbCrLf & ex.Message)
  32.                 End If
  33.             Finally
  34.                 'cerramos la conexion solo si esta abierta
  35.                If (cn.State And ConnectionState.Open) <> 0 Then
  36.                     cn.Close()
  37.                 End If
  38.             End Try
  39.  
  40.  
  41.             If estatus = 1 Then
  42.                 forma.Show()
  43.                 forma.Button5.Top = 128
  44.                 forma.Button5.Left = 658
  45.                
  46.             End If
  47.             'Hide()
  48.        Else
  49.             MessageBox.Show("Ingresa tus datos completos", "Faltan Datos", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
  50.             ' todavía puedes hacerlo de esta forma
  51.  
  52.         End If
la parte donde esta la condicion de estatus es para abrir un nuevo fomulario
__________________
Si el amor a una mujer es igual al amor a la programacion
cual de las dos escojerias...mmmm buena pregunta jejeje