• Viernes 17 de Mayo de 2024, 06:30

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

Páginas: [1]
1
Visual Basic 6.0 e inferiores / Re: PREGUNTAS SOBRE CRYSTAL REPORTS
« en: Viernes 2 de Mayo de 2003, 13:15 »
Hola a todos.
Me gustaría que me aclaraseis algunas cuestiones sobre Crystal Reports.
1. ¿Qué diferencias tiene con el DataReport y cuál es mejor?
2. ¿Viene ya una versión con el VB6?
3.¿Cómo puedo saber que versión tengo en mi VB6?
Gracias anticipadas.
Ciao

2
Dudas informáticas / Re: Por un foro mejor
« en: Viernes 2 de Mayo de 2003, 12:49 »
Hola.
Hace poco que me he metido en esto de los foros y estoy de acuerdo contigo.Serviría para que a otras personas que tienen el mismo problema supieran si esa solución es valida o no y no se vuelvan locos.
De ahora en adelante lo haré así.
Ciao.:yes:

3
Visual Basic 6.0 e inferiores / Re: IMAGEN EN DATAREPORT
« en: Viernes 2 de Mayo de 2003, 12:33 »
Hola J.M.Movilla y muchas gracias por contestarme.
Aqui te mando lo que me has pedido:
Visualización el muestrario de platos
Private Sub mnuMuestrario_Click()
    Dim rutafoto As String
    Set Plato = New clsPlato

    Set DRMuestrario.DataSource = Plato.Todos_Platos
    'Foto
    rutafoto = Plato.Todos_Platos(6).Value
    Debug.Print "Ruta Foto = " & rutafoto

    On Error Resume Next
    Set DRMuestrario.Sections("Detalle").Controls.Item("imgPlato").Picture = LoadPicture(rutafoto)
    Set Plato = Nothing
    DRMuestrario.Show
End Sub

La función Platos.Todos_Platos es:
Public Function Todos_Platos() As Recordset
    Dim sSQLInstruccion As String
    sSQLInstruccion = " Select * from Plato order by Descripcion"  
    Set Todos_Platos = New Recordset
    Todos_Platos.CursorType = adOpenKeyset    
    Todos_Platos.CursorLocation = adUseClient
    Todos_Platos.Open sSQLInstruccion, CN, adOpenKeyset, adLockOptimistic  
End Function

Registros (Sólo te mando uno como ejemplo):
Descripcion: Pichon de Narvaz Sangrante con reducción de Garnacha
PVP: 1.533,00
Foto: La ruta completa del archivo donde está la foto. Ejemplo:
C:WINDOWSEscritorioHoteles NHFotosQuesos.jpg

Además en el Reporte he vinculado el control rptTextBox de la Descripción (el nombre del Plato) con el campo Descripcion (en la Propiedad DataField) y lo mismo he hecho con el rptTextBox del PVP, pero con el rptImage no puedo hacer lo mismo.
Espero que con esto sea suficiente.
Muchas Gracias.:suerte:

4
Visual Basic 6.0 e inferiores / Re: IMAGEN EN DATAREPORT
« en: Lunes 28 de Abril de 2003, 15:19 »
Hola.
Tengo que realizar un informe usando el DataReport.
El informe es un muestrario de Platos, donde se verá el nombre del Plato, su precio y la foto correspondiente del plato. He puesto los controles en la seccion de Detalle del Informe y tengo problemas al cargar la foto, ya que me carga la misma foto (La primera del recordset)en todos los platos que aparecen.
¿Podeis ayudarme?
Gracias.:brickwall:

Páginas: [1]