Modif Nom Table dans BDD AccessRésolu

Question

Bonjour tout le monde, 
Donc voil&#224; mon probl&#232;me ! J'utilise une base de donn&#233;es MS Access qui comporte plusieurs tables. Pour ce faire j'utilise l'ODBC et j'ajoute ma Base de donn&#233;es en question.

J'utilise le composant TTable pour appeler ma base de donn&#233;es Access et travailler avec.
(J'utilise Delphi 4)

Table1.DatabaseName := 'BDDACCESS1';

Ma question est de savoir comment on peut renommer le nom des tables pr&#233;sentent dans la base de donn&#233;es ?

Je vous remercie d'avance pour votre aide !

jmp77 · Accepted Answer

D&#233;sole Cupra j'ai lu un peu vite ton message sinon avec un TTable voici une fonction que j'ai test&#233; et qui fonctionne :

On copie la Table sous un nouveau nom puis on la detruit. 

Si ta table est pas trop volumineuse sa devrait aller.

TableName : Nom de la table

DatabaseRef : Database de connexion &#224; access

DbGridTmp : DbGrid ou tu souhaites afficher les infos

TableTmp : Nouvelle table

TableRef : Table de reference qui sera detruite

DataSourceTmp : Datasource connect&#233; derriere le TableTmp

ErrorMessage : Renvoi les erreurs eventuelles



function RenameTableAccess(TableName : ShortString; DataBaseRef : TDataBase;

         DbGridTmp : TDbGrid; var TableTmp,TableRef : TTable;

         var DataSourceTmp : TDataSource; out ErrorMessage : ShortString) : Boolean;

begin

Result := True;



   Try

   {Cr&#233;ation de la table}

   TableTmp              := TTable.Create(nil);

   TableTmp.DatabaseName := DataBaseRef.DatabaseName;

   TableTmp.TableName    := TableName;

   TableTmp.SessionName  := DataBaseRef.Session.SessionName;

   TableTmp.FieldDefs.Add('I_Clef',FtInteger,0,False);

   TableTmp.IndexDefs.Add('','I_Clef',[IxPrimary,IxUnique]);

   TableTmp.CreateTable;

   {Sauvegarde de la table originale}

   TableTmp.BatchMove(TableRef,batCopy);

   {Connection &#224; la table}

   DataSourceTmp         := TDataSource.Create(nil);

   Datasource1.DataSet   := TableTmp;

   DbGridTmp.Datasource  := DataSourceTmp;

   TableTmp.Active       := True;

   {Destruction de la base de reference}

   TableRef.Active       := False;

   TableRef.DeleteTable;

   except



      {On r&#233;cup&#232;re l'erreur pour la restituer &#224; l'utilisateur}

      on E:Exception do

      begin

      Result := False;



         If E.Message = '' then
E.Message := 'ECreationTableTampon : Erreur &#224; la cr&#233;ation de la base
tampon.';



      ErrorMessage := E.Message;

      end;

   end;

end;

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

jmp77 · Answer

Hello Cupracing,



    Tu as essayer en sql         RENAME TABLE Ancien_Nom TO Nouveau_Nom


Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

cupracing · Answer

mille merci encore une fois pour ta r&#233;ponse jmp77 ... &#231;a marche !!!

jmp77 · Answer

C'est cool heureux d'avoir pu te depanner.

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

belaid52 · Answer

Salut,
comment peut on bloquer un enregistrement d'une table pendant sa maj pour que d'autres utilisateurs n'accedent pas a cet enregistrement?
merci

Modif Nom Table dans BDD Access

5 réponses

Votre réponse

Discussions similaires