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 - Nano-rosario

Páginas: [1]
1
Bases de Datos / Re:SQL SERVER e Imagenes
« en: Febrero 12, 2010, 07:23:59 pm »
Justo esta es mi duda, estoy portando un sistema erp que hice en vb a Python pero mejorandolo.... tengo clientes con hasta 100.000 articulos y hasta ahora usaba el metodo de scann, pero si tienen mas de una sucursal, hay que instalar servidores de archivos, para poder subir, borrar las fotos, mas code y mas procesos, por eso decidi meter las fotos en la db, y abrir las consultas a la tabla sin el campo foto, y en otro thead abrir las fotos, para no colgar el sistema mientras se baja, la foto, lo voy a probar... y dsp le cuento, lo estoy programando ahora...

saludos

2
Visual Basic 6 / Re:Editor Skinner 1.0.0
« en: Diciembre 23, 2009, 11:22:37 am »
Gracias leandro, en cuanto al skin, porque puede ser que ante un evento desaparesca el menu? a veces cuando cambio el tamaño del form, otras veces clickeando un control....

saludos

3
Visual Basic 6 / Editor Skinner 1.0.0
« en: Diciembre 17, 2009, 04:57:05 pm »
Leandro en la aplicacion Editor Skinner 1.0.0 tenes un frame Vista previa en Diseño y Ayuda, en el medio tenes podes resizar los frame, se puede saber que codigo usaste?
Porque tengo un form con varios controles y quiero que se puedan ajustar el tamaño, pero los controles son variables, me explico, como en vb, si tenes el explorador de objeto, el cuadro de herramientas, etc.

y otra cosa, si no usas un MDI, cada form que queres aplicar el skin hay que crear el hook?

Saludos

4
Visual Basic 6 / Re:Hook en menu Mensaje click derecho
« en: Diciembre 17, 2009, 04:48:09 pm »
Seba se que es un poco tarde pero para cargar cualquier dato de forma recursiva lo hago asi. Usando db, sino tendrias que filtrar los datos de otra forma, pero la funcion te sirve.

Código: [Seleccionar]
Call Agrega("0", False)

Private Sub Agrega(parent As String, chield As Boolean, Optional n As cTreeViewNode)
    Dim rs As Recordset
    Dim i As Integer
    Dim nod As cTreeViewNode
    Set rs = GetRecordset
    rs.CursorLocation = 3
    rs.Open "Select Id,Nombre,Pic from SM_FO where Parent='" & parent & "'", m_objConnection, adOpenForwardOnly, adLockReadOnly
    If rs.RecordCount > 0 Then
        For i = 1 To rs.RecordCount
            If chield = False Then
                Set nod = tw.Nodes.Add(, , rs(0), rs(1), rs(2))
            Else
                Set nod = n.AddChildNode(rs(0), rs(1), rs(2))
            End If
            Call Agrega(rs(0), True, nod)
            rs.MoveNext
        Next
    End If
    Set rs = Nothing
End Sub

saludos

Páginas: [1]