• Martes 14 de Mayo de 2024, 09:03

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

Páginas: [1]
1
Crystal Reports / Re: No Me Sale El Contenido Completo De Un Campo Memo
« en: Lunes 30 de Julio de 2007, 06:22 »
Intenta poner el campo dentro de un objeto de texto

2
Visual Basic 6.0 e inferiores / Re: Query Desde Vb En Cr 8.0
« en: Jueves 14 de Junio de 2007, 17:48 »
Gracias por atender Darktigerhell, esto es lo que hago generalmente para traer un reporte, podrias indicarme donde inserto el codigo que me proporcionaste

Código: Text
  1. 'Reporte es el control de CrystalReport
  2. Reporte.DataFiles(0) = RutaBD & "BD.mdb"
  3. Reporte.ReportFileName = RutaRPT & "Reporte.rpt"
  4. 'Aqui inserto la Formula Con Reporte. SelectionFormula
  5. Reporte.WindowState = crptMaximized
  6. Reporte.Action = 1
  7.  

3
Visual Basic 6.0 e inferiores / Query Desde Vb En Cr 8.0
« en: Miércoles 13 de Junio de 2007, 21:48 »
Que tal:

Mi problema es el siguiente tengo varios reportes y quisiera hacer consultas, las consultas exactas las genero con formulas, pero lo que necesito es una consulta tipo Query, ejemplo:"SELECT * Tabla WHERE Campo LIKE % Textbox.Text %"

He tratado de utilizar la propiedad SqlQuery del Crystal pero no me funciona, utilizo una Base de Datos de Access 2000.

Saludos y Gracias por Atender

4
Visual Basic 6.0 e inferiores / Re: Indexar En Access 2002 (xp)
« en: Miércoles 23 de Mayo de 2007, 07:16 »
Gracias, no se me habia ocurrido por ese lado!! :D

5
Visual Basic 6.0 e inferiores / Indexar En Access 2002 (xp)
« en: Martes 22 de Mayo de 2007, 07:20 »
Que tal, mi problema es el siguiente:

Utilizaba una base de datos en formato mdb (access) en la version 97, ahora me han solicitado que la migre a la version 2000, en la anterior bd tenia varios campos indexados para la utilizacion de dos tablas en un reporte de crystal reports 8.0. Esa bd la elabore desde el visdata que proporciona VB 6.0, pero esta aplicacion no me reconoce la version de access 2000.

Si pudieran indicarme como le hago para indexar varios campos se los agradece bastante.

Gracias

6
Visual Basic 6.0 e inferiores / Re: Proteger Bd Access
« en: Domingo 25 de Marzo de 2007, 17:10 »
Muy Bien, seguire sus consejos
Gracias

7
Visual Basic 6.0 e inferiores / Proteger Bd Access
« en: Lunes 19 de Marzo de 2007, 23:30 »
Que tal a todos, he visto algnas aplicaciones que trabajan con access (cualquier version), lo que quiero hacer es que una base de datos que yo cree no s epueda eliminar, de tal maner que cuando algun usuario encuentre la ruta de alojamiento de la BD y la trate de eliminar no la pueda suprimir.

Espero haber sido claro, gracias.

8
Visual Basic 6.0 e inferiores / Re: Winsock
« en: Sábado 13 de Agosto de 2005, 01:03 »
Mira el Control de la Camara es de ActiveX, con eventos e instrucciones propias

Camara.InicializarCamaraEn = Indica que se debe de escribir la direccion IP de la Camara

Camara.Visualizar = Para Ver las Imagenes en Tiempo Real, Como un WebCam

y los Siguientes Eventos Son Faciles de Identificar por su Nombre:

Código: Text
  1. Private Sub Camara_ConexionFallida()
  2. MsgBox "No se Pudo Establecer Conexion con la Camara", vbCritical
  3. End Sub
  4. Private Sub Camara_Desconexion()
  5. MsgBox "Se a Perdido Conexion con la Camara", vbCritical
  6. End Sub
  7. Private Sub Camara_FotoCapturada()
  8. MsgBox "La Foto fue Capturada Correctamente", vbInformation
  9. End Sub
  10. Private Sub Camara_FotoNoCapturada(ByVal error As String)
  11. MsgBox "La Foto no fue Capturada", vbExclamation
  12.  
  13.  
  14. Espero tu Colaboracion Nogard
  15. End Sub
  16.  

9
Visual Basic 6.0 e inferiores / Winsock
« en: Viernes 12 de Agosto de 2005, 22:27 »
Hola:

Quiero saber si pueden ayudarme; tengo una camara digital que se conecta a la red mediante TCP, el control (ocx) el sistema de instalaciñon, lo tiene, hasta aqui todo perfecto.

Quiero hacer un sistema donde con la ayuda de un Winsock, muestre la tasa de transferencia de la camara a la PC, en una etiqueta, jamas he usado un winsock,
espero y me puedan ayudar.

Ya enlace el Winsock y el o que tengo es el Siguiente:

Código: Text
  1. Dim IP As String
  2. Private Sub Form_Load()
  3. IP = "192.168.150.200"
  4. Win.RemotePort = "80"
  5. Win.RemoteHost = IP
  6. Win.Connect IP, 80
  7. Camara.InicializarCamaraEn IP
  8. Camara.Visualizar IP
  9. End Sub
  10.  


Camara es el Control ocx de la Camara
Win=Winsock
el Puerto es el 80, asignado desde el soft de la camara
Gracias :)

10
Visual Basic 6.0 e inferiores / Re: Crystal Reports
« en: Sábado 23 de Julio de 2005, 04:53 »
Gracias FRIJU, voy a intentar lo que me dices

11
Visual Basic 6.0 e inferiores / Re: Caja De Texto Numeric Con Punto Decimal
« en: Miércoles 20 de Julio de 2005, 22:35 »
Muchas Gracias por sus consejos a Solcito y a Soultaker, lo que necesitaba era una Textbox normal donde se escribiera un solo punto decimal y numeros, lo del MaskEdBox ya lo había pensado, pero lo que esoty haciendo es un trabajo para mi escuela, y el profesor quería una caja de texto y no otro objeto.

Bebesita, me salvaste el pellejo, agregue tu codigo con el mio y funciono perfectamente, ahora lo muestro siguiendo los consejos de Toten en lo que respecta al Tab:

Código: Text
  1. Private Sub TxtSalario_KeyPress(KeyAscii As Integer)
  2. If KeyAscii <> 8 Then
  3.      If KeyAscii = 46 And (InStr(TxtSalario.Text, Chr(KeyAscii)) <> 0) Then
  4.             If TxtSalario = "" Then
  5.                  If KeyAscsii < Asc("1") Or KeyAscii > Asc("9") Then
  6.                  KeyAscii = 0
  7.                  Beep
  8.                  End If
  9.             Else
  10.                  If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
  11.                  KeyAscii = 0
  12.                  Beep
  13.                  End If
  14.             End If
  15.        End If
  16. End If
  17. End Sub
  18.  

12
Visual Basic 6.0 e inferiores / Caja De Texto Numeric Con Punto Decimal
« en: Miércoles 20 de Julio de 2005, 06:54 »
Hola:

Para una aplicacion que estoy haciendo necesito una caja numerica, que acepte solo un punto decimal, el codigo que tengo es el sig:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
    If KeyAscii <> Asc(".") Then
        If Text1 = "" Then
            If KeyAscii < Asc("1") Or KeyAscii > Asc("9") Then
                KeyAscii = 0
            End If
        Else
            If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
                KeyAscii = 0
            End If
        End If
    End If
End If
End Sub

Agradezco su ayuda. B)

13
Visual Basic 6.0 e inferiores / Crystal Reports
« en: Lunes 18 de Julio de 2005, 21:05 »
Hola:

Estoy Creando una aplización de Tramites (Ficticia), lo que necesito es que desde un Formulario de VB6.0, quiero mandar a imprimir reportes de una fecha inicial a una fecha final. Utilizo dos controles FWCalendar (de la FastLibrary2000).

La formula la genero desde VB, el Codigo que tengo es:

CrystalReport.SelectionFormula = "{Tramites.Fecha} in DateTime (" & _
                                    Calendar1.Year & "," & Calendar1.Month & "," & Calendar1.Day & ",00, 00, 00)" & _
                                    "to DateTime (" & _
                                    Calendar2.Year & "," & Calendar2.Month & "," & Calendar2.Day & ",00, 00, 00)"

Donde: Calendar1 es el Calendario de la fecha Inicial
            Calendar2 es el calendario de la fecha Final
            Tramites es la Tabla
            Fecha es el Campo de la Tabla.

<--Este es un  Problema que tengo

-->Otro Problema es que como lo mencione la aplicación es de tramites y se puede repetir el usuario, al momento de Crear un reporte en CR8.0, donde se muestran todos los datos, Quisiera que solo apareciera una sola vez una persona

<--Que Quiero Decir Con esto:
     Que Se Muestran Todos los Tramites, incluso si una persona  tiene dos o más    
     tramites se muestran,

-->Que es lo que Quiero:
     Que Se Impriman todos los Nombres o Claves de las Personas, pero sin
     repetirse, aunque una persona tenga varios tramites

Bueno Eso es todo (que mas quería  :P ) espero su colaboración.

A, por cierto la BD que uso es de Access

14
Flash / ActionScript / Como Rebobinar
« en: Domingo 10 de Julio de 2005, 06:50 »
Hola:

Pues soy nuevo en utilizar flash (tengo apenas dos días), y lo que he aprendido es lo de los tutoriales que se encuentra en la red.

Quiciera saber como  puedo poner en un boton, las siguientes funciones:

1.-Rebobinar la animacion.
2.-regresar a la escena anterior, pero que siga corriendo
3.-ir a la escena anterior y que siga corriendo.

la unica instruccion que he utilizado es el stop(); &lt;_&lt;

Gracias.
Atte.

          JAVOCHE

15
Visual Basic 6.0 e inferiores / Sumar En Cristal Reports
« en: Miércoles 6 de Julio de 2005, 08:47 »
Hola soy yo de nuevo, ahor ami duda es con crystal reports v 8.0, esoty haciendo un reporte (lógico), donde agrego un campo de una base de datos en access, este campo es de tipo texto; el problema es que no puedo sumar los valores.

Quisiera saber si existe la manera de convertir texto a tipo numerico

he hecho esto desde visual basic 6.0, en un boton

On Error GoTo errImprimir
    CrystalReport.DataFiles(0) = "C:\Base\base.mdb"
    CrystalReport.SelectionFormula = "{Tabla.Costo}=SUM({Tabla.Costo})
    CrystalReport..ReportFileName = "C:\Base\RptCosto.rpt"
    CrystalReport.WindowState = crptMaximized
    CrystalReport.Action = 1
End If
errImprimir:
If Err = 20540 Then Resume Next

Nota: El Campo costo es tipo texto
Espero su ayuda, y Gracias

16
Visual Basic 6.0 e inferiores / Re: Busquedas En Vb6.0 Con Sql
« en: Lunes 27 de Junio de 2005, 21:24 »
OK gracias, LORD TOTEN, solo necesitaba una pista. Soy novato en VB y en SQL apenas y conozco lo básico!! La Funcion que nesecito es LIKE 'x%'

Gracias

17
Visual Basic 6.0 e inferiores / Busquedas En Vb6.0 Con Sql
« en: Lunes 27 de Junio de 2005, 21:14 »
Esoty elaborando un sencillo programa que accesoa a datos de Access, el problema es que cuando quiero hacer un formulario de busquedas, donde pongo varias cajas de texto utilizando un control data hago el siguiente codigo:

Private Sub CmdBuscar_Click()
DataVista.RecordSource = "SELECT * FROM Tramites WHERE  Tramites.Nombre='" & TxtNombre & "' OR Tramites.Apellido='" & Apellido& "'"
DataVista.Refresh
End Sub

Lo que quiero saber es de como hago busquedas donde en una caja de Texto Llamada TxtNombre, escribo "x" Nombre y Me aparezcan en un grid que ya tengo elaborado, todos los registros con ese nombre, y NO sólo los que son identicos a ese nombre (Tramites.Nombre='" & TxtNombre & "')  &lt;_&lt;

Quisieara saber si hay alguna Instruccion en SQL donde me busque por contenido y no por igualdad, u otra alternativa

Gracias

Páginas: [1]