Pablo
21 de Abril del 2006

Hola que tal?... Generé un Ejecutable en Win Xp de una aplicación que maneja Data Report, me lleve las librerias correspondientes, pero cuando corro el Sistema en Win 2000, al querer acceder a la visualización del Data Report me aparece una leyenda de Run Time error \'13\' Type Mismatch (No Coinciden Los tipos) ... Agradeceria cualquier Ayuda.
Muchas Gracias

LLE
21 de Abril del 2006

Hola yo no creo que sea porque cambiaste de so, trata de fijarte en que linea te da el error, ya que es un error muy general, y solo con ese dato no te podemos ayudar, por lo menos yo
Saludos

www.recursosvisualbasic.com.ar

Pablo
21 de Abril del 2006

El Problema es que Funciona en XP.. y no en W2000, al presionar el Button que carga el Data Report ... aparece el RunTime Error 13..

Pablo
21 de Abril del 2006

Dim Listado As ADODB.Command 'Objeto de tipo comando
Dim Entorno As dteEntornoDatos 'Nuestro entorno de datos
Screen.MousePointer = vbHourglass
'Iniciamos el entorno de datos.
Set Entorno = New dteEntornoDatos
Entorno.Previews.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:Azk-Base.mdb"
Set Listado = Entorno.Commands("acmNCOB_Grouping")
Listado.CommandType = adCmdText

Listado.CommandText = " SHAPE {SELECT Noconformidades.nronoconformidad, MADTodos.* FROM Noconformidades, MADTodos WHERE Noconformidades.txtnroNC = MADTodos.nronoconformidad and int(Noconformidades.nronoconformidad) = '" & globgrab & "'} AS acmNCOB COMPUTE acmNCOB BY 'Noconformidades.nronoconformidad'"

'Listado.CommandText = " SHAPE {SELECT Noconformidades.nronoconformidad, MADTodos.*, EmailsEnviados.*, Adjuntos.* FROM Noconformidades, MADTodos, EmailsEnviados, Adjuntos WHERE Noconformidades.txtnroNC = MADTodos.nronoconformidad AND Noconformidades.txtnroNC = EmailsEnviados.nronoconformidad AND Noconformidades.txtnroNC = Adjuntos.nronoconformidad and int(Noconformidades.nronoconformidad) = '" & globgrab & "'} AS acmunNoConforme COMPUTE acmunNoConforme BY 'Noconformidades.nronoconformidad'"
'Listado.CommandText = " SHAPE {SELECT Noconformidades.nronoconformidad, MADTodos.*, EmailsEnviados.*, Adjuntos.* FROM Noconformidades, MADTodos, EmailsEnviados, Adjuntos WHERE (int(MADTodos.nronoconformidad) = '" & globgrab & "' or int(EmailsEnviados.nronoconformidad)= '" & globgrab & "' or int(Adjuntos.nronoconformidad) = '" & globgrab & "') and int(Noconformidades.nronoconformidad) = '" & globgrab & "'} AS acmunNoConforme COMPUTE acmunNoConforme BY 'Noconformidades.nronoconformidad'"

Load rptNCOB
Screen.MousePointer = vbDefault
rptNCOB.Show vbModal