• Miércoles 8 de Mayo de 2024, 00:13

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 - juanjo

Páginas: [1]
1
Visual Basic 6.0 e inferiores / Re: ¿¿access Como Bd Access Multiusuario??
« en: Viernes 23 de Enero de 2004, 01:09 »
ESPERO TE SIRVA ESTO:

SUB CREA_USUARIO_ACCESS()

DIM USER AS STRING, USERPID AS STRING, USERPASS AS STRING
DIM W AS WORKSPACE, NEW_USER AS USER
USER="JUANJO"
USERPID="123"
USERPASS="MIPASS1243"
SET W=DBENGINE.WORKSPACES(0)
SET NEW_USER=W.CREATEUSER(USER, USERPID, USERPASS)
W.USERS.APPEND NEW_USER
NEW_USER.GROUPS.APPEND W.CREATEWORKGROUP("USUARIOS")

END SUB

AHORA LO QUE NO TENGO MUY CLARO ES QUE SI ESTA INFORMACION SE CREA EN LA BASE DE DATOS ACTIVA QUE ESTE CONTENIDA EN EL WORKSPACE(0), O ACCESS LO HACE EN FORM GENERAL, PARA ESO HAY QUE AVERIGUAR UN POCO MAS SOBRE LA SEGURIDAD DE ACCESS, PERO LA VERDAD ACCESS NO ME INPORTA MUCHO, SI QUIERES UN CONSEJO REALMENTE BUENO, CAMBIATE DE POR VIDA A SQL SERVER U ORACLE, AHI SI QUE ES INPORTANTE LA SEGURIDAD,  BUENO ESPERO HABERTE AYUDADO CON MIS HUMILDES CONOCIMIENTOS, BUENA SUERTE...!!!

2
Visual Basic 6.0 e inferiores / Re: Maskedbox
« en: Viernes 23 de Enero de 2004, 00:53 »
NOP JOSE, NO FUNCIONA, AL PARECER LA FUNCION LEN NO SABE SI TOMAR EL LARGO DE ÑA PROPIEDAD MASK, O DE LA PROPIEDAD TEXT DEL MASKEDBOX, PERO LA IDEA ES ESA, PERO EN VEZ DE HABILITAR LOS TEXT, QUIERO HABILITAR UN BOTON, PERO LA IDEA ES LA MISMA ASI QUE NO HAY PROBLEMA, GRACIAS...

HABER SI TIENES OTRA SOLUCION POR AHI, GRACIAS...

3
Visual Basic 6.0 e inferiores / Re: Validacion Del Keypress
« en: Jueves 22 de Enero de 2004, 06:07 »
ojala te sirva esto:

private sub text1_keypress(keyascii as integer)
if keyascii=13 then
     if isnumeric(text1) then
        msgbox "solo letras"
        text1.setfocus
     end if
end if

4
Visual Basic 6.0 e inferiores / Maskedbox
« en: Jueves 22 de Enero de 2004, 06:00 »
necesito validar un masked box, tengo en 1 formulario 1 maskedbox, 3 text + 1 boton...

estoy intentando validar el boton de la siguiente manera:

Private Sub Text1_Change()
If Len(mskRut) < 12 Or Text1 = "" Or Text2 = "" Then
    cmdGuardar.Enabled = False
Else
    cmdGuardar.Enabled = True
End If

End Sub

Private Sub Text2_Change()
If Len(mskRut) < 12 Or Text1 = "" Or Text2 = "" Then
    cmdGuardar.Enabled = False
Else
    cmdGuardar.Enabled = True
End If

End Sub

Private Sub mskRut_Change()
If Len(mskRut.SelText) < 12 Or Text1 = "" Or Text2 = "" Then
    cmdGuardar.Enabled = False
Else
    cmdGuardar.Enabled = True
End If

End Sub

Private Sub Form_Load()
mskRut.Mask = "##.###.###-&"
cmdGuardar.Enabled = False
End Sub


LA IDEA ES KE SOLO SE ACTIVE (ENABLED=TRUE) EL BOTON CUANDO EL INGRESO DE TODOS LOS TEXT MAS EL MASKEDBOX SEA CORRECTO, PERO NO HE PODIDO HACERLO, HABER SI PUEDEN ECHARME UNA MANITO, GRACIAS...

Páginas: [1]