SoloCodigo

Dim CRWizard As New CRStandardWizard
Dim Application As New CRAXDRT.Application
Dim Report As New CRAXDRT.Report

Set CRWizard.CystalReport = Report
(es aqui donde me da un error)
Error '-2147467261 (80004003)' en tiempo de ejecución:
Error en el método ' ^' del objeto '^'


Set Application = CreateObject("CrystalRuntime.Application")
Set Report = Application.NewReport

Ya lo he conseguido, se ha de definir el tipo de campo como BLOB

¿Alguien ha conseguido vincular el CR contra un MySQL?
Yo tengo instalado el ODBC de MySQL (ODBC mysqp 3.51.10) y desde Visual trabajo perfectamente contra el MySQL.

Pero a la hora de conectar los informes contra el MySQL mediante OLE DB (ADO) me da un error:

Logon Failed
Details: ADO error Code: 0x8000fff
Source: Provider
Description: Error Catastrófico
Native Error: -2147418113

Si lo intento mediante ODBC (RDO) logro conectar a la BD pero no me muestra ninguna tabla, vista, etc. Aparece "...no items found"

Alguna solución al respecto?

podemos ayudarte en alguna complejidad que te surja.
Pero yo no soy muy partidario de inventar cosas ya mas que hechas.
Y si una cosa está mas que inventada es un prog. de contabilidad.
Ademas esos programas son un lío, ya que la normativa cambia bastante... hay q ir actualizando mucho... osea no es un software que se desarrolle y quede cerrado, sino q habrá que actualizarlo siempre que salga una normativa nueva o cambie una vigente.

Saludos y suerte

podrían indicar la forma de hacerlo?, gracias  

Yo utilizo dos funciones.
La primera establece la conexion con el SQL y la segunda abre los recordsets con la sentencia SQL que le paso como parametro

Public BBDD As ADODB.Connection
Public rsConfig As ADODB.Recordset


Private Sub Form_Load()
    Set BBDD = New ADODB.Connection
    Set rsConfig= New ADODB.Recordset
End Sub

Public Function BBDDOpen()
    If BBDD.State <> 0 Then
        BBDD.Close
    End If
    With BBDD
        On Error Resume Next
        .ConnectionString = "Provider=sqloledb;Data Source=SERVIDOR;Initial Catalog=BASEDEDATOS;User Id=UID;Password=PASSWORD;"
        .Open
        BBDDOpen = Err
        On Error GoTo 0
    End With
End Function

Public Function rsOpen(Tabla As Recordset, textoSQL)
    With Tabla
        If .State <> 0 Then
            .Close
        End If
        On Error GoTo errorApertura
        .ActiveConnection = BBDD
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
        .MaxRecords = 1000
        .CursorLocation = adUseClient
        If IsMissing(textoSQL) = False Then
            .Source = textoSQL
        End If
       
        On Error Resume Next
        .Open
        If Err.Number <> 0 Then
            MsgBox Err.Description, , NOMBRE
        End If
        rsOpen = Err.Number
        On Error GoTo 0
    End With
End Function

Tengo esta tabla con la siguiente estrutura:

Ejemplo:
Fecha                 Estado   Departm
01/01/04 10:00       1       Comercial
01/01/04 12:00       1       Marketing
01/02/04 09:00       2       Marketing
01/02/04 17:00       3       Gerencia
01/02/04 18:00       4       Gerencia

Quiero hacer una gráfica donde me muestre los tiempos por estados.

Que sería al asi :  
Estado 1: 23horas = (01/01/04 12:00 - 01/01/04 10:00) + (01/02/04 09:00 - 01/01/04 12:00)
Estado 2: 07horas = (01/02/04 17:00 - 01/02/04 09:00)
Estado 3: 01hora  = (01/02/04 18:00 - 01/02/04 17:00)
Estado 4: No se calcula. En el estado 4 muere el proceso

Es algo lioso, espero que tengan soluciones
Gracias por todo

Hola a todos!
Ya se que hay varias discusiones sobre el mismo caso, pero es que no consigo que me funcione.

Antes que nada, decir que utiliza VB6, CR9 y SQL Server2000

Mi problema es que al visualizar el contenido de un recordset con el CR, éste me muestra todo el contenido de la tabla y no la búsqueda que tengo en el recordset.

Este es el codigo que utilizo, a ver si me podeis ayudar.

Dim Report As New Informe01
Dim Report1 As New CrystalReport1

Private Sub Form_Load()
    Screen.MousePointer = vbHourglass
    CRViewer.ReportSource = Report
   
     'rsopen es una funcion para abrir los recordset con el provider, user and pass adecuados.

     rsOpen rsInforme01, "rsInforme01", "SELECT * FROM V_INFORME01 WHERE ID=1"
       
        Report1.DiscardSavedData
        Report1.Database.Tables(1).ConnectionProperties("password") = "xxx"
        Report1.Database.Tables(1).SetDataSource rsInforme01              
        CRViewer.EnableGroupTree = True
       
        CRViewer.ViewReport
        CRViewer.Refresh

    Screen.MousePointer = vbDefault
End Sub


Tambien he utilizado con pero no funciona tampoco, me muestra todos los registros de V_INFORME01

   Report1.GroupSelectionFormula = "{V_INFORME01.NINCIDENCIA} = 1"
   Report1.readrecords


Espero vuestros comentarios, saludos

Alguien ha desarrollado algo en VB para TabletPC?
Hay alguna peculiaridad en para el desarrollo, osea, es necesario algun SDK o similar para programar?

Gracias

Hola chic@s, sigo con el problema que me trae loco,

El problema está que cuando instale mi aplicación, el nombre del servidor de MS SQL Server será distinto al que yo enlace los informes en tiempo de diseño.

Por lo que necesito y pido encarecidamente ayuda para en tiempo de ejecución realizar de nuevo la conexión al servidor de SQL correcto.

Espero respuestas o sugerencias.
Gracias por todo

Gracias por el ejemplo.
Ya lo tenia implementado asi. gracias nuevamente.

Una duda me surge, aunque le he dado solucion, no se si es la correcta.

Al haber varios forms duplicados, y al tener que hacer procesos externos para luego volcarlos a ellos, ¿como se cual es el form activo para pasarles los datos?

Mi solucion, no se si correcta o no fue declarar una variable array de tipo form (frm) y al crear cada form, ajudicar un nº en su Tag.
Cada vez que active uno de ellos paso a una variable publica (FActivo) el valor del Tag del formulario, asi desde el proceso puedo hacer referencia al frm(FActivo)

Bueno espero críticas
Saludos a todos.

Es posible poner un Frame, parecidos a lo de las paginas web, para dividir un formulario padre en dos partes y sólo cargar el formulario hijo en una de esas dos partes. Mi intencion es dejar la parte derecha como menú y la parte izquierda para cargar los posibles formularios.

Alguna idea?
Gracias a tod@s

Hola chic@s
Necesito en tiempo de ejecucion, el poder duplicar un formulario.

un ejemplo para que me entendais es por ejemplo el tipo archivo->nuevo del Excel.... que me permite tener varias hojas abiertas

Pues yo necesito algo parecido pero para mi aplicación.

Alguien tiene soluciones?
Gracias por todo
un saludo