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
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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();
}
 
}