Fórum Criar ClientDataSet #352325
23/01/2008
0
Como crio o ClientDataSet, dinamicamene!!!
tenho lá
FMapeamento: TClientDataSet;
property Mapemeamento: TClientDataSet read FMapemento write FM...
constuctor Create
Quando vou passar algum valor pra ele da um erro
Mapeamento.FieldValues[´Origem´] := 1
Mapeamento.FieldValues[´ChaveEstrangeira´] := ´Teste´
Erro:
Could not convert variant of type (String) into type (Boolean)
tenho lá
FMapeamento: TClientDataSet;
property Mapemeamento: TClientDataSet read FMapemento write FM...
constuctor Create
with Mapeamento do
begin
with FieldDefs.AddFieldDef do
begin
DataType := ftInteger;
Name := ´Origem´;
end;
with FieldDefs.AddFieldDef do
begin
DataType := ftString;
Name := ´ChaveEstrangeira´;
Size := 30;
end;
CreateDataSet;
end;Quando vou passar algum valor pra ele da um erro
Mapeamento.FieldValues[´Origem´] := 1
Mapeamento.FieldValues[´ChaveEstrangeira´] := ´Teste´
Erro:
Could not convert variant of type (String) into type (Boolean)
Luiz_aquino
Curtir tópico
+ 0
Responder
Posts
15/02/2008
Dor_poa
Em resumo vou fazer exatamente o que vc fez so que assim funciona OK!
var
TABELA: TClientDataSet;
Begin
// Criação da tabela!!
TABELA:= TClientDataSet.Create(Application);
TABELA.FieldDefs.Add(´ChaveEstrangeira´, ftString, 30, False);
TABELA.CreateDataSet;
//adiconando registros
TABELA.apend;
TABELA.FieldByName(´ChaveEstrangeira´).AsString := ´X´
TABELA.POST;
End;
var
TABELA: TClientDataSet;
Begin
// Criação da tabela!!
TABELA:= TClientDataSet.Create(Application);
TABELA.FieldDefs.Add(´ChaveEstrangeira´, ftString, 30, False);
TABELA.CreateDataSet;
//adiconando registros
TABELA.apend;
TABELA.FieldByName(´ChaveEstrangeira´).AsString := ´X´
TABELA.POST;
End;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)