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.


Temas - E N T E R

Páginas: [1] 2 3 4 5 6 ... 16
1
Hola tengo un Procedimiento Almacenado en MySQL muy sencillo solo es un Select, como puedo recuperar en un recodrset para poder mostrar en una grilla.

Mi Procedimiento en el MySQL es esta :

Código: (SQL) [Seleccionar]
CREATE PROCEDURE mCedulas(IN prm INTEGER)
SELECT cedula FROM clientes WHERE cedula=prm


La forma común de recuperar datos en un recordset uso este código.

Código: (VB) [Seleccionar]
Private Sub Command1_Click()

    Dim cnADO As ADODB.Connection
    Dim rsADO As ADODB.Recordset
   
    Set cnADO = New ADODB.Connection
    Set rsADO = New ADODB.Recordset
     
    rsADO.CursorLocation = adUseClient
   
    cnADO.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=cobranzas; User=root;Password=;Option=3;"
    cnADO.Open

    strSQL = "SELECT cedula FROM clientes WHERE cedula='3230148'"
    rsADO.Open strSQL, cnADO, adOpenStatic, adLockOptimistic, adCmdText
   
    Do Until rsADO.EOF
        With rsADO
            Text1.Text = .Fields("cedula")
            rsADO.MoveNext
        End With
    Loop

End Sub

2
General / Google ofrece cursos online con diplomados
« en: Octubre 23, 2015, 11:14:18 am »
Por si les interesa

Actívate, el primer paso para alcanzar tus metas
El futuro laboral está en el mundo online.
¡Un mundo lleno de posibilidades donde puedes conseguir todo lo que te propongas!
Empieza a formarte desde ya. Apúntate a nuestros cursos online o presenciales y conviértete en un #Activado.

https://cursos.formacionactivate.es/explorer

3
Visual Basic 6 / Cuantas combinaciones puedo hacer de unos numeros
« en: Octubre 01, 2015, 06:53:00 pm »
Hola, tengo el siguiente problema matemático  :'(

Tengo estos números = 1-2-3-4-5-6-7-8-9-10-11-12-13-14-15 Y quiero hacer una mezcla de 5 numero.

Agarrar 5 numeros de los 15 sin repetir 1 numero, Y quiero saber cuantas veces puedo mezclar esos 15 numeros entre 5.

4
General / Este tipo de ComboBox
« en: Septiembre 01, 2015, 11:37:40 am »
Hola alguien sabe donde puedo encontrar esta forma de combo para el Vb6


5
General / New Visual Basic 6.0 installer
« en: Agosto 25, 2015, 07:17:59 pm »
Hola me tope con esto en PSC

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=74428&lngWId=1

Probe en 2 win, Win7 y Win10 pero los 2 me tira errores.

6
Visual Basic 6 / Obtener partes de la Web
« en: Agosto 19, 2015, 06:46:18 pm »
Hola pregunto esto al obtener con el control inet seria el codigo fuente de la web como hago para sacar solo lo que necesito de el.

Ejemplo esta imagen tengo de la web
http://snag.gy/ilLEW.jpg

y solo quiero sacar el IP.

7
Visual Basic 6 / Detectar click sobre icono cargado en el Form
« en: Agosto 08, 2015, 01:45:00 pm »
Hola, tengo esta pequeña función en donde cargo una imagen dentro del form

Código: (VB) [Seleccionar]
Private Sub Command1_Click()
    Call PintarIcono(500, 500, Me)
End Sub

Código: (VB) [Seleccionar]
Public Sub PintarIcono(ByVal xPos As Integer, ByVal yPos As Integer, xForm As Form)

    Dim pic1 As StdPicture
    Set pic1 = LoadPicture("e:\icono.ico")
    xForm.PaintPicture pic1, xPos, yPos
   
End Sub

Hasta ahi todo bien puedo mostrar sin problema el icono, lo que necesito es saber si se puede hacer click sobre el icono que cargue en el form y que haga una accion pero solo donde esta situado el icono que se cargo.

8
Bases de Datos / [SOURCE] Manejo de Creditos
« en: Julio 07, 2015, 01:07:21 pm »
Hola amigos, aca dejo un ejemplo de un sistema de creditos.

Es asi:

Un cliente pide x credito, el mismo cliente puede tener varias facturas y cada factura puede tener x cantidad de cuotas.
Les dejo aca el code a ver que les parece y que me pueden recomendar para mejorar.

Código: (VB) [Seleccionar]
SOURCE
https://mega.co.nz/#!5RtgEJQT!Q55EaIe-mDV5pKp_xiBJjE2w40wXObGcXJ5VhvEfja8



9
Visual Basic 6 / Como puedo saber que Tab esta mostrando el SSTab
« en: Junio 01, 2015, 09:15:01 pm »

Como puedo saber que Tab esta activado en el SSTab. pero no haciendo clic sobre el tab, ejemplo hice click sobre Detalle de Pagas en el SStab y con un boton quiero saber cual es el tab que estoy mostrando.


http://snag.gy/WGTVs.jpg

10
Bases de Datos / Sumar 2 Tablas de mucho a mucho
« en: Junio 01, 2015, 01:09:43 pm »
Hola, tengo dos tablas que quiero sumar algunos campos.

En la tabla cabeza_pagares quiero sumar todas las deudatotales y las einicial según ciruc='ncedula' y estado='DEBE'

Y de la tabla detalle_pagares quiero sumar todas las entregas

cabeza_pagares

http://snag.gy/IuUDj.jpg

detalle_pagares

http://snag.gy/DYLNz.jpg

Tengo este SQL pero no me tira los datos correctos.

Código: (SQL) [Seleccionar]
SELECT SUM(cab.deudatotal) AS deudatotal,SUM(cab.einicial) AS einicial,SUM(det.entregas) AS entregas
FROM cabeza_pagares cab
INNER JOIN detalle_pagares det ON cab.nfactura=det.nfactura
WHERE cab.ciruc='895656' AND cab.estado='DEBE'


11
Visual Basic 6 / Cuota de Clientes
« en: Mayo 21, 2015, 10:12:35 am »
Hola estaba preparando un nuevo sistema de cobro de mi sistema de clientes ahi les dejo la fuente a ver si me dan algunos consejos.


http://snag.gy/qLn3w.jpg

Link de la fuente
https://mega.co.nz/#!EN8gECZS!6ClSbNL3nI1R6xWv1_xIVgv7iWudcpaGSidFslVAUuU

Las cuotas mensual en algunos clientes no van a hacer iguales van a varias en la imagen que mostre este cliente tiene una cuota mensual de 90.000 otros pueden tener por cada mes diferente monto.

12
Bases de Datos / Controlar Error de Conexion BD
« en: Abril 24, 2015, 11:59:31 am »
Hola, tengo este codigo para conectar a mi base datos MySQL

Código: (VB) [Seleccionar]
Public cnADO As ADODB.Connection    '// Conexion ADO
Public rsADO As ADODB.Recordset     '// RecordSet ADO

Public Sub ConectarADO()
   
    On Error GoTo ErrorHandler
   
    Set cnADO = New ADODB.Connection    '// Crear la nueva conexion
    Set rsADO = New ADODB.Recordset     '// Crear nuevo recordset
   
    rsADO.CursorLocation = adUseClient  '// Tipo de cursor a utilizar
    cnADO.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=control_hotel; User=root;Password=123987;Option=3;"
    cnADO.Open                          '// Abrir la nueva conexion
           
ErrorHandler:
   
    If Err <> 0 Then
        MsgBox "Error Nº: " & Format(Err.Number, "##,###0") & vbCrLf & vbCrLf & Err.Source & vbCrLf & vbCrLf & Err.Description, vbCritical, "Error"
    End If

End Sub

Public Sub CerrarADO()
   
    If Not cnADO Is Nothing Then
   
    Else
        cnADO.Close            '// Cerrar la conexion
        Set cnADO = Nothing    '// Liberar conexion de la memoria
        Set rsADO = Nothing    '// Liberar recorset de la memoria
    End If
   
End Sub


Y Este para hacer un SELECT

Código: (VB) [Seleccionar]
Sub CARGAR_ARTICULOS()
       
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    '// Conectar la Base Datos con ADO
        Call ConectarADO
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
                       
        If cnADO.State = False Then
           
            MsgBox "No se puede conectar con el Servidor", vbInformation
           
        Else
           
            StrSQL = "SELECT * FROM articulos"
            rsADO.Open StrSQL, cnADO, adOpenStatic, adLockOptimistic, adCmdText

            Do Until rsADO.EOF
                Set Lv = LArticulos.ListItems.Add()
                With rsADO
                    Lv.Text = .Fields("codigo")
                    Lv.SubItems(1) = .Fields("nombre") & ""
                    rsADO.MoveNext
                End With
            Loop
           
        End If
       
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    '// Cerrar la base de datos y liberar la memoria
        Call CerrarADO
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
       
End Sub


Ahora el error que quiero controlar es cuando el servidor no esta listo para conectarse que solo me salga un error informando que no se puede conectar y ya nada.

Con este metodo si voy a hacer por ejemplo 4 o 5 consultas me sale 5 veces el error informando que no hay conexion

13
Visual Basic 6 / Optener el timer total del VLC
« en: Abril 20, 2015, 11:09:35 am »
Hola, hay una manera desde el VB6 leer el timer total de PlayList del VLC.

Screen

Link: http://snag.gy/VjnZH.jpg

Aca deje una foto de como el VLC tiene el timer que quiero obtener desde el VB6

14
Visual Basic 6 / Imprimir con Printer.CurrentX y Printer.CurrentY
« en: Abril 09, 2015, 10:55:04 am »
Hola tengo un proyecto en donde utilizo Printer.CurrentX y Printer.CurrentY

Lo que pasa es que al llegar al final de la pagina no continua bien la impresion saltea por cada linea una hoja.

Este es mi codigo.

Código: (VB) [Seleccionar]
Private Sub Command1_Click()
   
    Dim Contar As Long
           
    Printer.ScaleMode = vbMillimeters
   
    For i = 1 To 200

        Contar = Contar + 4
       
        Printer.CurrentX = 35
        Printer.CurrentY = 28 + Contar
       
        Printer.Print "HOLA"
               
    Next i

    Printer.EndDoc
   
End Sub

Aca una imagen como queda.


http://snag.gy/fHbVR.jpg

15
Visual Basic 6 / Programa para Carniceria
« en: Marzo 02, 2015, 06:26:41 pm »
Hola, estoy vendiendo a un cliente mi sistema de stock que va usar para carniceria.

El problema que tengo es que el cliente no compra la carne no por unidad, si no una vaca entera y de ese entero se saca

Carnaza de primera
Carnaza de segunda
Puchero
Costilla
etc etc...

Como ustedes harían para registrar el stock en su articulo. El por ejemplo quiere poner compre una vaca tiene 800 kilos, no describe cuanto kilo de primera ni de segunda compro.

Ojala me entiendan...

Páginas: [1] 2 3 4 5 6 ... 16