Ancienne commande de gestion des tables.
Je ne l'utilise plus.
Ci dessous un exemple (ne pas oublier de créer le dossier avant de tester).
*
* ExempleTableIndex.prg - Divers outils Table et Index.
* -----------------------------------------------------
*
/*
Ceci est en exemple basique.
*/
*
PUBLIC DefautFolder && PUBLIC variable
*
DefautFolder = "C:\TestProgrammeBernardMouille"
*
IF MSGBOX("OUI = méthode objet" + CHR(10) + "NON = ancienne méthode" ;
,"Sélection méthode tables", 4 + 32) = 7 && 7 = NON.
*
* Créer une table.
*
CREATE TABLE "&DefautFolder\OldTableName" ( ;
OldFiedName1 CHAR(10), ;
OldFiedName2 CHAR(14))
*
* Indexer la Table.
*
USE &DefautFolder\OldTableName EXCLUSIVE
INDE ON OldFiedName1 TO &DefautFolder\OldIndexName1
INDE ON OldFiedName2 TO &DefautFolder\OldIndexName2
*
SET INDEX TO &DefautFolder\OldIndexName2, &DefautFolder\OldIndexName1
APPEND BLANK
REPLACE OldFiedName1 WITH "Field 1"
REPLACE OldFiedName2 WITH "Field 2"
USE
*
RETURN
ENDIF
*
* Créer une table.
*
CREATE TABLE "&DefautFolder\ObjectTableName" ( ;
ObjectFiedName1 CHAR(10), ;
ObjectFiedName2 CHAR(14))
*
* Indexer la Table.
*
LOCAL oTd
*
oTd = new DbfIndex()
oTd.unique := .T.
oTd.indexName := "Index1"
oTd.expression := "ObjectFiedName1"
*
_app.databases[1].createIndex(DefautFolder +"\ObjectTableName", oTd)
*
oTd := null
*
* Utiliser la table.
*
oDbf = new query()
oDbf.sql :='select * from "&DefautFolder\ObjectTableName"'
oDbf.active := true
*
oDbf.rowset.beginAppend()
oDbf.rowset.fields["ObjectFiedName1"].value = "Field 1"
oDbf.rowset.fields["ObjectFiedName2"].value = "Field 2"
*
oDbf.rowset.save()
oDbf.active := false
oDbf := null
*
RETURN