Daniel, Sobre o tratamento, não tive como pois importei os dados dai vieram todos malukos hehehe agora cara nao funcionou o UpperCase ele so alterou os registros q estão em caixa alta...o q eu gostaria mesmo era de alterar tanto em maiusculo quando em minusculo...o update so afeta o q eu digito..se na clausula digito MARIO so afeta o MARIO seu eu digitar Mario so afeta o Mario...
Mas cara...ta muito bem explicado e eu como iniciante consegui entender bacana tudo... no aguardo 2009/2/4 Daniel Sobrinho Laporte <[email protected]> > Bom vamos la em caso de minusculas ou maiusculas você trata no seu campo > dbedit, edit ou qualquer coisa fazendo com que ele seja gravado maiusculo > ou > minsculo usando a propriedade CharCase e caso voce não queira tratar isso > dessa maneira ainda há a possibilidade de forçar ser maiusculo na própria > select.. dessa maneira : > > DataModule2.cds.CommandText := UpperCase('update tblCadastrado Set nome > ='+QuotedStr('MARIO TESTE')+' Where nome = '+QuotedStr('MARIO')); > > Resultado vai ser : > > UPDATE TBLCADASTRADO SET NOME = MARIO TESTE WHERE NOME = MARIO > > Independente se está escrito com maiúsculo ou minúsculo.. > > Em relação aos registros quando você faz do tipo DML( INSERT/ UPDATE / > DELETE) você pode obter através do método se não me falha a memória é > MeuDataSet.RowsAffected algo assim rs..quando é uma consulta normal você > pode utilizar o MeuDataSet.RecordCount > > > Abraços, > Daniel > > 2009/2/4 Mario Rodrigues > <[email protected]<marioirodrigues%40gmail.com> > > > > > Pooow galera..voltei de novo... > > são duas bronquinhas..uma é como fazer a pesquisa independente se é > > maiuscula ou miniscula > > > > DataModule2.cds.CommandText := 'update tblCadastrado Set nome > > ='+QuotedStr('MARIO TESTE')+' Where nome = '+QuotedStr('MARIO'); > > independente se é MARIO ou Mario OU maRIO etc etc etc... > > > > e a outra é como fazer um count dos registros afetados... > > tenho assim > > DataModule2.cds.CommandText := 'update tblCadastrado Set nome > > ='+QuotedStr('MARIO TESTE')+' Where nome = '+QuotedStr('MARIO'); > > DataModule2.cds.CommandText := 'update tblCadastrado Set nome > > ='+QuotedStr('MARIO TESTE')+' Where nome = '+QuotedStr('JOSE'); > > DataModule2.cds.CommandText := 'update tblCadastrado Set nome > > ='+QuotedStr('MARIO TESTE')+' Where nome = '+QuotedStr('JOAO'); > > > > dai quantos foram afetados? > > > > dei uma pesquisada e achei o comando ExecuteNonQuery() porem ele nao > funfou > > nao...onde no exemplo ele retorno a quantidade de uma exclusao > simples.... > > > > de novo novamente mais uma vez...valeu > > > > 2009/2/4 Daniel Sobrinho Laporte > > <[email protected]<daniel.laporte%40gmail.com> > <daniel.laporte%40gmail.com> > > > > > > > > Beleza então Mario precisando estamos ai ! > > > > > > Abraços, > > > Daniel > > > > > > 2009/2/4 Mario Rodrigues > > > <[email protected]<marioirodrigues%40gmail.com> > <marioirodrigues%40gmail.com> > > <marioirodrigues%40gmail.com> > > > > > > > > > > > > > > Daniel, > > > > > > > > Valeu ajudou muito... > > > > poAllowComandText = False..dai dei umas arrumadas no docigo e resolvi > > > > sim...valeu > > > > > > > > Andrei...era aquilo mesmo...flw tb cara... > > > > > > > > 2009/2/4 Daniel Sobrinho Laporte > > > > <[email protected]<daniel.laporte%40gmail.com> > <daniel.laporte%40gmail.com> > > <daniel.laporte%40gmail.com> > > > > <daniel.laporte%40gmail.com> > > > > > > > > > > > > > > > > > > Command Text change are not allowed é porque o seu datasetprovider > > que > > > > > está > > > > > ligado ao seu clientdataset não está com a opção poAllowComandText > = > > > > True. > > > > > O > > > > > ClientDataSet não possui um engine próprio de pesquisa, por isso > > > > necessita > > > > > de um dataset que faça esta função. Por isso você encontra > > > > > > > > > > SqlConnection (Ou componente qualquer de conexão) > > > > > | > > > > > SqlDataset(Ligado no sql connection) > > > > > | > > > > > DataSetProvider(Recebe o dataset) > > > > > | > > > > > ClientDataSet(Recebe o provider) > > > > > > > > > > Existem "N" modos de se fazer consultas via delphi embora eu não > > > utilize > > > > o > > > > > commandtext do clientdataset, o funcionamento é este descrito. > > > > > > > > > > Espero poder ter te ajudado. > > > > > > > > > > Abraços, > > > > > Daniel. > > > > > > > > > > > > > > > 2009/2/3 Mario Rodrigues > > > > > <[email protected]<marioirodrigues%40gmail.com> > <marioirodrigues%40gmail.com> > > <marioirodrigues%40gmail.com> > > > <marioirodrigues%40gmail.com> > > > > <marioirodrigues%40gmail.com> > > > > > > > > > > > > > > > > > Andrei, > > > > > > > > > > > > deu o seguinte erro: > > > > > > Command text change are not allowed > > > > > > Diz q o comando nao é permitido...tirei o edit e alterei de post > > para > > > > > > execute... > > > > > > > > > > > > Bom dai o q eu fiz...ao inves de usar o client data set usei o > > > > > TSQLQuery... > > > > > > Dai funcionou... > > > > > > valeu pela ajuda e paciencia Andrei > > > > > > > > > > > > > > > > > > 2009/2/3 Andrei Luís > > > > > > <[email protected]<compuvale.software%40gmail.com> > <compuvale.software%40gmail.com> > > <compuvale.software%40gmail.com> > > > <compuvale.software%40gmail.com> > > > > <compuvale.software%40gmail.com> > > > > > <compuvale.software%40gmail.com> > > > > > > > > > > > > > > > > > > > > Mario, > > > > > > > > > > > > > > Não, tem coisa errada no seu código. Edit e Post estão > sobrando. > > > Tire > > > > o > > > > > > > Edit, e troque o Post por Execute que deve funcionar. > > > > > > > > > > > > > > O Edit é pra você colocar o cds em modo de edição, mas não é o > > > caso. > > > > O > > > > > > que > > > > > > > você quer fazer é executar um comando sql. > > > > > > > > > > > > > > > > > > > > > [] > > > > > > > Andrei > > > > > > > > > > > > > > 2009/2/3 Mario Rodrigues > > > > > > > <[email protected]<marioirodrigues%40gmail.com> > <marioirodrigues%40gmail.com> > > <marioirodrigues%40gmail.com> > > > <marioirodrigues%40gmail.com> > > > > <marioirodrigues%40gmail.com> > > > > > <marioirodrigues%40gmail.com> > > > > > > <marioirodrigues%40gmail.com> > > > > > > > > > > > > > > > > > > > > > > > Andrei, > > > > > > > > > > > > > > > > Pooow besteira nao acho q foi nao...pelo menos ja me deu uma > > > > > luz...fiz > > > > > > > > assim: > > > > > > > > > > > > > > > > DataModule2.cds.Edit; //Coloquei isso pq estava dando erro de > q > > > nao > > > > > > > estava > > > > > > > > em modo de edit ou insert..pode ser?? > > > > > > > > DataModule2.cds.CommandText := 'update tblCadastrado Set nome > > > > > > > > ='+QuotedStr('MARIO TESTE') > > > > > > > > + ' Where nome = '+QuotedStr('MARIO'); > > > > > > > > DataModule2.cds.Post; > > > > > > > > DataModule2.cds.ApplyUpdates(-1); > > > > > > > > DataModule2.cds.Refresh; > > > > > > > > > > > > > > > > Compila...sem erros..porem nao altera nada...algum motivo?... > > > > > > > > De pouco em pouco a gente chega la hehehe > > > > > > > > > > > > > > > > 2009/2/3 Andrei Luís > > > > > > > > <[email protected]<compuvale.software%40gmail.com> > <compuvale.software%40gmail.com> > > <compuvale.software%40gmail.com> > > > <compuvale.software%40gmail.com> > > > > <compuvale.software%40gmail.com> > > > > > <compuvale.software%40gmail.com> > > > > > > <compuvale.software%40gmail.com> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > Mário, > > > > > > > > > > > > > > > > > > Basicamente você vai ter que colocar a mesma sql pra rodar. > > > > > > > > > > > > > > > > > > Não utilizo dbExpress, vou te mostrar como eu faço no IBO: > > > > > > > > > > > > > > > > > > Utilizando parâmetros: (fica mais organizado e limpo) > > > > > > > > > > > > > > > > > > qrTMP.SQL.Text := 'update tblCadastrado Set nome = > :wnomeNovo > > > > Where > > > > > > > nome= > > > > > > > > > :wnomeAntigo'; > > > > > > > > > qrTMP.ParamByName('wnomeNovo').asString := 'MARIO TESTE'; > > > > > > > > > qrTMP.ParamByName('wnomeAntigo').asString := 'MARIO'; > > > > > > > > > qrTMP.Execute; > > > > > > > > > qrTmp.ib_transaction.commitRetaining; > > > > > > > > > > > > > > > > > > Sem utilizar parâmetros: > > > > > > > > > > > > > > > > > > qrTMP.SQL.Text := 'update tblCadastrado Set nome > > > > > ='+QuotedStr('MARIO > > > > > > > > > TESTE') > > > > > > > > > + ' Where nome = '+QuotedStr('MARIO'); > > > > > > > > > qrTMP.Execute; > > > > > > > > > qrTmp.ib_transaction.commitRetaining; > > > > > > > > > > > > > > > > > > Creio que você possa jogar isso num TSQLQuery ou num > > > > TClientDataSet > > > > > > > > > (desculpe se falei besteira, mas é que realmente não manjo > > nada > > > > de > > > > > > > > > dbExpress). > > > > > > > > > > > > > > > > > > > > > > > > > > > [] > > > > > > > > > Andrei > > > > > > > > > > > > > > > > > > 2009/2/3 Mario Rodrigues > > > > > > > > > <[email protected]<marioirodrigues%40gmail.com> > <marioirodrigues%40gmail.com> > > <marioirodrigues%40gmail.com> > > > <marioirodrigues%40gmail.com> > > > > <marioirodrigues%40gmail.com> > > > > > <marioirodrigues%40gmail.com> > > > > > > <marioirodrigues%40gmail.com> > > > > > > > <marioirodrigues% > > > > > > > > 40gmail.com> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > Andrei, > > > > > > > > > > > > > > > > > > > > Valeu...eu ja tinha visto em outro email q acho q foi o > sr > > > > mesmo > > > > > q > > > > > > > > > > enviou... > > > > > > > > > > procurei..mas nao consegui achar nada q fale disso... > > > > > > > > > > > > > > > > > > > > caso alguem ai possa me ajudar... > > > > > > > > > > vlw > > > > > > > > > > > > > > > > > > > > 2009/2/3 Andrei Luís > > > > > > > > > > <[email protected]<compuvale.software%40gmail.com> > <compuvale.software%40gmail.com> > > <compuvale.software%40gmail.com> > > > <compuvale.software%40gmail.com> > > > > <compuvale.software%40gmail.com> > > > > > <compuvale.software%40gmail.com> > > > > > > <compuvale.software%40gmail.com> > > > > > > > > > > > > <compuvale.software% > > > > > > > > 40gmail.com> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > Olá Mário, > > > > > > > > > > > > > > > > > > > > > > Veja se esse material te ajuda: > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > http://www.4shared.com/file/72527475/4358aabb/curso_professor_pedro_souza.html > > > > > > > > > > > > > > > > > > > > > > São vídeo aulas de Delphi + Firebird + dbExpress, estão > > > > > > compactadas > > > > > > > > com > > > > > > > > > o > > > > > > > > > > > 7Zip. > > > > > > > > > > > > > > > > > > > > > > [] > > > > > > > > > > > Andrei > > > > > > > > > > > > > > > > > > > > > > 2009/2/3 Mario Rodrigues > > > > > > > > > > > <[email protected]<marioirodrigues%40gmail.com> > <marioirodrigues%40gmail.com> > > <marioirodrigues%40gmail.com> > > > <marioirodrigues%40gmail.com> > > > > <marioirodrigues%40gmail.com> > > > > > <marioirodrigues%40gmail.com> > > > > > > <marioirodrigues%40gmail.com> > > > > > > > <marioirodrigues% > > > > > > > > 40gmail.com> > > > > > > > > > <marioirodrigues% > > > > > > > > > > 40gmail.com> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > Salve a todos, > > > > > > > > > > > > > > > > > > > > > > > > Uso FB 2.1 > > > > > > > > > > > > Delphi 7 + dbExpress > > > > > > > > > > > > > > > > > > > > > > > > Bom o q eu queria fazer é o seguinte...ao clicar no > > botao > > > > > fazer > > > > > > > > > > alteração > > > > > > > > > > > > na > > > > > > > > > > > > base... > > > > > > > > > > > > > > > > > > > > > > > > Por exemplo: > > > > > > > > > > > > > > > > > > > > > > > > num update seria > > > > > > > > > > > > > > > > > > > > > > > > update tblCadastrado Set nome = 'MARIO TESTE' > > > > > > > > > > > > Where nome 'MARIO' > > > > > > > > > > > > > > > > > > > > > > > > so isso... > > > > > > > > > > > > > > > > > > > > > > > > pelo banco so isso resolveria...mas como estou > > aprendendo > > > > > como > > > > > > > > > poderia > > > > > > > > > > > > fazer > > > > > > > > > > > > isso via delphi... > > > > > > > > > > > > num to pedindo o peixe pescado...se alguem ai tiver > um > > > > > > > > > > *material/site/Ex > > > > > > > > > > > de > > > > > > > > > > > > codig*o agradeceria... > > > > > > > > > > > > > > > > > > > > > > > > flwww > > > > > > > > > > > > > > > > > > > > > > [As partes desta mensagem que não continham texto foram > > removidas] > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > [As partes desta mensagem que não continham texto foram > removidas] > > > > > > > > > > > > > > > > > > > > > > > > > > > > -- > > > > > Abraços, > > > > > > > > > > Daniel. > > > > > > > > > > "Sempre que a vida lhe apresentar um desafio, tenha certeza que > junto > > > > dele > > > > > está a solução", > > > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > > > > > > > > > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > > > > > > > > > > > -- > > > Abraços, > > > > > > Daniel. > > > > > > "Sempre que a vida lhe apresentar um desafio, tenha certeza que junto > > dele > > > está a solução", > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > -- > Abraços, > > Daniel. > > "Sempre que a vida lhe apresentar um desafio, tenha certeza que junto dele > está a solução", > > [As partes desta mensagem que não continham texto foram removidas] > > > [As partes desta mensagem que não continham texto foram removidas]
