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

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