• Domingo 15 de Diciembre de 2024, 00:31

Autor Tema:  Cualidades de TDBGrid  (Leído 1208 veces)

AnimaSubtilis

  • Miembro MUY activo
  • ***
  • Mensajes: 172
  • Nacionalidad: co
    • Ver Perfil
Cualidades de TDBGrid
« en: Lunes 23 de Junio de 2008, 18:50 »
0
Buenas a todos los del foro.....

por primero..... :D les quedo muy bonito el diseño  :P  los felicito....

 :beer:

Lo segundo es pedirles un favor....
quien me podria colaborar con informacion acerca del manejo del TDBGrid es que nescesito hacer una cosa....nescesito coger la informacion que tengo en el DBGrid y transferirla a excel.....me gustaria saber si es posible manejar el DBGrid como un StringGrid el cual tiene la propiedad cells
  • [y]....


o cualquier apresiativa o posible solucion al dilema....pues es que hasta ahora comence a trabajar bases de datos y no se mayor cosa

les agradesco de antemano...cualquier respuesta estare en deuda.. :lol:
A menudo unas pocas horas de «prueba y ensayo» podrán ahorrarte minutos de leer manuales.
[size=150]
Dios nos Otorgo el uno y el cero....y con eso creamos un universo....[/size]

[size=109]↑°°°°ÄNÍMÄ §ÛBTÍLͧ°°°°↓[/size]


AnimaSubtilis

  • Miembro MUY activo
  • ***
  • Mensajes: 172
  • Nacionalidad: co
    • Ver Perfil
Re: Cualidades de TDBGrid
« Respuesta #1 en: Martes 24 de Junio de 2008, 16:08 »
0
Buenas a todos...

para los que les pueda interesar acabo de solucionar mi problema... :P pero casi que no  :hitcomp:

bueno lo unico que hice fue coger el TAdoDataSet el cual lo consulte algo asi para hacer una especie de matriz...

consulta es el Name del TADODataSet

x=consulta->FieldsCount;

for(i=1;i<=x;i++)
 {
  consulta->First();
  j=2;
  while(!consulta->Eof)
  {
   Temp=consulta->FieldByName(consulta->Fields->Fields[i-1]->FieldName)->AsString;
   Mihoja.OlePropertyGet("Cells").OlePropertyGet("Item",j,i).OlePropertyGet("Font").OlePropertySet("Italic",true);
   Mihoja.OlePropertyGet("Cells").OlePropertyGet("Item",j,i).OlePropertyGet("Font").OlePropertySet("Size",12);
   Mihoja.OlePropertyGet("Cells").OlePropertyGet("Item",j,i).OlePropertyGet("Font").OlePropertySet("Color",clBlue);
   Mihoja.OlePropertyGet("Cells").OlePropertyGet("Item",j,i).OlePropertySet("Value",Temp.c_str());
   j++;
   consulta->Next();
  }
 }

gracias por la atencion prestada
A menudo unas pocas horas de «prueba y ensayo» podrán ahorrarte minutos de leer manuales.
[size=150]
Dios nos Otorgo el uno y el cero....y con eso creamos un universo....[/size]

[size=109]↑°°°°ÄNÍMÄ §ÛBTÍLͧ°°°°↓[/size]