Create table delphi 10.2 - sql server

Signaler
-
 abde83 -
Bonjour,
Je veux créer un tableau manuel dans Delphi
J'ai une erreur, mais je ne sais pas où il est. Veuillez trouver quelqu'un pour m'aider, merci beaucoup à l'avance
/////////////////////
DM.ADOQuery1.SQL.Clear;
     with DM.ADOQuery1.SQL do
     begin
        Add('USE ' + NomAlias + ';');
        Add('create table H_Art(');
     Add('reference varchar(15) not null,');
     Add('Type varchar(10) not null,');
     Add('Designation varchar(80),');
     Add('Raison varchar(40),');
       Add('CONSTRAINT H_Art PRIMARY KEY (Reference,N_piece,Type)');
      try
        DM.ADOQuery1.ExecSQL;
        ShowMessage('Table Created HIS_ARTICLES' );
      except
       ShowMessage('Table Not Created HIS_ARTICLES');
      end;
     end;

1 réponse

Correct ... il y a une légère erreur
///////////////////////////////////
DM.ADOQuery1.SQL.Clear;
with DM.ADOQuery1.SQL do
begin
Add('USE ' + NomAlias + ';');
Add('create table H_Art(');
Add('reference varchar(15) not null,');
Add('Type varchar(10) not null,');
Add('Designation varchar(80),');
Add('Raison varchar(40),');
Add('CONSTRAINT F_H_Art PRIMARY KEY (Reference, N_piece, Type)');
try
DM.ADOQuery1.ExecSQL;
ShowMessage('Table Created H_ARTICLES' );
except
ShowMessage('Table Not Created H_ARTICLES'));
end;
end;