Otro pequeño aporte:
Código SQL [-]
tabla := 'T12345';
Query6.Close;
Query6.SQL.Clear;
Query6.SQL.Add('ALTER TABLE '+tabla+'(');
Query6.SQL.Add('ADD CONSTRAINT codigoPRIMARYKEY1)');
Query6.SQL.Add('PRIMARY KEY (CODIGO)');
Query6.ExecSQL;
__________________
Manuel Muñoz L. Trabajando con delphi 7.0 , migrando sistema a Delphi XE8, matando BDE y pasando FIREDAC.
|