Mensajes

En todo caso diría que Nakp tiene toda la razón, a todas las mujeres les gusta el "bon o bom", les fascina, hasta ahora no he conocido alguna que demuestre lo contrario.

tienes razón, pero..... yo me contre con una que era alergica a ello y al jugo de naranja y cuando eso de me olvidaba 

prueba así

Código (vb) [Seleccionar] Expandir

Option Explicit

Public rst    As ADODB.Recordset
Public sSQL   As String
Public sConex As String

Private Sub Command1_Click()
    sSQL = "SELECT * FROM Users WHERE " & _
        "UserName='" & Replace(txtUserName.Text, "'", "''") & "' AND " & _
        "Password='" & Replace(txtPassword.Text, "'", "''") & "'"
   
    rst.Open sSQL, sConex, adOpenDynamic, adLockOptimistic
        If rst.EOF And rst.BOF Then
            MsgBox "Invalid user name/password."
        Else
            Select Case (rst!Nivel)
                Case 1:
                    Form1.Show
                Case 2:
                    Form2.Show
            End Select
        End If
    rst.Close
End Sub

Private Sub Form_Load()
    Set rst = New ADODB.Recordset
    sConex = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Replace(App.Path & "\db.mdb", "\\", "\")
End Sub

obviamente hay mejores formas de trabajar

ok, hay varias formas, puedes por ejemplo usar este mismo bloque

Código [Seleccionar] Expandir

' See if we got anything.
    If CLng(rs.Fields(0)) < 1 Then
        ' There is no match.
        ' Do not allow the login.
        Unload Me
        MsgBox "Invalid user name/password."
    Else
        'AQUI
    End If

y donde te señale, haces una nueva consulta a la base de datos y extraes el valor del campo, luego comparas y das el acceso dependiendo del caso, o puedes obtener el valor antes, en el query inicial y luego haces la comparación donde te especifique anteriormente.

saludos

o.O empieza a meterte en su cuarto, es decir, regalale cosas que le duren y le hagan recordarte en la noche cuando este ahi sola, un peluche de su animal preferido, una caja de musica, etc. conocela mas y saca sus gustos, no vaya a ser que te lanze el peluchin por la cara porque simplemente no le gustan y no fuiste capaz de confirmarlo xDDD

un arreglo de flores son buenos puntos para ti capaz y no le gustan tampoco jajaja

saludos!!

jajaja y que? cada uno le da la idea siguiente y el del final le da el code? xDD

[split]

hola, investiga sobre la función split

Seguro te gusta alguno  

*http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/101-libreria-icl-con-400-iconos.htm

Si va en general pero fue hecho en vb
asi que si va aca
lo del boton cancelar es nuevo por que a mi me da.. ahi corrijo y monto para el lunes todo los errores que me digan.

o.O si no hay code, no va acá ..

Hasta que te animaste 

['Fallo2':]

'Fallo2': No puedo comprobarlo, pero creo que seria mejor envez de IsNumeric() que utilizaras Val()
Recuerda trabajar bien con el tipo de variable, cuando sean numero usa Val()

eso no lo entendi..