Re: [delphi-br] Onde está o erro?
não funcionou
Att.
Rodrigo
Moacir (gmail) escreveu:
Galvao,
Não estou com o Delphi aqui, mas tenta assim:
IF not (frmmntalterar is nil) then
begin
if frmmntalterar.EDITAR=2 then
begin
frmmntalterar.dmsistema.mdo_sqlmotorista.Locate('ID_MOTORISTA',
frmmntalterar.mdo_sqlauteracoes_motoristaID_MOTORISTA.AsInteger,
[]);
btnexcluir.Visible:=True;
end;
end;
[ ]´s
Moacir
galvao_em escreveu:
Como eu faço para saber se um form está Nil ou não.
pois tenho o seguinte código:
IF not (frmmntalterar=nil) then
begin
if frmmntalterar.EDITAR=2 then
begin
dmsistema.mdo_sqlmotorista.Locate('ID_MOTORISTA',frmmntalterar.mdo_sqlauteracoes_motoristaID_MOTORISTA.AsInteger,[]);
btnexcluir.Visible:=True;
end;
end;
mas ele não funciona de jeito nenhum. preciso muito de ajuda.
Att.
Rodrigo Galvan
___
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz.
http://br.info.mail.yahoo.com/
___
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz.
http://br.info.mail.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]
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!.
[delphi-br] Onde está o erro?
Como eu faço para saber se um form está Nil ou não.
pois tenho o seguinte código:
IF not (frmmntalterar=nil) then
begin
if frmmntalterar.EDITAR=2 then
begin
dmsistema.mdo_sqlmotorista.Locate('ID_MOTORISTA',frmmntalterar.mdo_sqlauteracoes_motoristaID_MOTORISTA.AsInteger,[]);
btnexcluir.Visible:=True;
end;
end;
mas ele não funciona de jeito nenhum. preciso muito de ajuda.
Att.
Rodrigo Galvan
___
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz.
http://br.info.mail.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]
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!.
Re: [delphi-br] Onde está o erro?
Galvao,
Não estou com o Delphi aqui, mas tenta assim:
IF not (frmmntalterar is nil) then
begin
if frmmntalterar.EDITAR=2 then
begin
frmmntalterar.dmsistema.mdo_sqlmotorista.Locate('ID_MOTORISTA',
frmmntalterar.mdo_sqlauteracoes_motoristaID_MOTORISTA.AsInteger,
[]);
btnexcluir.Visible:=True;
end;
end;
[ ]´s
Moacir
galvao_em escreveu:
Como eu faço para saber se um form está Nil ou não.
pois tenho o seguinte código:
IF not (frmmntalterar=nil) then
begin
if frmmntalterar.EDITAR=2 then
begin
dmsistema.mdo_sqlmotorista.Locate('ID_MOTORISTA',frmmntalterar.mdo_sqlauteracoes_motoristaID_MOTORISTA.AsInteger,[]);
btnexcluir.Visible:=True;
end;
end;
mas ele não funciona de jeito nenhum. preciso muito de ajuda.
Att.
Rodrigo Galvan
___
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz.
http://br.info.mail.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]
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!.
[delphi-br] Onde está o erro?
Olá, pessoal.
Tenho uma tabela em paradox e uso D7.
Nesta tabela Contratos_Dados tenho um campo data que é Data_final,A,
10.
Estou começando a trabalhar com SQL. Passo dois parâmetros
Data_Inicial e data_final e gostaria de saber os contratos que estão
entre estas datas. Já fiz a pesquisa usando as datas como Alfa e me
retornou um resultado maluco.
Como converto a data que está na tabela como string para data?
Segue a procedure:
procedure TForm21.BitBtn2Click(Sender: TObject);
VAR
INICIO, FINAL: Tdate;
begin
Table1.Open;
Query1.Open;
{}
INICIO:=strtodate(MaskEdit1.Text);
FINAL:=strtodate(MaskEdit2.Text);
{}
QUERY1.CLOSE;
QUERY1.SQL.CLEAR;
QUERY1.SQL.ADD('SELECT *');
QUERY1.SQL.ADD(' FROM Contratos_dados');
QUERY1.SQL.ADD(' WHERE data_final = '''+INICIO+''' AND');
QUERY1.SQL.ADD('DATA_FINAL = '''+FINAL+''' ');
QUERY1.SQL.ADD(' ORDER BY CONTRATO');
QUERY1.OPEN;
{}
end;
--
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]
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!.
Re: [delphi-br] Onde está o erro?
[-x-]
effgen9 escreveu:
Olá, pessoal.
Tenho uma tabela em paradox e uso D7.
Nesta tabela Contratos_Dados tenho um campo data que é Data_final,A,
10.
Estou começando a trabalhar com SQL. Passo dois parâmetros
Data_Inicial e data_final e gostaria de saber os contratos que estão
entre estas datas. Já fiz a pesquisa usando as datas como Alfa e me
retornou um resultado maluco.
Como converto a data que está na tabela como string para data?
[-x-]
[Welson] Tente assim:
procedure TForm21.BitBtn2Click(Sender: TObject);
VAR
INICIO, FINAL: TDate;
begin
Table1.Open;
{}
INICIO:=strtodate(MaskEdit1.Text);
FINAL:=strtodate(MaskEdit2.Text);
{}
QUERY1.CLOSE;
QUERY1.SQL.CLEAR;
QUERY1.SQL.ADD(' SELECT * ');
QUERY1.SQL.ADD(' FROM Contratos_dados ');
QUERY1.SQL.ADD(' WHERE data_final between ' + QuotedStr(INICIO) + ' AND ' + QuotedStr(FINAL));
QUERY1.SQL.ADD(' ORDER BY CONTRATO ');
QUERY1.OPEN;
{}
end;
[]s.
=
O que me preocupa não é o grito dos maus. É o silêncio dos bons.
Martin Luther King.
=
Welson de Avelar Soares Filho
Analista/Programador Delphi
Gemini Sistemas
www.geminisistemas.com.br
Juiz de Fora - Minas Gerais
=
-
Yahoo! Search
Música para ver e ouvir: You're Beautiful, do James Blunt
[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]
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!.
Re: [delphi-br] Onde está o erro?
Porque vc não altera o campo da tabela para data?
Em 22/05/06, effgen9 [EMAIL PROTECTED] escreveu:
Olá, pessoal.
Tenho uma tabela em paradox e uso D7.
Nesta tabela Contratos_Dados tenho um campo data que é Data_final,A,
10.
Estou começando a trabalhar com SQL. Passo dois parâmetros
Data_Inicial e data_final e gostaria de saber os contratos que estão
entre estas datas. Já fiz a pesquisa usando as datas como Alfa e me
retornou um resultado maluco.
Como converto a data que está na tabela como string para data?
Segue a procedure:
procedure TForm21.BitBtn2Click(Sender: TObject);
VAR
INICIO, FINAL: Tdate;
begin
Table1.Open;
Query1.Open;
{}
INICIO:=strtodate(MaskEdit1.Text);
FINAL:=strtodate(MaskEdit2.Text);
{}
QUERY1.CLOSE;
QUERY1.SQL.CLEAR;
QUERY1.SQL.ADD('SELECT *');
QUERY1.SQL.ADD(' FROM Contratos_dados');
QUERY1.SQL.ADD(' WHERE data_final = '''+INICIO+''' AND');
QUERY1.SQL.ADD('DATA_FINAL = '''+FINAL+''' ');
QUERY1.SQL.ADD(' ORDER BY CONTRATO');
QUERY1.OPEN;
{}
end;
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
[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]
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!.
RE: [delphi-br] Onde está o erro?
Experimentou passar essas datas na sua instrução SQL no formato mm/dd/?
Sds.
From: effgen9 [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Onde está o erro?
Date: Mon, 22 May 2006 12:45:41 -
Olá, pessoal.
Tenho uma tabela em paradox e uso D7.
Nesta tabela Contratos_Dados tenho um campo data que é Data_final,A,
10.
Estou começando a trabalhar com SQL. Passo dois parâmetros
Data_Inicial e data_final e gostaria de saber os contratos que estão
entre estas datas. Já fiz a pesquisa usando as datas como Alfa e me
retornou um resultado maluco.
Como converto a data que está na tabela como string para data?
Segue a procedure:
procedure TForm21.BitBtn2Click(Sender: TObject);
VAR
INICIO, FINAL: Tdate;
begin
Table1.Open;
Query1.Open;
{}
INICIO:=strtodate(MaskEdit1.Text);
FINAL:=strtodate(MaskEdit2.Text);
{}
QUERY1.CLOSE;
QUERY1.SQL.CLEAR;
QUERY1.SQL.ADD('SELECT *');
QUERY1.SQL.ADD(' FROM Contratos_dados');
QUERY1.SQL.ADD(' WHERE data_final = '''+INICIO+''' AND');
QUERY1.SQL.ADD('DATA_FINAL = '''+FINAL+''' ');
QUERY1.SQL.ADD(' ORDER BY CONTRATO');
QUERY1.OPEN;
{}
end;
_
MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
--
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]
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!.
[delphi-br] Onde está o erro?
Bom dia a todos. [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
RES: [delphi-br] Onde está o erro
eu tentaria resolver assim
VAR USUARIO :STRING
REGRA : STRING
FORNEC:STRING
USUARIO := DataModulo.TUSUARIO.FieldByName('CDOBRA').AsString;
REGRA := DataModulo.TREGRA.FieldByName('CDREGRA').AsString;
FORNEC:= DataModulo.TFORNEC.FieldByName('CDFORNEC').AsString;
IF DataModulo.TMOVIMENTO..Locate('CDOBRA;CDREGRA;CDFORNEC', VarArrayOf([
USUARIO,REGRA,FORNEC]), [) THEN
Isso sempre funciona comigo
espero ter ajudado
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Info Desenvolvimento
Enviada em: quarta-feira, 18 de maio de 2005 17:33
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Onde está o erro
Pessoal é um locate com 3 campos de chaves primárias
Mensagem de ERRO?Erro creating variant array
V := VarArrayCreate([0,1,2], varOleStr); DataModulo.TREGRA.First;
While not DataModulo.TREGRA.Eof do
begin
V[0]:= DataModulo.TUSUARIO.FieldByName('CDOBRA').AsString;
V[1]:= DataModulo.TREGRA.FieldByName('CDREGRA').AsString;
V[2]:= DataModulo.TFORNEC.FieldByName('CDFORNEC').AsString;
If(DataModulo.TMOVIMENTO.Locate('CDOBRA;CDREGRA;CDFORNEC', V,[]))then
Onde está o erro no código acima
[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]
mailto:[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! http://br.yahoo.com/info/utos.html .
[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] Onde está o erro
Pessoal é um locate com 3 campos de chaves primárias
Mensagem de ERRO?Erro creating variant array
V := VarArrayCreate([0,1,2], varOleStr); DataModulo.TREGRA.First;
While not DataModulo.TREGRA.Eof do
begin
V[0]:= DataModulo.TUSUARIO.FieldByName('CDOBRA').AsString;
V[1]:= DataModulo.TREGRA.FieldByName('CDREGRA').AsString;
V[2]:= DataModulo.TFORNEC.FieldByName('CDFORNEC').AsString;
If(DataModulo.TMOVIMENTO.Locate('CDOBRA;CDREGRA;CDFORNEC', V,[]))then
Onde está o erro no código acima
[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
RES: [delphi-br] Onde está o erro
with CustTable do
Locate('Company;Contact;Phone', VarArrayOf(['Sight Diver', 'P',
'408-431-1000']), [loPartialKey]);
Este exemplo está no help do Delphi.
Vc está passando os nomes dos campos e esqueceu de passar os valores que
eles recebem, ou se preferir passou pela metade.
Eduardo
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Info Desenvolvimento
Enviada em: quarta-feira, 18 de maio de 2005 17:33
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Onde está o erro
Pessoal é um locate com 3 campos de chaves primárias
Mensagem de ERRO?Erro creating variant array
V := VarArrayCreate([0,1,2], varOleStr); DataModulo.TREGRA.First;
While not DataModulo.TREGRA.Eof do
begin
V[0]:= DataModulo.TUSUARIO.FieldByName('CDOBRA').AsString;
V[1]:= DataModulo.TREGRA.FieldByName('CDREGRA').AsString;
V[2]:= DataModulo.TFORNEC.FieldByName('CDFORNEC').AsString;
If(DataModulo.TMOVIMENTO.Locate('CDOBRA;CDREGRA;CDFORNEC', V,[]))then
Onde está o erro no código acima
[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]
mailto:[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! http://br.yahoo.com/info/utos.html .
[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] Onde está o erro?
Não está alterando os dados:
Em uma IBQuery :
UPDATE areas
SET
idArea =:par_idArea,
nomeArea =:par_nomeArea
WHERE
idArea =:par_idArea
No formulario, botão alterar:
operacao:= 2;
edtidArea.Enabled:= True;
edtNomeArea.Enabled:= True;
EdtNomeArea.SetFocus;
No formulario, botão Gravar:
if operacao = 2 then
begin
dm.IBQAltAreas.ParamByName('par_idArea').AsString:=
edtidArea.Text;
dm.IBQAltAreas.ParamByName('par_NomeArea').AsString:=
EdtNomeArea.Text;
dm.IBQAltAreas.ExecSQL;
dm.IBQaltAreas.Close;
dm.IBTransaction1.Commit;
Beep;
MessageDlg('A Alteração da Área: ' + #13 + EdtNomeArea.Text +
#13 + 'foi executada com sucesso.', mtInformation,[mbOK], 0);
end;
Obrigado.
--
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] Onde está o erro?
o erro é que vc estava tentanto modificar um registro mas passava na clausula
where os novos valores e não os valores que estão na tabela.
Olá, isso ja aconteceu comigo, vamos lá..
imagine a tabela Areas
digamos que não existe chave primaria e vc pode
querer mudar os 2 campos.
idArea nomeArea
258 bahia
358 Espirito Santo
458 Minas Gerais
//novo sql
UPDATE areas SET
idArea =:New_idArea,
nomeArea =:New_nomeArea
WHERE
idArea =:Old_idArea and
nomeArea =:Old_nomeArea
No formulario, botão alterar:
operacao := 2;
edtidArea.Enabled:= True;
edtNomeArea.Enabled := True;
// crie 2 variaveis para armazenar os valores antigos que estão na tabela.
OldArea := edtidArea.text;
OldNome := edtNomeArea.text;
EdtNomeArea.SetFocus;
No formulario, botão Gravar:
if operacao = 2 then begin
with dm.IBQAltAreas do begin
//Novos valores a serem gravador...
ParamByName('New_idArea').AsStrin := EdtidArea.Text;
ParamByName('New_NomeArea').AsStrng:=
EdtNomeArea.Text;
// valores antigos usados no where...
ParamByName('Old_idArea').AsStrin := OldArea;
ParamByName('Old_NomeArea').AsStrng := OldNome;
ExecSQL;
dm.IBQaltAreas.Close;
dm.IBTransaction1.Commit;
end;
Beep;
MessageDlg('A Alteração da Área: ' + #13 +
EdtNomeArea.Text +
#13 + 'foi executada com sucesso.',
mtInformation,[mbOK], 0);
end;
agora se vc criar um campo e definir como chave primaria nao precisa de nada
disso.
=
De:fabiano_jd [EMAIL PROTECTED]
Para:delphi-br@yahoogrupos.com.br
Assunto:[delphi-br] Onde está o erro?
Não está alterando os dados:
Em uma IBQuery :
UPDATE areas
SET
idArea =:par_idArea,
nomeArea =:par_nomeArea
WHERE
idArea =:par_idArea
No formulario, botão alterar:
operacao:= 2;
edtidArea.Enabled:= True;
edtNomeArea.Enabled:= True;
EdtNomeArea.SetFocus;
No formulario, botão Gravar:
if operacao = 2 then
begin
dm.IBQAltAreas.ParamByName('par_idArea').AsStrin
g:=
edtidArea.Text;
dm.IBQAltAreas.ParamByName('par_NomeArea').AsStr
ing:=
EdtNomeArea.Text;
dm.IBQAltAreas.ExecSQL;
dm.IBQaltAreas.Close;
dm.IBTransaction1.Commit;
Beep;
MessageDlg('A Alteração da Área: ' + #13 +
EdtNomeArea.Text +
#13 + 'foi executada com sucesso.',
mtInformation,[mbOK], 0);
end;
Obrigado.
--
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
