Discussion :

[xiorcal]

Je voudrais transformer mon appli BDE en ADO. J'ai quelques problèmes pour remplacer simplement les fonctions Exists, CreateTable. Si quelqu'un peut m'aider, je lui en serais reconnaissant (je n'ai rien trouvé dans le forum).
Merci d'avance

[archonte]

Pour ton CreateTable : en ADO :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
  // la chaine de commande
  var cs : WideString;
  cs := 'CREATE TABLE MaTable (' +
        'ChampIndex  COUNTER PRIMARY KEY,' +  // quelques exemples de type de champs
        'ChampText   TEXT(20),' +
        'ChampInt    INTEGER,' +
        'ChampBool   BIT)';
 
  // il faut placer un TADOCommand sur la fiche, ici ADOCmd
  ADOCmd.CommandText := cs;
  ADOCmd.Execute;

Pour Exists ????