Como criar 2 campos no ClientDataSet em Run-Time???
10/09/2004
0
Como criar 2 campos no ClientDataSet em Run-Time???
preciso criar por exemplo:
campo String(20)
campo Float
o componente já consegui criar somente faltam os campos!
:arrow: alguém sabe??
Muito obrigado. :wink:
preciso criar por exemplo:
campo String(20)
campo Float
o componente já consegui criar somente faltam os campos!
:arrow: alguém sabe??
Muito obrigado. :wink:
Claudio Sam
Curtir tópico
+ 0
Responder
Posts
11/09/2004
Fclmrj
Olá,
Tente o código :
var
Campo : TField;
Coluna : TColumn;
begin
Campo := TField.Create( ClientDataSet );
Campo.SetFieldType( ftString );
Campo.Name := ´NovoCampo´;
ClientDataSet.Fields.Add( Campo );
DBGrid.Columns.Insert(0);
DBGrid.Columns.RebuildColumns;
DBGrid.Columns[DBGrid.Columns.Count -1 ].FieldName := ´NovoCampo´;
DBGrid.Columns[DBGrid.Columns.Count -1].Title.Caption := ´Descrição do novo campo´;
DBGrid.Columns[DBGrid.Columns.Count -1].Title.Font.color := clNavy;
DBGrid.Columns[DBGrid.Columns.Count -1].Title.Font.Style := [fsbold];
Caso queira criar o campo fisicamente, creio que seja necessário uma instrução SQL do tipo ´ALTER TABLE TABELA ADD ...´.
Tente o código :
var
Campo : TField;
Coluna : TColumn;
begin
Campo := TField.Create( ClientDataSet );
Campo.SetFieldType( ftString );
Campo.Name := ´NovoCampo´;
ClientDataSet.Fields.Add( Campo );
DBGrid.Columns.Insert(0);
DBGrid.Columns.RebuildColumns;
DBGrid.Columns[DBGrid.Columns.Count -1 ].FieldName := ´NovoCampo´;
DBGrid.Columns[DBGrid.Columns.Count -1].Title.Caption := ´Descrição do novo campo´;
DBGrid.Columns[DBGrid.Columns.Count -1].Title.Font.color := clNavy;
DBGrid.Columns[DBGrid.Columns.Count -1].Title.Font.Style := [fsbold];
Caso queira criar o campo fisicamente, creio que seja necessário uma instrução SQL do tipo ´ALTER TABLE TABELA ADD ...´.
Responder
Clique aqui para fazer login e interagir na Comunidade :)