[delphi-br] Stored Procedure
Olá, Alguém já usou Delphi 6 + Oracle 9i e Stored Procedure? Estou usando o ADO e sempre dá o seguinte erro raised exception class EOleException with messagem '?O?'. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Stored Procedure com Mysql 5
A Stored Procedure abaixo dá erro de Sintaxe. Alguem pode me ajudar? Grato create procedure Sp_consolidado (ContaVarchar (16), Ano Numeric (10), Superior Varchar (16), Grau Numeric (01), Jan_deb Numeric (11,02), Jan_cred Numeric (11,02), Fev_deb Numeric (11,02), Fev_cred Numeric (11,02), Mar_deb Numeric (11,02), Mar_cred Numeric (11,02), Abr_deb Numeric (11,02), Abr_cred Numeric (11,02), Mai_deb Numeric (11,02), Mai_cred Numeric (11,02), Jun_deb Numeric (11,02), Jun_cred Numeric (11,02), Jul_deb Numeric (11,02), Jul_cred Numeric (11,02), Ago_deb Numeric (11,02), Ago_cred Numeric (11,02), Set_deb Numeric (11,02), Set_cred Numeric (11,02), Out_deb Numeric (11,02), Out_cred Numeric (11,02), Nov_deb Numeric (11,02), Nov_cred Numeric (11,02), Dez_deb Numeric (11,02), Dez_cred Numeric (11,02)) begin if (EXISTS(SELECT(conta_consolid,ano_consolid) from Consolidado where (conta_consolid,ano_consolid) = (Conta,Ano) update Consolidado set Jan_deb_consolid = Jan_deb_consolid + Jan_deb, Jan_cred_consolid = Jan_cred_consolid + Jan_cred, Fev_deb_consolid = Fev_deb_consolid + Fev_deb, Fev_cred_consolid = Fev_cred_consolid + Fev_cred, Mar_deb_consolid = Mar_deb_consolid + Mar_deb, Mar_cred_consolid = Mar_cred_consolid + Mar_cred, Abr_deb_consolid = Abr_deb_consolid + Abr_deb, Abr_cred_consolid = Abr_cred_consolid + Abr_cred, Mai_deb_consolid = Mai_deb_consolid + Mai_deb, Mai_cred_consolid = Mai_cred_consolid + Mai_cred, Jun_deb_consolid = Jun_deb_consolid + Jun_deb, Jun_cred_consolid = Jun_cred_consolid + Jun_cred, Jul_deb_consolid = Jul_deb_consolid + Jul_deb, Jul_cred_consolid = Jul_cred_consolid + Jul_cred, Ago_deb_consolid = Ago_deb_consolid + Ago_deb, Ago_cred_consolid = Ago_cred_consolid + Ago_cred, Set_deb_consolid = Set_deb_consolid + Set_deb, Set_cred_consolid = Set_cred_consolid + Set_cred, Out_deb_consolid = Out_deb_consolid + Out_deb, Out_cred_consolid = Out_cred_consolid + Out_cred, Nov_deb_consolid = Nov_deb_consolid + Nov_deb, Nov_cred_consolid = Nov_cred_consolid + Nov_cred, Dez_deb_consolid = Dez_deb_consolid + Dez_deb, Dez_cred_consolid = Dez_cred_consolid + Dez_cred where Conta_consolid = Conta and Ano_consolid = Ano ELSE INSERT into Consolidado (Conta_consolid ano_consolid, superior_consolid, grau_consolid, Jan_deb_consolid, Jan_cred_consolid, Fev_deb_consolid, Fev_cred_consolid, Mar_deb_consolid, Mar_cred_consolid, Abr_deb_consolid, Abr_cred_consolid, Mai_deb_consolid, Mai_cred_consolid, Jun_deb_consolid, Jun_cred_consolid, Jul_deb_consolid, Jul_cred_consolid, Ago_deb_consolid, Ago_cred_consolid, Set_deb_consolid, Set_cred_consolid, Out_deb_consolid, Out_cred_consolid, Nov_deb_consolid, Nov_cred_consolid, Dez_deb_consolid, Dez_cred_consolid) VALUES (Conta, Ano, Superior, Grau, Jan_deb, Jan_cred, Fev_deb, Fev_cred, Mar_deb, Mar_cred, Abr_deb, Abr_cred, Mai_deb, Mai_cred, Jun_deb, Jun_cred, Jul_deb, Jul_cred, Ago_deb, Ago_cred, Set_deb, Set_cred, Out_deb, Out_cred, Nov_deb, Nov_cred, Dez_deb, Dez_cred); end [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Stored Procedure
Use o componente IBStoreProcedure com ele voce seleciona a StoreProcedure que tem no seu banco de dados firebird e depois no delphi de um simples comando IBStoreProcedure1.ExecProc; Para receber um retorno de sua procedure faça assim variavel := StoreProcedure1.Params[0].AsInteger; - Mensagem original De: Adjalma Costa [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 26 de Julho de 2007 17:36:06 Assunto: [delphi-br] Stored Procedure Amigos, como faço para substituir o uso do IBUpdateSQL para uma Stored Procedure no banco de dados, no meu caso o FireBird? sds Adjalma Alertas do Yahoo! Mail em seu celular. Saiba mais. [As partes desta mensagem que não continham texto foram removidas] !-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;} #ygrp-vital ul li .cat{ font-weight:bold;} #ygrp-vital a { text-decoration:none;} #ygrp-vital a:hover{ text-decoration:underline;} #ygrp-sponsor #hd{ color:#999;font-size:77%;} #ygrp-sponsor #ov{ padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0;} #ygrp-sponsor #ov li{ list-style-type:square;padding:6px 0;font-size:77%;} #ygrp-sponsor #ov li a{ text-decoration:none;font-size:130%;} #ygrp-sponsor #nc { background-color:#eee;margin-bottom:20px;padding:0 8px;} #ygrp-sponsor .ad{ padding:8px 0;} #ygrp-sponsor .ad #hd1{ font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;} #ygrp-sponsor .ad a{ text-decoration:none;} #ygrp-sponsor .ad a:hover{ text-decoration:underline;} #ygrp-sponsor .ad p{ margin:0;} o {font-size:0;} .MsoNormal { margin:0 0 0 0;} #ygrp-text tt{ font-size:120%;} blockquote{margin:0 0 0 4px;} .replbq {margin:4;} -- Alertas do Yahoo! Mail em seu celular. Saiba mais em http://br.mobile.yahoo.com/mailalertas/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Stored Procedure
Amigos, como faço para substituir o uso do IBUpdateSQL para uma Stored Procedure no banco de dados, no meu caso o FireBird? sds Adjalma Alertas do Yahoo! Mail em seu celular. Saiba mais. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Stored Procedure e DbGrid - Ta Quase
Olá...eu fiz a Stored Procedure e deu certo...porém eu fiz com q o select nela gerasse os dados num DBGrid...até ae tudo bem...ele fez isso...mas qdo eu teclo seta pra baixo na barra de rolagem da DBGrid, ela naum mexe de registro...naum consigo descer a barra, e fika muito lento..alguém sabe me dizer o que pode ser?!
Re: [delphi-br] Stored Procedure e DbGrid - Ta Quase
Qual o banco ? qual o componente para conectar ? Se for MySQL e vc estiver usando o MyDAC ele tem um aplicativo chamado MONITOR para ver o que o componente esta pedindo/fazendo com o MySQL, agora outro, ai já num sei... boa sorte... Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLER/MySQL/xBase SERVIDORES - IntraNetWare4.11, LINUX-RedHat9, Windows - Original Message - From: crassh_over To: delphi-br@yahoogrupos.com.br Sent: Friday, June 15, 2007 5:04 PM Subject: [delphi-br] Stored Procedure e DbGrid - Ta Quase Olá...eu fiz a Stored Procedure e deu certo...porém eu fiz com q o select nela gerasse os dados num DBGrid...até ae tudo bem...ele fez isso...mas qdo eu teclo seta pra baixo na barra de rolagem da DBGrid, ela naum mexe de registro...naum consigo descer a barra, e fika muito lento..alguém sabe me dizer o que pode ser?! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Stored Procedure sempre executa mais rápido?
Olá, Gostaria de confirmar com o grupo uma informação: A maneira mais rápida de executar um comando ou consulta no B.D.(Firebird) é através de Stored Procedures? agradeço a atenção, Rodrigo
RE: [delphi-br] Stored Procedure sempre ex ecuta mais rápido?
Isso não é uma regra! Tem gente que acha que até mesmo SELECTs com stored procedures podem ficar mais rápidos, mas, em se tratando de consultas, o fato é que o plano de execução de uma consulta SQL deve ser sempre analisado e verificar a possibilidade de se criar índices para as tabelas envolvidas para, aí sim, se ter um ganho de performance aceitável. Sobre a execução de um INSERT, UPDATE ou DELETE ser executado em uma SP, isso é a mesma coisa que trocar seis por meia dúzia! Sds. From: rasc_28 [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Stored Procedure sempre executa mais rápido? Date: Thu, 05 Apr 2007 03:28:57 - Olá, Gostaria de confirmar com o grupo uma informação: A maneira mais rápida de executar um comando ou consulta no B.D.(Firebird) é através de Stored Procedures? agradeço a atenção, Rodrigo _ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br
[delphi-br] Stored procedure
Estou usando o Delphi 6 com Oracle 9i, e estou usando o AdoStoredProc. Criei uma procedure no oracle e quando vou gravar dados nela da o seguinte erro: raised exception class EOleExpection with message '???'. Q erro é esse? estou gravando assim: spIdusuario.Parameters[0].Value := xcodusuario; spIdusuario.ExecProc; André Luis de Oliveira Analista de Sistemas E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] ( (19) 3731-4019 Uniodonto Campinas Av. Brasil, 200 - Campinas/SP Telefone: (19) 3731-4000 Visite nosso site: www.uniodontocamp.com.br E-mail: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Stored Procedure
criei a SP abaixo no SQLSERVER 2000; porém quando tento executar : Dados.StoredProc1.Prepare; Dados.StoredProc1.ParamByName('@pmes').AsInteger := StrToInt (Edit1.Text); Dados.StoredProc1.ParamByName('@pano').AsInteger := StrToInt (Edit2.Text); Dados.StoredProc1.ExecProc; Dados.StoredProc1.UnPrepare; ocorre o seguinte erro : General SQL Error. Could not find stored procedure 'dbo.sp_Vendalin;1'. ONDE ESTOU ERRANDO ? grato Stainle CREATE PROCEDURE sp_Vendalin (@pmes integer, @pano integer) as select substring(mat.tcodigo, 1, 3) as linha, mat.tiimes, mat.tiano, sum(mat.ttotal) as Matriz, (select sum(f03.ttotal) from esif03 f03 where (substring(mat.tcodigo, 1, 3) = substring(f03.tcodigo, 1, 3)) and (mat.tiimes = f03.tiimes) and (mat.tiano = f03.tiano) and (f03.tiopera = 2) and (f03.tihisto = 'S')) as Brasilia, (select sum(f04.ttotal) from esif04 f04 where (substring(mat.tcodigo, 1, 3) = substring(f04.tcodigo, 1, 3)) and (mat.tiimes = f04.tiimes) and (mat.tiano = f04.tiano) and (f04.tiopera = 2) and (f04.tihisto = 'S')) as Poa, (select sum(f05.ttotal) from esif05 f05 where (substring(mat.tcodigo, 1, 3) = substring(f05.tcodigo, 1, 3)) and (mat.tiimes = f05.tiimes) and (mat.tiano = f05.tiano) and (f05.tiopera = 2) and (f05.tihisto = 'S')) as Belo, (select sum(f06.ttotal) from esif06 f06 where (substring(mat.tcodigo, 1, 3) = substring(f06.tcodigo, 1, 3)) and (mat.tiimes = f06.tiimes) and (mat.tiano = f06.tiano) and (f06.tiopera = 2) and (f06.tihisto = 'S')) as Curitiba, (select sum(f07.ttotal) from esif07 f07 where (substring(mat.tcodigo, 1, 3) = substring(f07.tcodigo, 1, 3)) and (mat.tiimes = f07.tiimes) and (mat.tiano = f07.tiano) and (f07.tiopera = 2) and (f07.tihisto = 'S')) as SantaCata from esimat mat where (mat.tiimes = @pmes) and (mat.tiano = @pano) and (mat.tiopera = 2) and (mat.tihisto = 'S') group by mat.tiimes, mat.tiano, substring(tcodigo, 1, 3) order by linha GO -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Stored Procedure
Bom dia! O erro está aqui 'dbo.sp_Vendalin;1'. Retire o ;1 da propriedade ProcedureName e seja feliz. Boa sorte. Ulisses -Mensagem Original- De: stainle2003 Para: delphi-br@yahoogrupos.com.br Enviada em: quarta-feira, 25 de outubro de 2006 11:14 Assunto: [delphi-br] Stored Procedure criei a SP abaixo no SQLSERVER 2000; porém quando tento executar : Dados.StoredProc1.Prepare; Dados.StoredProc1.ParamByName('@pmes').AsInteger := StrToInt (Edit1.Text); Dados.StoredProc1.ParamByName('@pano').AsInteger := StrToInt (Edit2.Text); Dados.StoredProc1.ExecProc; Dados.StoredProc1.UnPrepare; ocorre o seguinte erro : General SQL Error. Could not find stored procedure 'dbo.sp_Vendalin;1'. ONDE ESTOU ERRANDO ? grato Stainle CREATE PROCEDURE sp_Vendalin (@pmes integer, @pano integer) as select substring(mat.tcodigo, 1, 3) as linha, mat.tiimes, mat.tiano, sum(mat.ttotal) as Matriz, (select sum(f03.ttotal) from esif03 f03 where (substring(mat.tcodigo, 1, 3) = substring(f03.tcodigo, 1, 3)) and (mat.tiimes = f03.tiimes) and (mat.tiano = f03.tiano) and (f03.tiopera = 2) and (f03.tihisto = 'S')) as Brasilia, (select sum(f04.ttotal) from esif04 f04 where (substring(mat.tcodigo, 1, 3) = substring(f04.tcodigo, 1, 3)) and (mat.tiimes = f04.tiimes) and (mat.tiano = f04.tiano) and (f04.tiopera = 2) and (f04.tihisto = 'S')) as Poa, (select sum(f05.ttotal) from esif05 f05 where (substring(mat.tcodigo, 1, 3) = substring(f05.tcodigo, 1, 3)) and (mat.tiimes = f05.tiimes) and (mat.tiano = f05.tiano) and (f05.tiopera = 2) and (f05.tihisto = 'S')) as Belo, (select sum(f06.ttotal) from esif06 f06 where (substring(mat.tcodigo, 1, 3) = substring(f06.tcodigo, 1, 3)) and (mat.tiimes = f06.tiimes) and (mat.tiano = f06.tiano) and (f06.tiopera = 2) and (f06.tihisto = 'S')) as Curitiba, (select sum(f07.ttotal) from esif07 f07 where (substring(mat.tcodigo, 1, 3) = substring(f07.tcodigo, 1, 3)) and (mat.tiimes = f07.tiimes) and (mat.tiano = f07.tiano) and (f07.tiopera = 2) and (f07.tihisto = 'S')) as SantaCata from esimat mat where (mat.tiimes = @pmes) and (mat.tiano = @pano) and (mat.tiopera = 2) and (mat.tihisto = 'S') group by mat.tiimes, mat.tiano, substring(tcodigo, 1, 3) order by linha GO [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Stored Procedure
eu uso nessa sequencia parambyname prepare execproc nunca vi esse unprepare Tente na sequencia que eu postei Tiago de Assis Pimenta MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] SKYPE: tiagopimenta_skype _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de stainle2003 Enviada em: quarta-feira, 25 de outubro de 2006 11:14 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Stored Procedure criei a SP abaixo no SQLSERVER 2000; porém quando tento executar : Dados.StoredProc1.Prepare; Dados.StoredProc1.ParamByName('@pmes').AsInteger := StrToInt (Edit1.Text); Dados.StoredProc1.ParamByName('@pano').AsInteger := StrToInt (Edit2.Text); Dados.StoredProc1.ExecProc; Dados.StoredProc1.UnPrepare; ocorre o seguinte erro : General SQL Error. Could not find stored procedure 'dbo.sp_Vendalin;1'. ONDE ESTOU ERRANDO ? grato Stainle CREATE PROCEDURE sp_Vendalin (@pmes integer, @pano integer) as select substring(mat.tcodigo, 1, 3) as linha, mat.tiimes, mat.tiano, sum(mat.ttotal) as Matriz, (select sum(f03.ttotal) from esif03 f03 where (substring(mat.tcodigo, 1, 3) = substring(f03.tcodigo, 1, 3)) and (mat.tiimes = f03.tiimes) and (mat.tiano = f03.tiano) and (f03.tiopera = 2) and (f03.tihisto = 'S')) as Brasilia, (select sum(f04.ttotal) from esif04 f04 where (substring(mat.tcodigo, 1, 3) = substring(f04.tcodigo, 1, 3)) and (mat.tiimes = f04.tiimes) and (mat.tiano = f04.tiano) and (f04.tiopera = 2) and (f04.tihisto = 'S')) as Poa, (select sum(f05.ttotal) from esif05 f05 where (substring(mat.tcodigo, 1, 3) = substring(f05.tcodigo, 1, 3)) and (mat.tiimes = f05.tiimes) and (mat.tiano = f05.tiano) and (f05.tiopera = 2) and (f05.tihisto = 'S')) as Belo, (select sum(f06.ttotal) from esif06 f06 where (substring(mat.tcodigo, 1, 3) = substring(f06.tcodigo, 1, 3)) and (mat.tiimes = f06.tiimes) and (mat.tiano = f06.tiano) and (f06.tiopera = 2) and (f06.tihisto = 'S')) as Curitiba, (select sum(f07.ttotal) from esif07 f07 where (substring(mat.tcodigo, 1, 3) = substring(f07.tcodigo, 1, 3)) and (mat.tiimes = f07.tiimes) and (mat.tiano = f07.tiano) and (f07.tiopera = 2) and (f07.tihisto = 'S')) as SantaCata from esimat mat where (mat.tiimes = @pmes) and (mat.tiano = @pano) and (mat.tiopera = 2) and (mat.tihisto = 'S') group by mat.tiimes, mat.tiano, substring(tcodigo, 1, 3) order by linha GO [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Stored Procedure
Senhores estamos tentando montar um pequeno provedor de acesso ( technologies Wireles ) aqui em minha cidade e não sabemos muito disso alguem saberia nos informar de alguns Links para os seguintes : TUTORIAIS , VIDEO AULAS , APOSTILAS ou outros materias pra que a gente aprenda a faser funcionar o systema , se sim ficariamos muito gratos ao nobres amigos , sem mais e no aguardo de uma boa notiçia . [EMAIL PROTECTED] , Caso os amigos queiram nos ADD [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Stored Procedure
Senhores estamos tentando montar um pequeno provedor de acesso ( technologies Wireles ) aqui em minha cidade e não sabemos muito disso alguem saberia nos informar de alguns Links para os seguintes : TUTORIAIS , VIDEO AULAS , APOSTILAS ou outros materias pra que a gente aprenda a faser funcionar o systema , se sim ficariamos muito gratos ao nobres amigos , sem mais e no aguardo de uma boa notiçia . [EMAIL PROTECTED] , Caso os amigos queiram nos ADD [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Stored Procedure
funcionou; é que peguei diretamente na janela a sugestão do componente. agora percebi que talvez não tenha ganho de performance, pois com o TQuery ficou no mesmo tempo. grato Stainle Ulisses [EMAIL PROTECTED] escreveu: Bom dia! O erro está aqui 'dbo.sp_Vendalin;1'. Retire o ;1 da propriedade ProcedureName e seja feliz. Boa sorte. Ulisses -Mensagem Original- De: stainle2003 Para: delphi-br@yahoogrupos.com.br Enviada em: quarta-feira, 25 de outubro de 2006 11:14 Assunto: [delphi-br] Stored Procedure criei a SP abaixo no SQLSERVER 2000; porém quando tento executar : Dados.StoredProc1.Prepare; Dados.StoredProc1.ParamByName('@pmes').AsInteger := StrToInt (Edit1.Text); Dados.StoredProc1.ParamByName('@pano').AsInteger := StrToInt (Edit2.Text); Dados.StoredProc1.ExecProc; Dados.StoredProc1.UnPrepare; ocorre o seguinte erro : General SQL Error. Could not find stored procedure 'dbo.sp_Vendalin;1'. ONDE ESTOU ERRANDO ? grato Stainle CREATE PROCEDURE sp_Vendalin (@pmes integer, @pano integer) as select substring(mat.tcodigo, 1, 3) as linha, mat.tiimes, mat.tiano, sum(mat.ttotal) as Matriz, (select sum(f03.ttotal) from esif03 f03 where (substring(mat.tcodigo, 1, 3) = substring(f03.tcodigo, 1, 3)) and (mat.tiimes = f03.tiimes) and (mat.tiano = f03.tiano) and (f03.tiopera = 2) and (f03.tihisto = 'S')) as Brasilia, (select sum(f04.ttotal) from esif04 f04 where (substring(mat.tcodigo, 1, 3) = substring(f04.tcodigo, 1, 3)) and (mat.tiimes = f04.tiimes) and (mat.tiano = f04.tiano) and (f04.tiopera = 2) and (f04.tihisto = 'S')) as Poa, (select sum(f05.ttotal) from esif05 f05 where (substring(mat.tcodigo, 1, 3) = substring(f05.tcodigo, 1, 3)) and (mat.tiimes = f05.tiimes) and (mat.tiano = f05.tiano) and (f05.tiopera = 2) and (f05.tihisto = 'S')) as Belo, (select sum(f06.ttotal) from esif06 f06 where (substring(mat.tcodigo, 1, 3) = substring(f06.tcodigo, 1, 3)) and (mat.tiimes = f06.tiimes) and (mat.tiano = f06.tiano) and (f06.tiopera = 2) and (f06.tihisto = 'S')) as Curitiba, (select sum(f07.ttotal) from esif07 f07 where (substring(mat.tcodigo, 1, 3) = substring(f07.tcodigo, 1, 3)) and (mat.tiimes = f07.tiimes) and (mat.tiano = f07.tiano) and (f07.tiopera = 2) and (f07.tihisto = 'S')) as SantaCata from esimat mat where (mat.tiimes = @pmes) and (mat.tiano = @pano) and (mat.tiopera = 2) and (mat.tihisto = 'S') group by mat.tiimes, mat.tiano, substring(tcodigo, 1, 3) order by linha GO [As partes desta mensagem que não continham texto foram removidas] - Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Stored Procedure no Interbase
Bom dia a todos! Podem informar o que estou fazendo de errado nesta Stored Procedure? SET TERM !! ; CREATE PROCEDURE ANDAMENTONET4 (NUMRPROC VARCHAR(25), DATACOMP TIMESTAMP, CODGANDAM INTEGER, CODGFASE INTEGER, FLAGINTERNO CHAR(1), DESCCOMP BLOB SUB_TYPE 1) RETURNS (CONTADOR INTEGER) AS DECLARE VARIABLE CONTADOR INTEGER; BEGIN FOR SELECT COUNT(NUMR_FASECOMP) FROM FASECOMP WHERE (NUMR_PROC = :NUMRPROC and DATA_COMP = :DATACOMP and DESC_COMP = :DESCCOMP) INTO :CONTADOR DO BEGIN IF (CONTADOR is null) THEN BEGIN CONTADOR = 0; END; IF (CONTADOR 0 ) THEN BEGIN EXIT END ELSE INSERT INTO FASECOMP (NUMR_PROC, DATA_COMP, CODG_ANDAM, CODG_FASE, FLAG_INTERNO, DESC_COMP) VALUES (:NUMRPROC, :DATACOMP, :CODGANDAM, :CODGFASE, 'N', :DESCCOMP); END!! SET TERM ; !! Alguém tem agum modelo parecido, para ajudar-me? Desde já agradeço a todos Patricia Santana - Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Stored Procedure no Interbase
Patricia; de uma olhadinha SET TERM !! ; CREATE PROCEDURE ANDAMENTONET4 (NUMRPROC VARCHAR(25), DATACOMPTIMESTAMP, CODGANDAM INTEGER, CODGFASEINTEGER, FLAGINTERNO CHAR(1), DESCCOMPBLOB SUB_TYPE 1) RETURNS (CONTADOR INTEGER) AS DECLARE VARIABLE CONTADOR INTEGER; BEGIN /* Faz um loop contando a coluna da tabela fasecomp */ FOR SELECT COUNT(NUMR_FASECOMP) FROM FASECOMP WHERE (NUMR_PROC = :NUMRPROC and DATA_COMP = :DATACOMP and DESC_COMP = :DESCCOMP) INTO :CONTADOR DO BEGIN /* Se o contador for nulo ajusta para 0 */ /* Voce poderia utilizar o COALESCE no select acima e tirar fora este if Teste ai: SELECT COALESCE(COUNT(NUMR_FASECOMP),0) */ IF (CONTADOR IS NULL) THEN BEGIN CONTADOR = 0; END; /* Entao se o contador for maior que 0 retorna result set */ IF (CONTADOR 0 ) THEN BEGIN SUSPEND; /* Caso contrario */ END ELSE BEGIN /* Insere na tabela de fase comp */ INSERT INTO FASECOMP (NUMR_PROC, DATA_COMP, CODG_ANDAM, CODG_FASE, FLAG_INTERNO, DESC_COMP) VALUES (:NUMRPROC, :DATACOMP, :CODGANDAM, :CODGFASE, 'N', :DESCCOMP); END END END!! SET TERM ; !! /* Nao tive como testar aqui.., pois nao tenho a tabela...rs mas acho que vai funcionar */ Atenc. Elazar -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Patricia Santana Enviada em: quarta-feira, 23 de novembro de 2005 16:19 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Stored Procedure no Interbase Boa tarde a todos! Podem informar o que estou fazendo de errado nesta Stored Procedure? SET TERM !! ; CREATE PROCEDURE ANDAMENTONET4 (NUMRPROC VARCHAR(25), DATACOMP TIMESTAMP, CODGANDAM INTEGER, CODGFASE INTEGER, FLAGINTERNO CHAR(1), DESCCOMP BLOB SUB_TYPE 1) RETURNS (CONTADOR INTEGER) AS DECLARE VARIABLE CONTADOR INTEGER; BEGIN FOR SELECT COUNT(NUMR_FASECOMP) FROM FASECOMP WHERE (NUMR_PROC = :NUMRPROC and DATA_COMP = :DATACOMP and DESC_COMP = :DESCCOMP) INTO :CONTADOR DO BEGIN IF (CONTADOR is null) THEN BEGIN CONTADOR = 0; END; IF (CONTADOR 0 ) THEN BEGIN SUSPEND END ELSE INSERT INTO FASECOMP (NUMR_PROC, DATA_COMP, CODG_ANDAM, CODG_FASE, FLAG_INTERNO, DESC_COMP) VALUES (:NUMRPROC, :DATACOMP, :CODGANDAM, :CODGFASE, 'N', :DESCCOMP); END!! SET TERM ; !! Alguém tem agum modelo parecido, para ajudar-me? Desde já agradeço a todos Patricia Santana [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Stored Procedure no Interbase
Boa tarde a todos! Podem informar o que estou fazendo de errado nesta Stored Procedure? SET TERM !! ; CREATE PROCEDURE ANDAMENTONET4 (NUMRPROC VARCHAR(25), DATACOMP TIMESTAMP, CODGANDAM INTEGER, CODGFASE INTEGER, FLAGINTERNO CHAR(1), DESCCOMP BLOB SUB_TYPE 1) RETURNS (CONTADOR INTEGER) AS DECLARE VARIABLE CONTADOR INTEGER; BEGIN FOR SELECT COUNT(NUMR_FASECOMP) FROM FASECOMP WHERE (NUMR_PROC = :NUMRPROC and DATA_COMP = :DATACOMP and DESC_COMP = :DESCCOMP) INTO :CONTADOR DO BEGIN IF (CONTADOR is null) THEN BEGIN CONTADOR = 0; END; IF (CONTADOR 0 ) THEN BEGIN SUSPEND END ELSE INSERT INTO FASECOMP (NUMR_PROC, DATA_COMP, CODG_ANDAM, CODG_FASE, FLAG_INTERNO, DESC_COMP) VALUES (:NUMRPROC, :DATACOMP, :CODGANDAM, :CODGFASE, 'N', :DESCCOMP); END!! SET TERM ; !! Alguém tem agum modelo parecido, para ajudar-me? Desde já agradeço a todos Patricia Santana - Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Stored Procedure no Interbase
Boa tarde! Por favor, podem ajudar encontrar o erro nesta stored procedure? SET TERM !! ; CREATE PROCEDURE ANDAMENTONET4 (NUMRPROC VARCHAR(25), DATACOMP TIMESTAMP, CODGANDAM INTEGER, CODGFASE INTEGER, FLAGINTERNO CHAR(1), DESCCOMP BLOB SUB_TYPE 1) RETURNS (CONTADOR INTEGER) AS DECLARE VARIABLE CONTADOR INTEGER; BEGIN FOR SELECT COUNT(NUMR_FASECOMP) FROM FASECOMP WHERE (NUMR_PROC = :NUMRPROC and DATA_COMP = :DATACOMP and DESC_COMP = :DESCCOMP)INTO :CONTADOR DO BEGIN IF (CONTADOR is null) THEN BEGIN CONTADOR = 0; END; IF (CONTADOR 0 ) THEN BEGIN SUSPEND END ELSE INSERT INTO FASECOMP (NUMR_PROC, DATA_COMP, CODG_ANDAM, CODG_FASE, FLAG_INTERNO, DESC_COMP) VALUES (:NUMRPROC, :DATACOMP, :CODGANDAM, :CODGFASE, 'N', :DESCCOMP); END!! SET TERM ; !! Desde já agradeço a atenção, Patricia Santana - Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Stored Procedure
Bom dia... no ADOStoreProcedure eu uso a seguinte propriedade: ADOStoreProcedure.parameters.refresh [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Stored Procedure
Pessoal, estou criando uma stored procedure via programação da maneira abaixo, mas ai eu tive que colocar os parametros um a um... eu gostaria de saber se existe algum metodo que carregue sozinho os parametros sem eu precisar usar o metodo CreateParam function TCliente.LocalizaCnpj(Cnpj: String): Boolean; var Sp: TStoredProc; begin try Sp:= TStoredProc.Create(nil); with Sp do begin DatabaseName:=DmD.DBSAAC.DatabaseName; StoredProcName:='LOC_CLIENTE_CNPJ'; Params.CreateParam(ftString,'CNPJ',ptInput); Params.CreateParam(ftInteger,'CODIGO',ptOutput); Close; ParamByName('CNPJ').AsString:=Cnpj; ExecProc; if ParamByName('codigo').AsInteger 0 then begin Result:= True; end else begin Result:= False; end; end; finally Sp.Free; end; end; ___ Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Stored procedure
Pessoal, gostaria de saber se existe algo em Stored procedure semelhante ao utilizar while not Query1.Eof. Exemplo: Dentro de uma stored procedure tenho um select, e gostaria q depois do select fosse percorrida toda a tabela consultada e a cada registro ele executasse um outro select. É possível?? Pensei em usar algo como while tabela.Eof, mas não consigo visualizar como fazer isso. Grato pela atenção dos colegas Tiago -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Stored Procedure
Pessoal, gostaria de saber se existe algo em Stored procedure semelhante ao utilizar while not Query1.Eof. Exemplo: Dentro de uma stored procedure tenho um select, e gostaria q depois do select fosse percorrida toda a tabela consultada e a cada registro ele executasse um outro select. É possível?? Pensei em usar algo como while tabela.Eof, mas não consigo visualizar como fazer isso. Estou utilizando Interbase 6 e Delphi 7 com acesso via IBX. Grato pela atenção dos colegas Tiago -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Stored Procedure e Exportar para o excell
Pessoal preciso de ajuda: Tenho uma stored procedure que retorna uma lista de dados, os quais mostro em um relatório. Quanto a isso funciona tudo direitinho. Porém, uma das opções que disponibilizei foi a de exportar esses dados para o excell. Mas quando tempo usar a query que recebe os dados da procedure dá erro. Dúvida: no caso da exportação imagino que terei que criar uma tabela temporária com o resultado da procedure para depois tentar exportar. - Se sim, como poderia fazer isso? - Se não, o que vocês acham que pode ser feito? Obs.: Testei a exportação selecionando direto da tabela, e funcionou! Mas isso limita a passagem de parâmetros, e eu gostaria de exportar todos os resultados que consigo com a procedure. Desde já agradeço Vanderlei. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Stored Procedure chamando outra
Acredito que sim, nunca usei interbase, mas em todos os Banco de Dados que usei permitem []´s Rodrigo O. Farias - Original Message - From: tiago_econtabil To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 26, 2005 3:01 PM Subject: [delphi-br] Stored Procedure chamando outra pessoal. É possivel executar uma stored procedure dentro de outra stored procedure Estou utilizando Interbase 6 e Delphi 7. Alguém já fez isso? Abraço a todos Tiago -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Stored Procedure chamando outra
pessoal. É possivel executar uma stored procedure dentro de outra stored procedure Estou utilizando Interbase 6 e Delphi 7. Alguém já fez isso? Abraço a todos Tiago -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Stored Procedure chamando outra stored procedure
pessoal. É possivel executar uma stored procedure dentro de outra stored procedure Estou utilizando Delphi 7 com Interbase 6. Alguém já fez isso? Tiago -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Stored Procedure
To tentando fazer essa SP no FB 1.5, mas não passa do select, as variáveis estão declaradas certinho: Quero que quando o usuário acesse o sistema e após a verificação da senha a SP seja executada, gravando os dados na tabela de acesso e alterando na tabela de usuários a quantidade de acessos que ele fez: BEGIN SELECT USUCOD,USUACE FROM USUARIOS WHERE USUCOD=:usuarios; //seleciona o usuário para a verificação do campo USUACE IF (USUACE IS NULL) THEN // caso seja nulo insere 0+1 UPDATE USUARIOS SET USUACE=0+1 WHERE USUCOD=:usuario ELSE UPDATE USUARIOS SET USUACE=USUACE+1 WHERE USUCOD=:usuario INSERT INTO ACESSOS (ACEUSU,ACEDTA,ACETIP) VALUES (:usuario,current_timestamp,:tipo); END: se alguem entendeu o quero fazer e souber como fazer fico agradecido. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Stored Procedure
Tente o seguinte DECLARE VARIABLE COD VARCHAR(???); DECLARE VARIABLE ACE SMALLINT OU INTEGER; BEGIN SELECT USUCOD,USUACE FROM USUARIOS WHERE USUCOD=:usuarios INTO :COD, :ACE; IF (USUACE IS NULL) THEN UPDATE USUARIOS SET USUACE=1 WHERE USUCOD=:usuario ELSE UPDATE USUARIOS SET USUACE= (ACE + 1) WHERE USUCOD=:usuario INSERT INTO ACESSOS (ACEUSU,ACEDTA,ACETIP) VALUES (:usuario,current_timestamp,:tipo); END: --- [EMAIL PROTECTED] [EMAIL PROTECTED] escreveu: To tentando fazer essa SP no FB 1.5, mas não passa do select, as variáveis estão declaradas certinho: Quero que quando o usuário acesse o sistema e após a verificação da senha a SP seja executada, gravando os dados na tabela de acesso e alterando na tabela de usuários a quantidade de acessos que ele fez: BEGIN SELECT USUCOD,USUACE FROM USUARIOS WHERE USUCOD=:usuarios; //seleciona o usuário para a verificação do campo USUACE IF (USUACE IS NULL) THEN // caso seja nulo insere 0+1 UPDATE USUARIOS SET USUACE=0+1 WHERE USUCOD=:usuario ELSE UPDATE USUARIOS SET USUACE=USUACE+1 WHERE USUCOD=:usuario INSERT INTO ACESSOS (ACEUSU,ACEDTA,ACETIP) VALUES (:usuario,current_timestamp,:tipo); END: se alguem entendeu o quero fazer e souber como fazer fico agradecido. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos ___ Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. http://br.acesso.yahoo.com/ - Internet rápida e grátis -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Stored Procedure
Blz cara, era bem isso que eu queria, deu certinho, obrigado! - Original Message - From: DVJ [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 27, 2005 3:52 PM Subject: Re: [delphi-br] Stored Procedure Tente o seguinte DECLARE VARIABLE COD VARCHAR(???); DECLARE VARIABLE ACE SMALLINT OU INTEGER; BEGIN SELECT USUCOD,USUACE FROM USUARIOS WHERE USUCOD=:usuarios INTO :COD, :ACE; IF (USUACE IS NULL) THEN UPDATE USUARIOS SET USUACE=1 WHERE USUCOD=:usuario ELSE UPDATE USUARIOS SET USUACE= (ACE + 1) WHERE USUCOD=:usuario INSERT INTO ACESSOS (ACEUSU,ACEDTA,ACETIP) VALUES (:usuario,current_timestamp,:tipo); END: --- [EMAIL PROTECTED] [EMAIL PROTECTED] escreveu: To tentando fazer essa SP no FB 1.5, mas não passa do select, as variáveis estão declaradas certinho: Quero que quando o usuário acesse o sistema e após a verificação da senha a SP seja executada, gravando os dados na tabela de acesso e alterando na tabela de usuários a quantidade de acessos que ele fez: BEGIN SELECT USUCOD,USUACE FROM USUARIOS WHERE USUCOD=:usuarios; //seleciona o usuário para a verificação do campo USUACE IF (USUACE IS NULL) THEN // caso seja nulo insere 0+1 UPDATE USUARIOS SET USUACE=0+1 WHERE USUCOD=:usuario ELSE UPDATE USUARIOS SET USUACE=USUACE+1 WHERE USUCOD=:usuario INSERT INTO ACESSOS (ACEUSU,ACEDTA,ACETIP) VALUES (:usuario,current_timestamp,:tipo); END: se alguem entendeu o quero fazer e souber como fazer fico agradecido. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos ___ Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. http://br.acesso.yahoo.com/ - Internet rápida e grátis -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html