Re: [delphi-br] Arquivo PDOXUSRS.LCK
Caros Amigos, quero inicialmente agradecer a todos que de alguma forma tentarão
me ajudar nesse problema, depois de muito pesquisar notei que o problema esta
na forma que uso para fazer as atualização na minha base de dados, eu uso muito
as rotina em SQL, e isso no windows 98 (rede ponto a ponto) nao apresentava
problemas mas quando passei para o Windows 2003 começou os problemas a solução
que encontrei foi tirar o maximo possivel de rotinas SQL, e substituir por
Query ou até mesmo Tables, agora parece que as coisas então se encaminhando
novamente, mais uma vez agradeço a todos.
Sérgio Toshio Kawahara
- Original Message -
From: Roberto Wazen
To: delphi-br@yahoogrupos.com.br
Sent: Monday, September 12, 2005 7:50 PM
Subject: Re: [delphi-br] Arquivo PDOXUSRS.LCK
Sergio, este assunto do arquivo PDOXUSRS.LCK estar crescendo, me parece ser
da configuração do BDE para rede e multiusuário.
Permito-me perguntar se está tudo configurado (local share e netdir, tudo
certinho)
Se houver dúvida neste procedimento mando para tí uma sequencia de
configuração, que resolve.
- Original Message -
From: "Sergio Toshio Kawahara" <[EMAIL PROTECTED]>
To:
Sent: Sunday, September 11, 2005 3:53 PM
Subject: Re: [delphi-br] Arquivo PDOXUSRS.LCK
Oi Campus Obrigado por responder, eu fiz um acompanhamento e o arquivo
PDOXUSRS.LCK nunca diminui sempre cresce mesmo quando eu saio de alguns
terminais ele continua a crescer mas quando saio de todos os terminais ele
se apaga.
- Original Message -
From: Campus
To: delphi-br@yahoogrupos.com.br
Sent: Monday, September 12, 2005 3:45 PM
Subject: Re: [delphi-br] Arquivo PDOXUSRS.LCK
Sergio o problema é o seguinte:
Esse arquivo é criado pelo BDE quando tu abre uma tabela/query, e a cada
nova tabela/query aberta ele vai aumentando.
Como no ambiente de TS todos os executáveis estão no mesmo lugar, essa
multiplicação atinge rapidamente o máximo que é de 65k. ocorre que se esse
crescimento é muito rápido, uma exceção é gerada.
Tu tens 2 alternativas:
1 - Crie uma pasta para cada usuário, e coloque os executáveis dentro
dela.
2 - Faça uma varredura no sistema, e elimine o abre e fecha de tabelas e
querys.
um detalhe, o arquivo não diminiu de tamanho quando a tabela/query é
fechada.
- Original Message -----
From: "Sergio Toshio Kawahara" <[EMAIL PROTECTED]>
To:
Sent: Sunday, September 11, 2005 2:27 PM
Subject: [delphi-br] Arquivo PDOXUSRS.LCK
Amigos, tenho um sistema que esta rodando no windows 2003, com terminal
remoto, esta tudo configurado certo no servidor, mas o arquivo
PDOXUSRS.LCK
cresce ate chegar em 56MB e nesse momento da uma msg de erro em todos os
terminais "LOCK FILE HAS GROWN TOO LARGE", bom já procurei em todos os
lugares mas nao encontrei a solucao, se alguem souber de algo fico muito
grato, abaixo segue uma de minha rotina em SQL para atualizacao da base;
Delphi 7, Piradox, W2003
--
<<<<< 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
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[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
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.10.21/96 - Release Date: 10/09/2005
--
<<<<< 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
a.. Para visitar
[delphi-br] Nome do Terminal Remoto no Windows 2003
Amigos, uso a function abaixo para pegar o nome do computar que esta rodando o meu sistema, agora preciso fazer a mesma coisa com os terminais remoto do windows 2003, alguem sabe como. function SysComputerName: string; var I: DWord; begin I := MAX_COMPUTERNAME_LENGTH + 1; SetLength(Result, I); Windows.GetComputerName(PChar(Result), I); Result := string(PChar(Result)); end; Agradeço qualquer ajuda. Sérgio Toshio Kawahara [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] Arquivo PDOXUSRS.LCK
O Thiago valeu, mas eles falam de migrar para FB, e eu estou fazendo isso mas
como meu sistema é grande isso vai demorar um pouco até lá tenho que resolver
isso.
- Original Message -
From: thiago castro
To: delphi-br@yahoogrupos.com.br
Sent: Monday, September 12, 2005 4:17 PM
Subject: Re: [delphi-br] Arquivo PDOXUSRS.LCK
Pessoal achei isso aqui vejam se resolve
http://forumboadica.com.br/viewtopic.php?t=23553&view=next&sid=6407549e1940eecdb2c5ce5eede8d713
Sergio Toshio Kawahara <[EMAIL PROTECTED]> escreveu:Oi Eduardo, obrigado por
responder, o problema é que o arquivo PDOUSRS.LCK, cresce muito rapido eu tenho
que deletar ele de 4 a 5 vezes por dia, se tornou enviavel fazer isso devo
descobrir o por quê dele crescer desta forma talvez uma forma errada de
programar sei la.
De qualquer forma obrigado
Sérgio Toshio Kawahara
- Original Message -
From: Eduardo
To: delphi-br@yahoogrupos.com.br
Sent: Monday, September 12, 2005 3:17 PM
Subject: Re: [delphi-br] Arquivo PDOXUSRS.LCK
Faca um bkp e deleta o arquivo.
Se eu não tiver enganado isso resolve.
Assim q a aplicação rodar o cara e recriado.
Eduardo
- Original Message -
From: Sergio Toshio Kawahara
To: delphi-br@yahoogrupos.com.br
Sent: Sunday, September 11, 2005 2:27 PM
Subject: [delphi-br] Arquivo PDOXUSRS.LCK
Amigos, tenho um sistema que esta rodando no windows 2003, com terminal
remoto, esta tudo configurado certo no servidor, mas o arquivo PDOXUSRS.LCK
cresce ate chegar em 56MB e nesse momento da uma msg de erro em todos os
terminais "LOCK FILE HAS GROWN TOO LARGE", bom já procurei em todos os lugares
mas nao encontrei a solucao, se alguem souber de algo fico muito grato, abaixo
segue uma de minha rotina em SQL para atualizacao da base;
Delphi 7, Piradox, W2003
tQry := tQuery.Create(Application);
with tQry do
begin
DatabaseName := '';
SQL.Clear;
SQL.Add('Update Clientes ');
SQL.Add('Set NOME = "TESTE TESETS TSTES TESET" ');
SQL.Add('Where Estabcto is Null');
ExecSQL;
Free;
end;
[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]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[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]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[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]
Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE
var lrec_target="_blank";var lrec_URL=new
Array();lrec_URL[1]="http://br.rd.yahoo.com/SIG=12f579qn7/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1126559083/A=2950750/R=0/id=flashurl/SIG=10tift5qr/*http://br.movies.yahoo.com/";var
lrec_flashfile="http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0901_lrec_cinema_calendario.swf?clickTAG=javascript:LRECopenWindow(1)";var
lrec_altURL="http://b
Re: [delphi-br] Arquivo PDOXUSRS.LCK
Oi Campus Obrigado por responder, eu fiz um acompanhamento e o arquivo PDOXUSRS.LCK nunca diminui sempre cresce mesmo quando eu saio de alguns terminais ele continua a crescer mas quando saio de todos os terminais ele se apaga. - Original Message - From: Campus To: delphi-br@yahoogrupos.com.br Sent: Monday, September 12, 2005 3:45 PM Subject: Re: [delphi-br] Arquivo PDOXUSRS.LCK Sergio o problema é o seguinte: Esse arquivo é criado pelo BDE quando tu abre uma tabela/query, e a cada nova tabela/query aberta ele vai aumentando. Como no ambiente de TS todos os executáveis estão no mesmo lugar, essa multiplicação atinge rapidamente o máximo que é de 65k. ocorre que se esse crescimento é muito rápido, uma exceção é gerada. Tu tens 2 alternativas: 1 - Crie uma pasta para cada usuário, e coloque os executáveis dentro dela. 2 - Faça uma varredura no sistema, e elimine o abre e fecha de tabelas e querys. um detalhe, o arquivo não diminiu de tamanho quando a tabela/query é fechada. - Original Message - From: "Sergio Toshio Kawahara" <[EMAIL PROTECTED]> To: Sent: Sunday, September 11, 2005 2:27 PM Subject: [delphi-br] Arquivo PDOXUSRS.LCK Amigos, tenho um sistema que esta rodando no windows 2003, com terminal remoto, esta tudo configurado certo no servidor, mas o arquivo PDOXUSRS.LCK cresce ate chegar em 56MB e nesse momento da uma msg de erro em todos os terminais "LOCK FILE HAS GROWN TOO LARGE", bom já procurei em todos os lugares mas nao encontrei a solucao, se alguem souber de algo fico muito grato, abaixo segue uma de minha rotina em SQL para atualizacao da base; Delphi 7, Piradox, W2003 -- <<<<< 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 a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] Arquivo PDOXUSRS.LCK
Oi Eduardo, obrigado por responder, o problema é que o arquivo PDOUSRS.LCK,
cresce muito rapido eu tenho que deletar ele de 4 a 5 vezes por dia, se tornou
enviavel fazer isso devo descobrir o por quê dele crescer desta forma talvez
uma forma errada de programar sei la.
De qualquer forma obrigado
Sérgio Toshio Kawahara
- Original Message -
From: Eduardo
To: delphi-br@yahoogrupos.com.br
Sent: Monday, September 12, 2005 3:17 PM
Subject: Re: [delphi-br] Arquivo PDOXUSRS.LCK
Faca um bkp e deleta o arquivo.
Se eu não tiver enganado isso resolve.
Assim q a aplicação rodar o cara e recriado.
Eduardo
- Original Message -
From: Sergio Toshio Kawahara
To: delphi-br@yahoogrupos.com.br
Sent: Sunday, September 11, 2005 2:27 PM
Subject: [delphi-br] Arquivo PDOXUSRS.LCK
Amigos, tenho um sistema que esta rodando no windows 2003, com terminal
remoto, esta tudo configurado certo no servidor, mas o arquivo PDOXUSRS.LCK
cresce ate chegar em 56MB e nesse momento da uma msg de erro em todos os
terminais "LOCK FILE HAS GROWN TOO LARGE", bom já procurei em todos os lugares
mas nao encontrei a solucao, se alguem souber de algo fico muito grato, abaixo
segue uma de minha rotina em SQL para atualizacao da base;
Delphi 7, Piradox, W2003
tQry := tQuery.Create(Application);
with tQry do
begin
DatabaseName := '';
SQL.Clear;
SQL.Add('Update Clientes ');
SQL.Add('Set NOME = "TESTE TESETS TSTES TESET" ');
SQL.Add('Where Estabcto is Null');
ExecSQL;
Free;
end;
[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]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[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]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[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
[delphi-br] Arquivo PDOXUSRS.LCK
Amigos, tenho um sistema que esta rodando no windows 2003, com terminal remoto,
esta tudo configurado certo no servidor, mas o arquivo PDOXUSRS.LCK cresce ate
chegar em 56MB e nesse momento da uma msg de erro em todos os terminais "LOCK
FILE HAS GROWN TOO LARGE", bom já procurei em todos os lugares mas nao
encontrei a solucao, se alguem souber de algo fico muito grato, abaixo segue
uma de minha rotina em SQL para atualizacao da base;
Delphi 7, Piradox, W2003
tQry := tQuery.Create(Application);
with tQry do
begin
DatabaseName := '';
SQL.Clear;
SQL.Add('Update Clientes ');
SQL.Add('Set NOME = "TESTE TESETS TSTES TESET" ');
SQL.Add('Where Estabcto is Null');
ExecSQL;
Free;
end;
[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
[delphi-br] Sistema para Laboratório de Analises Clinicas OFF TOP
Pessoal estou precisando com urgencia de um sistema para Laboratório de Analises Clinicas completo e funcionando com fontes, se alguém tiver para vender ou souber de alguém por favor envie um e-mail para [EMAIL PROTECTED] , desculpem o off top. Sergio Toshio Kawahara [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] data no paradox
Tente assim
insert into table (data) values (:data);
ParamByName('Data').AsDate := Date;
Falo. []'s
- Original Message -
From: Erica Kroon
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 8:55 PM
Subject: [delphi-br] data no paradox
Erassim...sei que a pergunta eh bmm básica..mas nao tou
conseguindo de forma alguma...
Como insiro uma data atual(data do sistema) num banco paradox,(onde
data tá como tipo date?)
tentei com date() , now() e nada (dá um erro de handle exeption ao
executar) passando uma string( no formato dd/mm/ ou mm/dd/
...) como variavel dentro do insert(que monto no codigo) também nao
pega e fazendo o mesmo "insert into table blablabal..values..
'10/10/2004' "lá no sql explorer pega direitinho!! na aplicaçao nao
pegaa que diaxu eh isso!!
nas configuraçoes do pc, ja configurei pra data do sistema aparecer
como dd/mm/ ...
uso delphi7 e paradox.
obrigada,
[Eri
--
/**
* @Name:Erica Kroon Moscoso
* @Description: autidata, web Developer
* @Return:[EMAIL PROTECTED] , [EMAIL PROTECTED]
* @Exceptions: InvalidFriendException, SpamException
*/
--
< 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:
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
[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] Exibir data do sistema no relatório
Vc vai ter que criar uma função:
Function DataExtenso(Data : TDateTime):String;
// Retorna a data por extenso
const
vdia : array[1..7] of String = ('Domingo', 'Segunda Feira', 'Terça Feira', 'Quarta
Feira', 'Quinta Feira', 'Sexta Feira', 'Sabado');
vMes : array[1..12] of String = ('Janeiro', 'Fevereiro', 'Março', 'Abril', 'Maio',
'Junho', 'Julho', 'Agosto','Setembro', 'Outubro','Novembro','Dezembro');
begin
Result := vDia[DayOfWeek(Data)]+', '+FormatDateTime('dd',Data)+' de
'+vMes[StrToInt(FormatDateTime('mm',Data))]+' de '+FormatDateTime('',Data);
end;
falo
[]'s
- Original Message -
From: er83pet04
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 11:15 AM
Subject: [delphi-br] Exibir data do sistema no relatório
Estou querendo exibir no meu relatório a data do sistema. Para fazer
isso coloquei:
var
Present: TDateTime;
Year, Month, Day : Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
lblData.Caption := 'Rio de Janeiro, ' + IntToStr(Day) + ' de ' +
IntToStr(Month) + ' de ' + IntToStr(Year);
Assim, está sendo exibido: Rio de Janeiro, 26 de 10 de 2004.
Como faço para exibir o mês por extenso?
Ex.: Rio de Janeiro, 26 de OUTUBRO de 2004.
Existe alguma função específica para isso?
Obrigada
--
< 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:
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte
Brasília
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
[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] PARADOX NO WINDOWS XP EM REDE
Olá Paulo, Eu tive o mesmo problema, fiz um monte de testes mais não consegui fazer funcionar com WinXP e 98 juntos a solução foi deixar tudo 98 ou tudo XP. []'s - Original Message - From: Edivaldo David To: [EMAIL PROTECTED] Sent: Tuesday, October 26, 2004 10:48 AM Subject: Re: [delphi-br] PARADOX NO WINDOWS XP EM REDE eu tenho uma aplicação em rede, com 15 máquinas, usando o paradox. O banco de dados de movimento está aproximadamente com 25 mil registros.Uso o delphi 5, paradox 7 e o windows 2000, aconselho a mudar para o windows 2000, ele trabalha melhor em rede. Edivaldo David "info.suporte" <[EMAIL PROTECTED]> wrote: Boa tarde a todos Gostaria de saber se alguem já conseguiu fazer rodar uma aplicação com a base de dados paradox em REDE. A máquina servidora é WINDOWS 98 e a Clint é WINDOWS XP. Aplicação em Delphi 5 com a base dados PARADOX 7. Paulo Fernandes Porto Alegre RS [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 - 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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] Re: Problemas na Atualização do Estoque
O Sandro valeu, mas é justamente isso essa rotina tem que ser efetuada completamente,
por isso da transação.
- Original Message -
From: sandrobit2000
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 10:50 AM
Subject: [delphi-br] Re: Problemas na Atualização do Estoque
Desculpe faltou o database.StartTransaction
if liQtdRegs >= 50 then
begin
Database.Commit;
DataBase.StartTransaction;
liQtdRegs := 0;
end;
Bit
--- Em [EMAIL PROTECTED], "sandrobit2000"
<[EMAIL PROTECTED]> escreveu
>
> Ola,
>
> Vc pode fazer commit apos uma quantidade de inserts, se apos 100
ele
> nao esta suportando o cache, vc commita a cada 50, nao commit a
cada
> insert pois ficara lenta a rotina. Embora eu ache q esta operacao
tem
> q ser efetuada completamente, verifique algo do tipo tamanho de
cache
> ou coisa parecida!
>
>// Inicia uma Transacao
>Database.StartTransaction;
>tbNotaItem.DisableControls;
>tbNotaItem.First;
>liQtdRegs := 0;
>while not tbNotaItem.Eof do
>begin
>// Atualiza Estoque
>with tQry do
>begin
>SQL.Clear;
>SQL.Add('Update Produtos ');
>SQL.Add('Set Estoque = Estoque
> + :Qtde ');
>SQL.Add('Where Codigo
= :Codigo');
>ParamByName('Qtde').AsFloat:=
>tbNotaItem.FieldByName('Qtde').AsInteger;
>ParamByName('Codigo').AsString :=
>tbNotaItem.FieldByName('Produto').AsString;
>ExecSQL;
>end;
>inc(liQtdRegs);
>//verifica se ja pode commitar
>if liQtdRegs >= 50 then
> begin
> Database.Commit;
> liQtdRegs := 0;
> end;
>
>tbNotaItem.Next;
>end;
>
>
> Espero ter ajudado
>
> Bit
>
> --- Em [EMAIL PROTECTED], "Sergio Toshio Kawahara"
> <[EMAIL PROTECTED]> escreveu
> > Olá, Alexandre
> >
> > Agradeço a sua atenção para o meu problema, fiz o teste mas deu o
> mesmo erro, então resolvi o problema tirando a transação, acho que
> vou mudar a forma de atualização ao inves de atualizar no final vou
> atualizar item a item direto na inclusão, de qualquer forma valeu.
> >
> > []'s
> > - Original Message -
> > From: Alexandre Oliveira
> > To: [EMAIL PROTECTED]
> > Sent: Tuesday, October 26, 2004 7:25 AM
> > Subject: Re: [delphi-br] Problemas na Atualização do Estoque
> >
> >
> > Olá,
> >
> > Porque você não tenta assim:
> >
> > procedure TForm1.bConfirmarClick(Sender: TObject);
> > var
> > tQry : TQuery;
> > begin
> > try
> > tQry := tQuery.Create(nil); // Cria Query temporaria
> > tQry.DatabaseName := 'dbTeste';//Alias
> > try
> > // Inicia uma Transacao
> > Database.StartTransaction;
> > tbNotaItem.DisableControls;
> > tbNotaItem.First;
> > while not tbNotaItem.Eof do
> > begin
> > // Atualiza Estoque
> > with tQry do
> > begin
> > SQL.Clear;
> > SQL.Add('Update Produtos ');
> > SQL.Add('Set Estoque = Estoque
> + :Qtde ');
> > SQL.Add('Where Codigo
= :Codigo');
> > ParamByName
('Qtde').AsFloat:=
> > tbNotaItem.FieldByName('Qtde').AsInteger;
> > ParamByName
('Codigo').AsString :=
> > tbNotaItem.Fi
Re: [delphi-br] Problemas na Atualização do Estoque
Olá, Alexandre
Agradeço a sua atenção para o meu problema, fiz o teste mas deu o mesmo erro, então
resolvi o problema tirando a transação, acho que vou mudar a forma de atualização ao
inves de atualizar no final vou atualizar item a item direto na inclusão, de qualquer
forma valeu.
[]'s
- Original Message -
From: Alexandre Oliveira
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 7:25 AM
Subject: Re: [delphi-br] Problemas na Atualização do Estoque
Olá,
Porque você não tenta assim:
procedure TForm1.bConfirmarClick(Sender: TObject);
var
tQry : TQuery;
begin
try
tQry := tQuery.Create(nil); // Cria Query temporaria
tQry.DatabaseName := 'dbTeste';//Alias
try
// Inicia uma Transacao
Database.StartTransaction;
tbNotaItem.DisableControls;
tbNotaItem.First;
while not tbNotaItem.Eof do
begin
// Atualiza Estoque
with tQry do
begin
SQL.Clear;
SQL.Add('Update Produtos ');
SQL.Add('Set Estoque = Estoque + :Qtde ');
SQL.Add('Where Codigo = :Codigo');
ParamByName('Qtde').AsFloat:=
tbNotaItem.FieldByName('Qtde').AsInteger;
ParamByName('Codigo').AsString :=
tbNotaItem.FieldByName('Produto').AsString;
ExecSQL;
end;
tbNotaItem.Next;
end;
tbNotaItem.EnableControls;
Database.Commit;
except
Database.Rollback;
raise;
end;
finally
FreeAndNil(tQry);
end;
end;
- Original Message -
From: "Sergio Toshio Kawahara" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, October 25, 2004 10:43 PM
Subject: [delphi-br] Problemas na Atualização do Estoque
DELPHI 6, PARADOX
Pessoal estou com o seguinte problema na atualização do estoque quando mando
rodar a rotina abaixo com mais de 100 itens da a seguinte mensagem:
"Operation not Applicate too many open tables", alguem já passou por isso?
Rotina para atualizar o estoque:
procedure TForm1.bConfirmarClick(Sender: TObject);
var
tQry : TQuery;
begin
// Inicia uma Transacao
Database.StartTransaction;
try
tQry := tQuery.Create(Application); // Cria Query
temporaria
tQry.DatabaseName := 'dbTeste';//Alias
tbNotaItem.First;
while not tbNotaItem.Eof do
begin
// Atualiza Estoque
with tQry do
begin
SQL.Clear;
SQL.Add('Update Produtos ');
SQL.Add('Set Estoque = Estoque + :Qtde ');
SQL.Add('Where Codigo = :Codigo');
ParamByName('Qtde').AsFloat:=
tbNotaItem.FieldByName('Qtde').AsInteger;
ParamByName('Codigo').AsString :=
tbNotaItem.FieldByName('Produto').AsString;
ExecSQL;
Free;
end;
tbNotaItem.Next;
end;
tQry.Free;
Database.Commit;
except
tQry.Free;
Database.Rollback;
raise;
end;
end;
Agradeço qualquer ajuda.
[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
--
Este e-mail está livre de vírus.
Verificado por AVG Anti-Vírus (http://www.avgbrasil.com.br).
Versão: 7.0.280 / Banco de dados de Vírus: 264.12.2 - Data de Lançamento:
22/10/2004
--
Mensagens enviadas estão livres de vírus.
Verificado por AVG Anti-Vírus (http://www.avgbrasil.com.br).
Versão: 7.0.280 / Banco de dados de Vírus: 264.12.2 - Data de Lançamento: 22/10/2004
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
Re: [delphi-br] Problemas na Atualização do Estoque
DELPHI 6, PARADOX
Pessoal estou com o seguinte problema na atualização do estoque quando mando rodar a
rotina abaixo com mais de 100 itens da a seguinte mensagem:
"Operation not Applicate too many open tables", alguem já passou por isso?
Rotina para atualizar o estoque:
procedure TForm1.bConfirmarClick(Sender: TObject);
var
tQry : TQuery;
begin
// Inicia uma Transacao
Database.StartTransaction;
try
tQry := tQuery.Create(Application); // Cria Query temporaria
tQry.DatabaseName := 'dbTeste';//Alias
tbNotaItem.First;
while not tbNotaItem.Eof do
begin
// Atualiza Estoque
with tQry do
begin
SQL.Clear;
SQL.Add('Update Produtos ');
SQL.Add('Set Estoque = Estoque + :Qtde ');
SQL.Add('Where Codigo = :Codigo');
ParamByName('Qtde').AsFloat:=
tbNotaItem.FieldByName('Qtde').AsInteger;
ParamByName('Codigo').AsString :=
tbNotaItem.FieldByName('Produto').AsString;
ExecSQL;
end;
tbNotaItem.Next;
end;
tQry.Free;
Database.Commit;
except
tQry.Free;
Database.Rollback;
raise;
end;
end;
Agradeço qualquer ajuda.
[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
[delphi-br] Problemas na Atualização do Estoque
DELPHI 6, PARADOX
Pessoal estou com o seguinte problema na atualização do estoque quando mando rodar a
rotina abaixo com mais de 100 itens da a seguinte mensagem:
"Operation not Applicate too many open tables", alguem já passou por isso?
Rotina para atualizar o estoque:
procedure TForm1.bConfirmarClick(Sender: TObject);
var
tQry : TQuery;
begin
// Inicia uma Transacao
Database.StartTransaction;
try
tQry := tQuery.Create(Application); // Cria Query temporaria
tQry.DatabaseName := 'dbTeste';//Alias
tbNotaItem.First;
while not tbNotaItem.Eof do
begin
// Atualiza Estoque
with tQry do
begin
SQL.Clear;
SQL.Add('Update Produtos ');
SQL.Add('Set Estoque = Estoque + :Qtde ');
SQL.Add('Where Codigo = :Codigo');
ParamByName('Qtde').AsFloat:=
tbNotaItem.FieldByName('Qtde').AsInteger;
ParamByName('Codigo').AsString :=
tbNotaItem.FieldByName('Produto').AsString;
ExecSQL;
Free;
end;
tbNotaItem.Next;
end;
tQry.Free;
Database.Commit;
except
tQry.Free;
Database.Rollback;
raise;
end;
end;
Agradeço qualquer ajuda.
[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] SQL com problema no UPDATE
é Eduardo estou fazendo isso mas o sistema é muito grande então estou convertendo
devagar mas o problema é que o piradox já esta rodando faz um tempão.
- Original Message -
From: Eduardo Jedliczka
To: [EMAIL PROTECTED]
Sent: Monday, September 06, 2004 4:08 PM
Subject: Re: [delphi-br] SQL com problema no UPDATE
Sergio... você é corajoso...
Quando eu trabalhava com paradox, eu era forçado a ficar dando manuntenção em
índice, validando cabeçalho, com muita freqüência, (com tabelas entre 20 e 30 mil
registros)... você tem 500 mil... acho que é muita coisa para a dupla BDE / Paradox...
Porque você não troca para um banco de dados relacional, e fica 'numa boa' ??? Eu
prefiro o Firebird, mas há quem goste do MySql ou do MSDE. (Acess não é banco).
[s]
=
Eduardo Jedliczka
GeraSoft Informática
Apucarana - PR
=
- Original Message -
From: Sergio Toshio Kawahara
To: [EMAIL PROTECTED]
Sent: Monday, September 06, 2004 3:57 PM
Subject: Re: [delphi-br] SQL com problema no UPDATE
Delphi 6 - BDE Paradox - WinXP
Vou passar a rotina inteira:
// Inicia uma transação.
Modulo.Database.StartTransaction;
try
// Altera o Produto.
msg.Caption := 'Atenção! Alterando o Código do Produto, Aguarde...';
Repaint;
tQry := tQuery.Create(Application);
tQry.DatabaseName := 'dbFarmacia';
with tQry do
begin
SQL.Clear;
SQL.Add('Update PRODUTOS ');
SQL.Add('Set PRODUTO = :ProdutoNovo ');
SQL.Add('Where PRODUTO = :ProdutoVelho');
ParamByName('ProdutoNovo').AsString := Trim(NovoCodigo.Text);
ParamByName('ProdutoVelho').AsString := vCodigoVelho;
ExecSQL;
end;
// Altera os Itens da Entrada de Notas.
msg.Caption := 'Atenção! Alterando nas Notas de Entradas, Aguarde...';
Repaint;
with tQry do
begin
SQL.Clear;
SQL.Add('Update IT_MVEST ');
SQL.Add('Set PRODUTO = :ProdutoNovo ');
SQL.Add('Where PRODUTO = :ProdutoVelho');
ParamByName('ProdutoNovo').AsString := Trim(NovoCodigo.Text);
ParamByName('ProdutoVelho').AsString := vCodigoVelho;
ExecSQL;
end;
// Altera os Itens do Movimento de Convenio.
msg.Caption := 'Atenção! Alterando nos Convênios, Aguarde...';
Repaint;
with tQry do
begin
SQL.Clear;
SQL.Add('Update MOVCONV ');
SQL.Add('Set PRODUTO = :ProdutoNovo ');
SQL.Add('Where PRODUTO = :ProdutoVelho');
ParamByName('ProdutoNovo').AsString := Trim(NovoCodigo.Text);
ParamByName('ProdutoVelho').AsString := vCodigoVelho;
ExecSQL;
end;
tQry.Free;
except
Modulo.Database.Rollback;
end;
Modulo.Database.Commit;
Valeu.
- Original Message -
From: Eduardo Jedliczka
To: [EMAIL PROTECTED]
Sent: Monday, September 06, 2004 3:41 PM
Subject: Re: [delphi-br] SQL com problema no UPDATE
Qual banco de dados ou repositório de dados ??? Qual S.O. ??? Que versão do
Delphi ??? você usa BDE ???
Sergio, por favor, passe-nos mais informações, nossa bola de cristal está no
conserto...
[s]
=
Eduardo Jedliczka
GeraSoft Informática
Apucarana - PR
=
- Original Message -
From: Sergio Toshio Kawahara
To: [EMAIL PROTECTED]
Sent: Monday, September 06, 2004 3:09 PM
Subject: [delphi-br] SQL com problema no UPDATE
Alguém já teve esse problema:
Crie um sql em tempo de execução que faz o seguinte alterar o código do
produto em uma tabela gigante pra lá de 500.000 lançamentos, e quando mando rodar da o
erro TOO MANY RECORD ON TABLE:
var
tQry : TQuery;
tQry := tQuery.Create(Application);
tQry.DatabaseName := 'dbFarmacia';
with tQry do
begin
SQL.Clear;
SQL.Add('Update MOVCONV ');
SQL.Add('Set PRODUTO = :ProdutoNovo ');
SQL.Add('Where PRODUTO = :ProdutoVelho');
ParamByName('ProdutoNovo').AsString := Trim(NovoCodigo.Text);
ParamByName('ProdutoVelho').AsString := vCodigoVelho;
ExecSQL;
end;
Agradeço qualquer ajuda.
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não conti
Re: [delphi-br] SQL com problema no UPDATE
Delphi 6 - BDE Paradox - WinXP
Vou passar a rotina inteira:
// Inicia uma transação.
Modulo.Database.StartTransaction;
try
// Altera o Produto.
msg.Caption := 'Atenção! Alterando o Código do Produto, Aguarde...';
Repaint;
tQry := tQuery.Create(Application);
tQry.DatabaseName := 'dbFarmacia';
with tQry do
begin
SQL.Clear;
SQL.Add('Update PRODUTOS ');
SQL.Add('Set PRODUTO = :ProdutoNovo ');
SQL.Add('Where PRODUTO = :ProdutoVelho');
ParamByName('ProdutoNovo').AsString := Trim(NovoCodigo.Text);
ParamByName('ProdutoVelho').AsString := vCodigoVelho;
ExecSQL;
end;
// Altera os Itens da Entrada de Notas.
msg.Caption := 'Atenção! Alterando nas Notas de Entradas, Aguarde...';
Repaint;
with tQry do
begin
SQL.Clear;
SQL.Add('Update IT_MVEST ');
SQL.Add('Set PRODUTO = :ProdutoNovo ');
SQL.Add('Where PRODUTO = :ProdutoVelho');
ParamByName('ProdutoNovo').AsString := Trim(NovoCodigo.Text);
ParamByName('ProdutoVelho').AsString := vCodigoVelho;
ExecSQL;
end;
// Altera os Itens do Movimento de Convenio.
msg.Caption := 'Atenção! Alterando nos Convênios, Aguarde...';
Repaint;
with tQry do
begin
SQL.Clear;
SQL.Add('Update MOVCONV ');
SQL.Add('Set PRODUTO = :ProdutoNovo ');
SQL.Add('Where PRODUTO = :ProdutoVelho');
ParamByName('ProdutoNovo').AsString := Trim(NovoCodigo.Text);
ParamByName('ProdutoVelho').AsString := vCodigoVelho;
ExecSQL;
end;
tQry.Free;
except
Modulo.Database.Rollback;
end;
Modulo.Database.Commit;
Valeu.
- Original Message -
From: Eduardo Jedliczka
To: [EMAIL PROTECTED]
Sent: Monday, September 06, 2004 3:41 PM
Subject: Re: [delphi-br] SQL com problema no UPDATE
Qual banco de dados ou repositório de dados ??? Qual S.O. ??? Que versão do Delphi
??? você usa BDE ???
Sergio, por favor, passe-nos mais informações, nossa bola de cristal está no
conserto...
[s]
=
Eduardo Jedliczka
GeraSoft Informática
Apucarana - PR
=
- Original Message -
From: Sergio Toshio Kawahara
To: [EMAIL PROTECTED]
Sent: Monday, September 06, 2004 3:09 PM
Subject: [delphi-br] SQL com problema no UPDATE
Alguém já teve esse problema:
Crie um sql em tempo de execução que faz o seguinte alterar o código do produto em
uma tabela gigante pra lá de 500.000 lançamentos, e quando mando rodar da o erro TOO
MANY RECORD ON TABLE:
var
tQry : TQuery;
tQry := tQuery.Create(Application);
tQry.DatabaseName := 'dbFarmacia';
with tQry do
begin
SQL.Clear;
SQL.Add('Update MOVCONV ');
SQL.Add('Set PRODUTO = :ProdutoNovo ');
SQL.Add('Where PRODUTO = :ProdutoVelho');
ParamByName('ProdutoNovo').AsString := Trim(NovoCodigo.Text);
ParamByName('ProdutoVelho').AsString := vCodigoVelho;
ExecSQL;
end;
Agradeço qualquer ajuda.
[As partes desta mensagem que não continham texto foram removidas]
[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] SQL com problema no UPDATE
Pô, me desculpe é que estou com esse problema já faz algum tempo e já estou ficando
meio pirado.
Delphi 6
BDE Paradox
Windows XP
Valeu, pela atenção.
- Original Message -
From: Eduardo Jedliczka
To: [EMAIL PROTECTED]
Sent: Monday, September 06, 2004 3:41 PM
Subject: Re: [delphi-br] SQL com problema no UPDATE
Qual banco de dados ou repositório de dados ??? Qual S.O. ??? Que versão do Delphi
??? você usa BDE ???
Sergio, por favor, passe-nos mais informações, nossa bola de cristal está no
conserto...
[s]
=
Eduardo Jedliczka
GeraSoft Informática
Apucarana - PR
=
- Original Message -
From: Sergio Toshio Kawahara
To: [EMAIL PROTECTED]
Sent: Monday, September 06, 2004 3:09 PM
Subject: [delphi-br] SQL com problema no UPDATE
Alguém já teve esse problema:
Crie um sql em tempo de execução que faz o seguinte alterar o código do produto em
uma tabela gigante pra lá de 500.000 lançamentos, e quando mando rodar da o erro TOO
MANY RECORD ON TABLE:
var
tQry : TQuery;
tQry := tQuery.Create(Application);
tQry.DatabaseName := 'dbFarmacia';
with tQry do
begin
SQL.Clear;
SQL.Add('Update MOVCONV ');
SQL.Add('Set PRODUTO = :ProdutoNovo ');
SQL.Add('Where PRODUTO = :ProdutoVelho');
ParamByName('ProdutoNovo').AsString := Trim(NovoCodigo.Text);
ParamByName('ProdutoVelho').AsString := vCodigoVelho;
ExecSQL;
end;
Agradeço qualquer ajuda.
[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]
Yahoo! Grupos, um serviço oferecido por:
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
[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]
Yahoo! Grupos, um serviço oferecido por:
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
[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
[delphi-br] SQL com problema no UPDATE
Alguém já teve esse problema:
Crie um sql em tempo de execução que faz o seguinte alterar o código do produto em uma
tabela gigante pra lá de 500.000 lançamentos, e quando mando rodar da o erro TOO MANY
RECORD ON TABLE:
var
tQry : TQuery;
tQry := tQuery.Create(Application);
tQry.DatabaseName := 'dbFarmacia';
with tQry do
begin
SQL.Clear;
SQL.Add('Update MOVCONV ');
SQL.Add('Set PRODUTO = :ProdutoNovo ');
SQL.Add('Where PRODUTO = :ProdutoVelho');
ParamByName('ProdutoNovo').AsString := Trim(NovoCodigo.Text);
ParamByName('ProdutoVelho').AsString := vCodigoVelho;
ExecSQL;
end;
Agradeço qualquer ajuda.
[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
