Discussion :

[GutsRed]

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();
}
 
}

[androz]

Salut,

Je ne sais pas si tu as déjà fait un tour dans ce coin, mais c'est ce qui m'a permis de débuter avec les BD sous BCB6 :

http://lberne.developpez.com/bcb/paradox/