[Lazarus-es] definicion de un campo UNIQUE

[Jose Antonio Cuello]

Creo que te sería más sencillo montar una SQL y ejecutarla directamente con un TQuery 

Algo así, voy de memoria ... 

myQry := TQuery.Create(); 
myQry.SQL.Text := 'CREATE TABLE ......' 
myQry.Exec 


De: "hfiandor via Lazarus-es" <lazarus-es en lists.lazarus-ide.org> 
Para: lazarus-es en lists.lazarus-ide.org 
CC: "hfiandor" <hfiandor en ceniai.inf.cu> 
Enviados: Martes, 17 de Enero 2017 18:31:06 
Asunto: [Lazarus-es] definicion de un campo UNIQUE 



Estimados listeros> 

Yo creo las tablas sqlite en una unidad DataModulo como sigue> 



with fdm.tAlumnos do 

begin 

FileName := camino_BD + '\Clasificadores.db'; 

PrimaryKey := 'IdAlumnos'; 

if not TableExists('Alumnos') then 

begin 

FieldDefs.Clear; 

FieldDefs.Add('IdAlumnos', ftInteger); 

FieldDefs.Add('CI', ftString, 11, NOT NULL); 

FieldDefs.Add('control', ftString, 10, NOT NULL ); 

FieldDefs.Add('primerapellido', ftString, 50); 

FieldDefs.Add('segundoapellido', ftString, 50); 

FieldDefs.Add('nombre', ftString, 50); 

FieldDefs.Add('direccion', ftString, 80); 

FieldDefs.Add('telefono', ftString, 30); 

FieldDefs.Add('email', ftString, 50); 

FieldDefs.Add('fechaingreso', ftString, 8); 

FieldDefs.Add('grado', ftString, 10); 

FieldDefs.Add('grupo', ftString, 10); 

CreateTable; 

end 

else begin end; 

AutoIncrementKey := True; 

end; 



y deseo que el campo ‘control’, ademas de NOT NULL sea UNIQUE. 



Como se hace eso? 



Leyendo correos viejos sobre CREATE TABLE usando SQL, me asalta una duda: Esto se puede hacer en el DataModulo? 



Anticipándole las gracias, 



Saludos 

Ing. Héctor F. Fiandor Rosario 























_______________________________________________ 
Lazarus-es mailing list 
Lazarus-es en lists.lazarus-ide.org 
http://lists.lazarus-ide.org/listinfo/lazarus-es 
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20170118/306b4893/attachment-0001.html>