Jóvenes, buen día...
Resulta que en éste hilo yo preguntaba sobre la creación de una tabla Paradox vía una matriz..., y ahora, requiero el complemento, es decir una vez creada la tabla, necesito crearle un índice que sea congruente con la tabla recién creada.
Sean tan amables de entenderme, que tiene MUCHOS años que no trabajo con Paradox. Agradeciendo de antemano.
![Photo](http://delphiaccess.com/foros/uploads/profile/photo-12739.png?_r=0)
[RESUELTO] Merezco que me cuelguen de las orejas II
Started by
TiammatMX
, Apr 02 2011 07:25 AM
2 replies to this topic
#1
Posted 02 April 2011 - 07:25 AM
#2
Posted 02 April 2011 - 08:34 AM
Pues lo mas sencillo seria añadirle un campo "ID" donde pongas el orden de cada elemento en tu matriz, y luego crees un indice por ese campo y lo uses al hacer consultas por SQL (order by id). Como se crea un indice en paradox ya depende de los componenetes y esas cosas, la verdad, no te puedo ayudar mucho (yo tambien hace 15 años que no uso estas cosas).
#3
Posted 04 April 2011 - 10:57 AM
Pues bueno, como parece que nadie tuvo la respuesta, me doy yo mismo la respuesta...
Nótese la línea IndexDefs, que es la que resuelve el hilo.
![;)](http://delphiaccess.com/foros/public/style_emoticons/default/15.gif)
![:D](http://delphiaccess.com/foros/public/style_emoticons/default/01.gif)
delphi
procedure CrearArchivo; var sNmbrCmp, sHra, sNmbrTbl : string; iIndc : integer; begin sHra := TimeToStr(Now); sHra := LeftStr(sHra,2)+MidStr(sHra,4,2); sNmbrTbl := 'lp' + IntToStr(DayOfTheYear(Now)) + sHra +'.db'; with TTable.Create(nil) do try DatabaseName := 'EspecializadosTmp'; TableName := sNmbrTbl; TableType := ttParadox; FieldDefs.Add('Grupo',ftString,20,True); FieldDefs.Add('Codigo',ftString,6,True); FieldDefs.Add('Descripcion',ftString, 50, False); FieldDefs.Add('Longitud',ftFloat,0,False); for iIndc := 0 to chcklstboxAcbds.Items.Count -1 do begin if chcklstboxAcbds.Checked[iIndc] then begin sNmbrCmp := chcklstboxAcbds.Items.ValueFromIndex[iIndc]; FieldDefs.Add(sNmbrCmp,ftFloat,0,False); end; end; [b]IndexDefs.Add(sNmbrTbl,'Grupo;Codigo',[ixPrimary]);[/b] CreateTable; finally Free; end; tblTmprl.TableName := sNmbrTbl; tblTmprl.Exclusive := True; tblTmprl.Active := True; end;
Nótese la línea IndexDefs, que es la que resuelve el hilo.