OnGetTableName TClientDataSet
olá pessoal
estou tendo um problema que a muito não consigo resolver.
eu uso o TSQLConnection TSQLDataSet TDataSetProvider e depois
todo o TClientDataSet que eu crio eu relaciono ao provider
eu faço um select num cds e logo depois eu dou um delete, ex.:
cds2.close;
cds2.CommandText := ´select * from Programador´;
cds2.open;
cds1.close;
cds1.CommandText :=
´Select Cod_Chamado from Chamado union all Select Cod_Manutencao from Manutencao´
cds1.open;
cds1.close;
cds1.free;
cds2.delete;
cds2.ApplyUpdates(0);
Dá erro... o TableName do evento OnGetTableName fica com o valor de ´Chamado´ e não de ´Programador´. Por isso ele dá o erro indicando que os campos da tabela de programador não existem;
já criei um datasetprovider para cada clientdataset e continua a mesma coisa.
Vi que isso é uma coisa do TSQLResolver. Mas não consegui limpar esse ´buffer´ que parece ser do clientdataset
estou tendo um problema que a muito não consigo resolver.
eu uso o TSQLConnection TSQLDataSet TDataSetProvider e depois
todo o TClientDataSet que eu crio eu relaciono ao provider
eu faço um select num cds e logo depois eu dou um delete, ex.:
cds2.close;
cds2.CommandText := ´select * from Programador´;
cds2.open;
cds1.close;
cds1.CommandText :=
´Select Cod_Chamado from Chamado union all Select Cod_Manutencao from Manutencao´
cds1.open;
cds1.close;
cds1.free;
cds2.delete;
cds2.ApplyUpdates(0);
Dá erro... o TableName do evento OnGetTableName fica com o valor de ´Chamado´ e não de ´Programador´. Por isso ele dá o erro indicando que os campos da tabela de programador não existem;
já criei um datasetprovider para cada clientdataset e continua a mesma coisa.
Vi que isso é uma coisa do TSQLResolver. Mas não consegui limpar esse ´buffer´ que parece ser do clientdataset
Miuuudo
Curtidas 0