• Jueves 14 de Noviembre de 2024, 18:43

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - Giny

Páginas: [1]
1
VB .NET / Funcion mousedown
« en: Martes 9 de Agosto de 2011, 14:53 »
Hola...

Quisiera saber si el evento MouseDown cambió la sintaxis???
porque tengo este encabezado en el codigo del procedimiento
Código: [Seleccionar]

Private Static Sub cmdButton_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Cómo es ahora en .net?

Gracias  :think:

2
Bases de Datos / Comparar campos txt con sql en vb6
« en: Jueves 22 de Octubre de 2009, 19:40 »
Estoy tratando de comparar datos de un campo txt a un campo de sql en la bd. Tengo que hacer un inicio de sesion en donde los usuarios digitan el nombre y la contraseña y si esta correcto los deja entrar al sistema.

tengo el siguiente codigo:
sSelect = "SELECT * FROM Usuarios WHERE Nom ='" & (Text1.Text) & "' "
    cn.Open "Provider=SQLOLEDB; " & _
             "Initial Catalog=STO; " & _
             "Data Source=(local); " & _
             "integrated security=SSPI; persist security info=True;"
    ' El recordset para acceder a los datos
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    ' Abrir el recordset de forma estática, no vamos a cambiar datos
    rs.Open sSelect, cn, adOpenStatic

If rs("Nom") = text1.text Then
                        rs.MoveFirst
                        Do
                            nombre = Text1.Text
                            Form1.Show
                            enco = 1
                            Unload Me
                            If (rs!Nivel = 2) Then
                                Form1.Bitcora.Visible = False
                                Form1.Mod_Usua.Visible = False
                                Form1.Reg_Usuario.Visible = False
                            Else
                                If (rs!Nivel = 3) Then
                                    Form1.Sitio1.Visible = False
                                    Form1.Bitcora.Visible = False
                                    Form1.Funcio3.Visible = False
                                    Form1.Mod_Usua.Visible = False
                                    Form1.Modificar.Visible = False
                                    Form1.nom.Visible = False
                                    Form1.Regis.Visible = False
                                    Form1.Reg_Usuario.Visible = False
                                End If
                            End If
                        'End If
                        rs.MoveNext
                    Loop Until ((enco = 1) Or (rs.EOF))
Me despliega error 3021....
Xfa una pronta solucion al problema!!! GRACIAS  :good:

Páginas: [1]