Como fazer a mesma rotina do storedproc no cds

03/03/2010

Wesley Yamazack

Ol� meu amigo,
Estou analisando o chamado e logo retornarei

Um abra�o

Wesley Y

Responder

Gostei + 0

03/03/2010

Carlos Faria

Ok amigo, o mais rapido possivel !

Responder

Gostei + 0

03/03/2010

Wesley Yamazack

Ol� meu amigo,
Seguinte, pelo que entendi, voc� esta fazendo o processo errado. no seu loop voc� tem que fazer da seguinte forma

Var
xNome : String;

begin

Xnome := DBEdit1.text;

For I:=0 to max do
begin
CDSx.Append;
CDSx.FieldByname('NomeMotoqueiro').asstring := xNome ;
CDSx.Post;
end;

TClientDataSet(DS.DataSet).ApplyUpdates(0);

O que acontece, voc� tem que preparar a tabela para inclus�o com Append, e gravar a inclus�o.
O ApplyUpdates, ele � executado uma �nica vez, pois voc� primeiro passa todos os dados para memoria e depois sim gravar todos eles de uma s� vez, pensa neste comando como Commit, voc� pode deltar um registro, incluir 10, alterrar 5, isso tudo em mem�ria, quando voc� quiser gravar no banco de dados basta usar uma �nica vez o APPLYUPDATES.

Sacou meu amigo ?

Um abra�o

Wesley Y

Responder

Gostei + 0

03/03/2010

Carlos Faria

Funcionou igualzinho a proc porem eu pensei que ia saber como fazer e nao soube Eu tenho 2 cds cdscliente cdscorridas quando eu consulto no cdscorridas eu ja jogo todos os dados no cdscorridas , assim se tudo estiver do mesmo jeito e nao precisar fazer altera��es o usuario ja finaliza sem digitar nada , apenas escolhe a quantidade e manda bala A questao agora � como eu vou dar insert em um clientdataset ?   como mostro abaixo var
xCorrida: TClientDataSet;
Max, I: integer;
begin
xCorrida := dsCorridas.DataSet.Fields.Create ;
Max := STRTOINT(rgQTMotoqueiros.items[rgQTMotoqueiros.ItemIndex]);
for I := 0 to Max do
begin     dsCorridas.DataSet.Append;
    dsCorridas.DataSet.FieldByName('nome').AsString := xNome;
    dsCorridas.DataSet.Post;
end;
TClientDataSet(dsCorridas.DataSet).ApplyUpdates(0);
dsCorridas.DataSet.Close;
dsCorridas.DataSet.Open;

Responder

Gostei + 0

04/03/2010

Wesley Yamazack

Ol� amigo,
    Me diga uma coisa, porque criar um ClientDataSet na m�o ? E n�o ter ele no form, j� apontando para um DataSetProvider, e por sua vez apontando para um SQLQuery/SQLDataSet ? Assim voc� n�o precisa ficar criando ele.
   E para inserir os dados no ClientDataSet, voc� tem que fazer como no exemplo

    dsCorridas.DataSet.Append;
    dsCorridas.DataSet.FieldByName('nome').AsString := xNome;
    dsCorridas.DataSet.Post;
TClientDataSet(dsCorridas.DataSet).ApplyUpdates(0);


E os dados s�o gravador. Agora se voc� quer fazer um loop em um outro clientdataset, e preencher este CDS com os dados do segundo, ai � outra hist�ria, voc� tem que passar para os Fields do primeiro cds, os dados do segundo, mas sempre usando o append e depois o post,exemplo

Voc� tem que fazer um loop no cds que deseja varrer, e pegar os dados para preencher no outro.

while not cdsConsulta.eof do
bebin
    dsCorridas.DataSet.Append;
    dsCorridas.DataSet.FieldByName('nome').AsString := cdsConsulta.FieldByName('nome').AsString;
    dsCorridas.DataSet.FieldByName('codigo').AsString := cdsConsulta.FieldByName('idcorrida').AsString;
    dsCorridas.DataSet.FieldByName('data').AsString := cdsConsulta.FieldByName('datacorrida').AsString;
    dsCorridas.DataSet.Post;
TClientDataSet(dsCorridas.DataSet).ApplyUpdates(0);
   cdsConsulta.Next; //Tem que ter o next, senao voc� vai ficar em Loop infinito
end;

Seria isso que voc� quer ??

Um abra�o

Wesley Y

Responder

Gostei + 0

06/03/2010

Carlos Faria

Eu vou gravar um video e te demostar a real situa��o aqui ,

Responder

Gostei + 0

08/03/2010

Wesley Yamazack

OK fico no aguardo

Um Abra�o

Wesley Y

Responder

Gostei + 0

16/03/2010

Carlos Faria

Hoje sem falta agente fecha esse chamado nao tive como responder !

Responder

Gostei + 0

16/03/2010

Wesley Yamazack

OK amigo, fico no aguardo.

Forte abra�o

Wesley Y

Responder

Gostei + 0

18/03/2010

Carlos Faria

Ola Wesley , pode fechar o chamado ai que ficou bastante clara a explica��o entendi e coloquei para funcionar tudo no clientdataset ? acho que ja saquei a coisa que mata em quem era acostumado a usar proc e migou para o cds os erros do clientdataset sao silenciosos isso era que tava me fazendo acreditar que o componente nao era tao bom assim como voces dizem ai! vou aprender a ver esses erros silenciosos !

Responder

Gostei + 0

18/03/2010

Wesley Yamazack

Ol� amigo,

Estamos aqui pra ajudar sempre, cds � muito bom. rsrs. Chamado Fechado

Um abra�o

Wesley Y

Responder

Gostei + 0

F�rum Como fazer a mesma rotina do storedproc no cds #16834