créer une une base de données dynamiquement

bonjour a tous,
après pas mal de recherche infructueuse....je me tourne vers vous!!

je cherche a créer une une base de données dynamiquement...mais ca ne marche pas, je fonctionne sous builder 5, et il me donne l'erreur

Citation:

AddFieldDef n'est pas un membre de TTable

voici mon code, si certaine personne ont des solutions a mon problème, je suis preneur =)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
//---------------------------------------------------------------------------
 
 
void TForm1::Table()
{
if (!table1->Exists) // Ne pas écraser une table existante
{
 
  table1->Active = false; // Le composant Table ne doit pas être actif
 
//-----------------En premier, description de la table qui doit être nommée--
  table1->DatabaseName = "bddradar" ;
  table1->SessionName = "Session1";
  table1->TableName = "bdd.dbf" ;
  table1->TableType = ttDBase;
 
//--------------------Ensuite description des champs-----------------------
 
  table1->FieldDefs->Clear();
  TFieldDef *pNewDef = table1->AddFieldDef();
  pNewDef->Name = "Vitesse";
  pNewDef->DataType = ftInteger;
  pNewDef->Required = true;
  pNewDef = table1->AddFieldDef();
  pNewDef->Name = "DATE";
  pNewDef->DataType = ftString;
  pNewDef->Required = true;
  pNewDef = table1->AddFieldDef();
  pNewDef->Name = "Heure";
  pNewDef->DataType = ftString;
  pNewDef->Size = 30;
 
//-----------------------------Puis description des index----------------------
 
  table1->IndexDefs->Clear();
  /* Le premier index n'a pas de nom: il s'agit d'une clé primaire dBase*/
  table1->IndexDefs->Add("","Field1", TIndexOptions() <<ixPrimary << ixUnique);
 
  table1->IndexDefs->Add("Fld2Index","Field2", TIndexOptions() << ixCaseInsensitive);
 
//-----------Maintenant que tout est spécifié, création de la table-------------
 
  table1->CreateTable();
}
 
}