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

Páginas: [1]
1
Visual Basic 6 / Re:Conexión en red entre Access y Visual basic 6.0
« en: Enero 18, 2017, 09:15:32 pm »
Se que es un post muy viejo, pero si alguien como yo sigue buscando soluciones les dejo la solución con la ayuda de varios comentarios anteriores:
        Dim RutaDB As String
       
        Open App.Path + "\dbacceso.ini" For Input As #1
        Line Input #1, PathDbase
        Close #1
        RutaDB = PathDbase
    With Base
        .CursorLocation = adUseClient
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Properties("Data Source").value = RutaDB
        .Properties("Jet OLEDB:Database Password") = "1234"
        .Open
    end with

2
Visual Basic 6 / cargar combo
« en: Julio 31, 2010, 04:38:20 pm »
Hola , resulta que necesito cargar un combo con codigos contables y no he podido hacerlo. Los codigos tienen la siguiente estructura:
Clase: primer digito
Grupo: primeros dos digitos
Cuenta: primeros cuatro digitos
Subcuenta: primeros seis digitos
Auxiliar1: primeros nueve digitos
el usuario puede realizar registros con codigos contables tipo subcuenta o auxiliar1, pero si existe auxiliar1 no debe permitir el registro en subcuenta, tengo una adaptación del codigo en foxpro pero no he podido aplicarlo a VB6:
*
PROCEDURE sel
IF thIsform.soLoctasmov .AND. .NOT. EMPTY(thIsform.liSta1.vaLue)
LOCAL xcTa, nuMe, nrEcs
xcTa = ALLTRIM(thIsform.liSta1.vaLue)
nuMe = LEN(xcTa)
cuRarea = SELECT()
SELECT plActas
COUNT FOR LEFT(coDigo, nuMe)==xcTa .AND. .NOT. DELETED('PlaCtas') ;
TO nrEcs
SELECT (cuRarea)
IF nrEcs>1
= MESSAGEBOX('No puede elegir una cuenta mayor', 16, 'Mensaje')
RETURN
ENDIF
ENDIF
thIsform.rpTa = thIsform.liSta1.vaLue
RELEASE thIsform
ENDPROC
*
Este mensaje aparece cuando se quiere hacer un registro con una cuenta que tiene mas digitos, ejemplo
existe la cuenta 110505 pero digito 1105, en este caso me advierte "no puede elegir una cuenta mayor"

Gracias por la ayuda

Páginas: [1]