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 - E N T E R

Páginas: 1 2 3 4 [5] 6 7 8 9 10 ... 71
61
General / Re:¿El mejor Firewall?
« en: Mayo 02, 2015, 10:01:38 am »
jajajaja que buenooo

62
General / Re:Utilizar el ocx de Flash en Win7 de 64 bits
« en: Abril 30, 2015, 10:25:20 am »
Hola yo la verdad no lo use nunca, pero ahora baje esta:

http://www.ocxdump.com/download-ocx-files_new.php/ocxfiles/F/Flash9.ocx/9,0,16,0Debugger0/download.html

y lo copie en el C:\Windows\System32 y funciona sin problemas

63
Bases de Datos / Re:Controlar Error de Conexion BD
« en: Abril 25, 2015, 12:23:25 pm »
Si amigo eso es justamente como tengo, tengo varias conexiones como esta en la imagen tengo 6 conexiones por cada local

Una conexion es por venta contada, otra por credito cobrados, otra por entregas iniciales. y asi por cada item.

Y si no hay conexión en unos de ellos me aparece 12 mensajes de error de conexion por cada sucursal.

64
Bases de Datos / Re:Controlar Error de Conexion BD
« en: Abril 24, 2015, 04:36:47 pm »
Este es el form

http://snag.gy/5p8ML.jpg

Pasa que no puedo cerrar esta ventana si no se puede conectar a unos de los sucursales, por que hay datos del local en esta ventana o de otra sucursal.

65
Bases de Datos / Re:Controlar Error de Conexion BD
« en: Abril 24, 2015, 02:55:28 pm »
Si amigo estoy ejecutando la rutina como 20 veces, tengo un cliente que tiene 5 sucursales y que hasta ahora no le convenci que se haga solo de un servidor, y tengo que hacer la consulta por cada sucursal.

El problema que a veces pasa es que en uno no esta prendido la pc, o no tiene luz, o por a o b motivo no se puede acceder a la bd de tal local.

Lo que pasa si le saco la verificacion de la conex

sale esto:


http://snag.gy/B1EvE.jpg

Y si sale eso tiene que finalizar el programa cosa que no quiero que haga

66
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

67
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

68
Visual Basic 6 / Re:Imprimir con Printer.CurrentX y Printer.CurrentY
« en: Abril 09, 2015, 04:52:45 pm »
Hay un problemita con el code del amigo YAcosta, lo que pasa es que yo uso el doPDF (Impresora Virtual) para crear PDF, funciona el code pero envia como 3 documentos a la impresora y al imprimir con el doPDF tengo que guardar varias veces con diferentes nombres.

Creo que le falta el printer.endoc

69
Visual Basic 6 / Re:Imprimir con Printer.CurrentX y Printer.CurrentY
« en: Abril 09, 2015, 03:19:08 pm »
jajaja, que loco amigo Yvan y hasta tuviste que gastar tintas hojas, yo lo hacia con el doPDF

Gracias amigo.

Edito:

El code que me pasaste lo que hace es imprimir varias veces, o sea no es que solo un documento manda a la impresora

70
Visual Basic 6 / Re:Imprimir con Printer.CurrentX y Printer.CurrentY
« en: Abril 09, 2015, 01:46:01 pm »
Si amigo ya lo probe de esa forma tambien, lo que pasa si reseteo la variable me imprime de nuevo en la primera hoja y se crea la nueva pagina pero no pasa ahi

71
Visual Basic 6 / Re:Imprimir con Printer.CurrentX y Printer.CurrentY
« en: Abril 09, 2015, 01:19:43 pm »
Si igual me da asi, lo raro es que si le saco la variable contar hace bien pero no puedo definir la posicion donde quiero que imprima

72
Visual Basic 6 / Re:Imprimir con Printer.CurrentX y Printer.CurrentY
« en: Abril 09, 2015, 12:44:40 pm »
si igual me hace asi amigo

73
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

74
General / Re:Control de Produccion
« en: Marzo 10, 2015, 01:58:50 pm »
Hola amigo yo también siempre tuve ese problema y nunca lo pude resolver

75
Visual Basic 6 / Re:Leer imagen y ejecutar acción si cambia.
« en: Marzo 09, 2015, 01:31:08 pm »
Hola eso se haria con un OCR encontre un ejemplo por ahi y adapte mas o menos a lo que quieres, lee la imagen lo convierte a texto y de ahi hace la comparación.

Hace click sobre cada imagen carga la imagen que tiene que leer y te devuelve el resultado.

[SCREEN]

http://snag.gy/e8PBy.jpg

SOURCE
https://mega.co.nz/#!BAl2zDIA!y70fvu7dyTqnMLhPHhLYoeEw7WbV-O8aV6iLay-Z-pM

Saludos..

Páginas: 1 2 3 4 [5] 6 7 8 9 10 ... 71