Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Using a MS-Access Db
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Client/serveur
Divers
Thread ID:
00854292
Message ID:
00854306
Vues:
16
>I´m not sure what I need exactly, but this is my trouble:

>My boss buy a new software (dental). But, There are a lot of things this software doesn´t have, so my boss ask me to obtain the data from it and complete all the process we need. So I need to:

>1.- Open the db and tables from my server (\\Servidor\f\somepath\the db.mdb)
>2.- Get some information, compare with my tables (DBF) and if necesary, store the information (SQL commands could help?)
>3.- The MSA database must be open Shared (If that works on Access) to avoid any conflict with the other software


Hi Adrian...

You can also do it without Automation...
lcCurdir = "\\Servidor\f\somepath\"
lcConnString="Driver={Microsoft Access Driver (*.mdb)};"+;
             "Dbq=the db.mdb; DefaultDir="+lcCurDir

loSPT = SQLSTRINGCONNECT(lcConnString)
IF loSPT > 0
   IF SQLTables(lnSPT,"TABLE VIEW","cCatalog") > 0
      SELECT "cCatalog"
      SCAN
         IF SQLTables(lnSPT,cCatalog.Table_Name,"cFields") > 0
             BROW
         ELSE
            IF AERROR(laError) > 0
                Messagebox("Error getting Columns of: "+cCatalog.Table_Name + "Extended Error:"+laError[2])
            ENDIF
         ELSE
             IF AERROR(laError) > 0
                Messagebox("Error getting Catalog of Entities"+chr(13)+;
                           "Extended Error: "+laError[2])
             ENDIF
         ENDIF
      ENDSCAN
ELSE
  AERROR(laError)
  MESSAGEBOX("Error al Conectar:"+laError[2],48,"Error al Conectar")     
ENDIF   
HTH
Apoya a Visual FoxPro usandolo legalmente
--
¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º
Espartaco Palma Martínez
SysOp PortalFox
http://www.portalfox.com
esparta@portalfox.com
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform