VFP y Microsoft Project ... A través de MS Access

28/03/2006 - 18:41 por Jorge Martínez | Informe spam
Saludos amigos y disculpen de antemano lo largo del mensaje; Estoy
tratando de llevar una tabla de VFP hacia MS Project 2000 ó 2003 a través
de MS Access 97, la tabla en cuestión, - llamada "k2Project.DBF" -,
presenta la siguiente estructura:

Campo # Nombre Campo Tipo
1. Field1 - Character(10)
2. Task_Name - Character (25)
3. Duration - Character(5)
4. Start - Date
5. Finish - Date
6. Pred - Character(10)
7. Resource_n - Character(10)

Y una vez creada la tabla incluí los siguientes campos:
Field1 = " "
Task_Name = "Construcción de una casa"
Duration = "60d"
Start = 03/04/2006 - Date
Finish = " "
Pred = " "
Resource_n = "Constructora Venezuela,ca"

Una vez hecho esto, anexé el siguiente código, el cual estaría en
capacidad de imprimir un diagrama de Gabbt y un gráfico PERT
(http://support.microsoft.com/defaul...s%3B143297):

Clear
Set Safety Off
Set Century On
Set Date French
Set Talk Off
Close Databases
Clear All
Release All
Set Safety Off
On Error DO OleError

Public x

If File('Saltbox.mpp')
Erase Saltbox.mpp
Erase Saltbox.mpx
EndIf
If File('XProj.DBF')
Erase XProj.DBF
EndIf
IF Used('k2project')
Use In k2Project
EndIf

Use k2project In 0

***********
*
* Rutina para convertir de .DBF(VFP) a .MDB (Access)
* de forma transparente para el usuario
*
***********

Use In K2Project
MyFile = "xProj.mdb"

x = CreateObject("MSProject.Application")
x.Application.Visible=.t.
x.Application.FileNew
x.Application.FileSaveAs("SaltBox")

*Append Entry table from Myfile
x.Application.FileOpen(Myfile,0,1,1,'Entry')
x.Application.SelectAll

* Link the tasks together
x.Application.LinkTasks
x.Application.AppMinimize

Myans =MessageBox("Desea imprimir la Carta Grant?",4+32,"Impresión")
If MyAns = 6
x.Application.FilePrint(1,4)
EndIf

x.Application.AppRestore
x.Application.ViewApply("Pert Chart")
x.Application.AppMinimize

MyAns =MessageBox("Desea imprimir la carta PERT?",4+32,"Impresión...")
If MyAns = 6
x.Application.FilePrint(1,2)
EndIf

x.Application.ViewApply("Gantt Chart")
x.Application.FileSave
x.Application.FileQuit
Release x
Return

Procedure olError
On Error
Wait Window "Precausión..., ha ocurrido un error...!"
=aError(myerror)
Clear
? 'El error ha preentado la siguiente información...' && Display message
For n = 1 To 7 && Display all elements of the array
? myerror(n)
EndFor

If Type("X") = "O"
*x.application.Quit
Release x
Cancel
EndIf
Return
**Eof()


El problema se me presenta es cuando trato de llamar a mi base de datos de
Access creada desde VFP, ya que el project no me la reconcoce, presenta el
siguiente mensaje:

Se que Access tiene formato diferente en sus bases de datos según su
versión (97-98-2000-2003), así que mis preguntas son:
1. Cuál es la versión del Access (97-98-2000-2003) que leería el MS
Project 2000 y/o MS Project 2003
2. Como haría para convertir de .DBF(VFP) a .MDB(Access) de forma
transparente para el usuario y evidentemente que la tabla resultante pueda
ser leida por el MS Project 2000 y/o MS Project 2003


Saludos cordiales y mil disculpas nuevamente por lo largo del contenido...

Jorge Martínez
jmartinez@venezuelasite.com


Jorge Martínez M
<a
href="mailto:Jorge35&#64;venezuelasite.com">Jorge35&#64;venezuelasite.com</a>


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Preguntas similare

Leer las respuestas

#1 Jorge Martínez
03/04/2006 - 18:56 | Informe spam
Bueno, lo conseguí a fin..., pero sin usar el MS Access, es decir,
directamente de VFP a MS Project. Lo logré usando archivos .txt.

Me resta ahora es la configuración del MS Project directamente al momento
de que reciba el archivo de texto de forma transparente para el
usuario..., pero eso no es por acá, es por otro foro... (Uno de MS
Project), de repente hay que crear una macro o una pequeña aplicación
usando VBA...)

Saludos y gracias por su colaboración amigos.!

Jorge Martínez.-

Jorge Martínez M
<a
href="mailto:Jorge35&#64;venezuelasite.com">Jorge35&#64;venezuelasite.com</a>

-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida