Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Updatig DBC/DBF onto client site
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00451561
Message ID:
00451595
Vues:
25
>I find myself continually amending DBC/DBf in the office and then needing to upgrade these onto the client's site, without zapping any data.
>Without using a tool such as Stonefield (which I'm fairly sure would do it but I dont want to intoduce more variables at this stage), is there any 'easy' way of ensuring that Files on site are in sync with files at the office.
>
>Currently, I have to take a copy of the files, manually MODI DATA, and replicate each change to both the DBC and DBF's
>
>Regards,
>
>Gerard

Along the same lines as Auke, create a program to do it. I start with GENDBC to give you the majority of the code. Then you have to test for the existance of the table to decide to create or not. Then step though each field to see it exists, then if it is the correct data type and size.

I use my correctdata.prg to make changes in my development data that way it is anyways up-to-date.

Here's a code snippit

******************************************************
WAIT CLEAR
WAIT WINDOW [ Updating Person Table... ] NOWAIT

LOCAL cpath, iretval, aryfields

IF NOT USED([player])
SELECT 0
USE cybersports!player SHARED
ENDIF

IF USED([player])

SELECT player

DO WHILE NOT FLOCK([player]) AND icnt < 100

***
WAIT [] TIMEOUT .1
icnt = icnt + 1
ENDDO

IF FLOCK([player])
USE IN player
USE player EXCL

DIMENSION aryfields(1)
AFIELDS(aryfields,[player])

IF ASCAN(aryfields,[ASSNCODE]) = 0
ALTER TABLE player ADD COLUMN assncode c(10)
ELSE
ALTER TABLE player ALTER COLUMN assncode c(10)
ENDIF
***********************************************

Hope this helps.
Fred Lauckner

You know, it works on my computer. I don't know what your problem is.

.Net aint so bad.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform