Discussion :

[Hamza]

Bonjour,

je n'arrive pas a comprendre pourquoi sa ne marche pas, une requête très simple.

Code :

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

1
2
3
requ.Sql.Clear;
requ.Sql.Add('Alter Table utilisateur Change DRwings DRwingsVal string(1)');
requ.ExecSql;

j'utilise delphi 10 et l'objet ADOQUERY, sincèrement je ne comprend pas qu'elle est le problème le message d'erreur lors de l’exécution est le suivant :

Erreur de syntaxe dans l'instruction ALTER TABLE

Merci a vous

[ShaiLeTroll]

ADOQUERY mais sur quel SGBD ?
CHANGE et pas MODIFY, ça ferait penser à MySQL
Avez-vous vérifier sur un outil avant ? si c'est MySQL un truc comme MySQL Workbench (j'en ai pas fait depuis MySQL 5.1)

Code sql :

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

Alter Table utilisateur Change DRwings DRwingsVal string(1)

Code sql :

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

1
2
ALTER TABLE nom_table
CHANGE colonne_ancien_nom colonne_nouveau_nom type_donnees

string c'est bizarre, en général c'est VARCHAR()


Si c'est pas du MySQL, plus de chance avec un MODIFY

[Hamza]

Bonjour,
Merci devotre reponse, j'utilise une base de donnée sous Microsoft Access, ce que je n'arrive pas comprendre est que pour ajouter des champ sa marche tres bien

Code :

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

1
2
3
requ.Sql.Clear;
requ.Sql.Add('Alter Table utilisateur ADD IntTransmittals string(1)');
requ.ExecSql;

pour rename un champ sa marche pas, hors que j'ai bien récupérer la requête en question sur le même site qui propose comment ajouter.
Seulement le rename qui marche pas et je vient de teste avec MODIFY sa marche pas, sa affiche le même message d'erreur

Merci

[blonde]

Bonjour,

je n'arrive pas a comprendre pourquoi sa ne marche pas, une requête très simple.

Code :

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

1
2
3
requ.Sql.Clear;
requ.Sql.Add('Alter Table utilisateur Change DRwings DRwingsVal string(1)');
requ.ExecSql;

j'utilise delphi 10 et l'objet ADOQUERY, sincèrement je ne comprend pas qu'elle est le problème le message d'erreur lors de l’exécution est le suivant :

Erreur de syntaxe dans l'instruction ALTER TABLE

Merci a vous

où avez-vous trouvé la syntaxe du alter table pour Access ?
sous ce lien : https://docs.microsoft.com/fr-fr/off...oft-access-sql
je ne vois pas l'utilisation du mot clé "CHANGE", vous êtes sûr de votre requête ?

[Hamza]

Re Bonjour,

Pour le moment je vais depanner avec le code suivant :

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
requ.Sql.Clear;
requ.Sql.Add('Alter Table utilisateur ADD DRwingsVal string(1)');
requ.ExecSql;
BDD.Connected:=false;BDD.Connected:=true;utilisateur.Active:=true;
utilisateur.First;
while not(utilisateur.Eof) do
begin
utilisateur.Edit;
utilisateur.FieldValues['DRwingsVal']:=utilisateur.FieldValues['DRwings'];
utilisateur.Post;
utilisateur.Next
end;
requ.Sql.Clear;
requ.Sql.Add('Alter Table utilisateur DROP DRwings');
requ.ExecSql;

je créer le nouveau champs, je le remplis avec les même valeur du champ que je veux rename et enfin je delete l'ancien champ.

Merci

[ShaiLeTroll]

Effectivement c'est votre source de documentation qui doit mélanger les SQL de différents SGBD, la seule fiable c'est la MSDN

Sinon j'écrirais plutôt ceci

Code :

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

1
2
3
4
5
6
requ.Sql.Text :='Alter Table utilisateur ADD COLUMN DRwingsVal string(1)';
requ.ExecSql;
requ.Sql.Text :='update utilisateur set DRwingsVal = DRwings '; // Sera nettement plus rapide qu'une boucle
requ.ExecSql;
requ.Sql.Text :='Alter Table utilisateur DROP COLUMN DRwings';
requ.ExecSql;

ou même si ACCESS le supporte (à l'instar de MSSQL)

Code :

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

1
2
3
4
requ.Sql.Text := ' Alter Table utilisateur ADD COLUMN DRwingsVal string(1) ; ' + sLineBreak
               + ' update utilisateur set DRwingsVal = DRwings ; ' + sLineBreak
               + ' Alter Table utilisateur DROP COLUMN DRwings ; ';
requ.ExecSql;

[Hamza]

Bonsoir,

je vous remercie infiniment, sa fonctionne très bien mieux que la boucle , cela dit pour sLineBreak Access ne le supporte pas.

encore merci a vous