Post by DJ_MXBya revise en la instalacion del visual basic 6 y si esta
instalado el mstext, hice una busqueda de el archivo en
mi pc y encontre 2 mstext40.dll y el mstext35.dll.
le di en inicio-->ejecutar y puse regsvr32 mstext40.dll,
despues me aparecio un mensaje que se habia registrado
con exito. hice la prueba de nuevo y nada el mismo error
¿Que registrastes el archivo MSTEXT40.DLL? Que yo sepa, dicho archivo no es
una biblioteca ActiveX que puedas referenciar en tu proyecto de Visual
Basic. He hecho una prueba y efectivamente te aparece el mensaje de que se
ha registrado correctamente, pero si deseas referenciar la biblioteca
directamente desde Visual Basic, éste no te lo permitirá.
El problema que tienes, más bien se trata de un error del propio VisData, el
cual tiene un código que no es el correcto, tanto para abrir la base de
datos (el archivo de texto), como para construir la consulta SQL de creación
de tabla, de ahí que obtengas el mensaje de error «No se pudo encontrar el
archivo ISAM instalable».
Por tanto, si te empeñas en utilizar el programa VisData para exportar una
tabla a un archivo de texto, no te va a quedar más remedio que corrijas el
código fuente de la aplicación, el cual se encuentra en el segundo CD de
Visual Basic, concretamente en la siguiente carpeta:
D:\Samples\VB98\visdata\visdata.vbp
Abre el proyecto con Visual Basic y selecciona el módulo estándar
VISDATA.BAS. En la sección «Declaraciones» busca la declaración de la
constante «gsTEXTFILES» y la sustituyes por la siguiente:
Public Const gsTEXTFILES = "Text;"
Con esta pequeña modificación resuelves el problema del ISAM.
Pero si continúas ejecutando el programa, obtendrás otro error,
concretamente el número 3027, por lo que necesitarás también modificar una
línea de código del procedimiento «Export» incluido en el mismo módulo.
Busca la siguiente línea de código:
gdbCurrentDB.Execute "select * into " & sConnect & _
StripOwner(sNewTblName) & " from " & StripOwner(rsFromTbl)
Para salir del paso, modifica dicha línea por la siguiente, donde incluyo la
extensión del archivo de texto (#txt):
gdbCurrentDB.Execute "select * into " & sConnect & _
StripOwner(sNewTblName) & "#txt from " & StripOwner(rsFromTbl)
Insisto que esta pequeña modificación es para salir del paso, ya que no he
probado si dicho cambio influye negativamente para exportar a otros formatos
de base de datos. Pero ese trabajo ya te lo dejo a tí, para que hagas las
pruebas oportunas y modifiques el código fuente necesario, ya que yo no
utilizo VisData para exportar una tabla a un archivo de texto. :-)
Ya sólo te queda compilar el proyecto, y copiar el ejecutable a la carpeta
donde se encuentre instalado Visual Basic. Si deseas conservar el archivo
original, renombra el archivo original antes de copiar el nuevo ejecutable
creado.
Un saludo
--
Enrique Martínez
[MS MVP - VB]
Nota: La información contenida en este mensaje, así como el código fuente
incluido en el mismo, se proporciona «COMO ESTÁ», sin garantías de ninguna
clase, y no otorga derecho alguno. Usted asume cualquier riesgo al poner en
práctica, utilizar o ejecutar lo recomendado o sugerido en el presente
mensaje.