F�rum Alterar registros com MySQL - DBExpress #241685

21/04/2010

Pessoal, Tenho uma d�vida tremenda aqui no meu formul�rio de cadastro, onde utilizo delphi 2010 e Mysql 5.1. Eu consigo normalmente cadastrar os meus registros e ir colocando dentro do Banco de Dados, inclusive utilizando um c�digo que peguei aqui no site da DevMedia, sobre o autoincremento do mysql. At� ai tudo bem, o problema est� sendo em edit�-lo, pois quando eu fa�o as altera��es e dou o ApllyUpdates, ele cria um novo ID para o campo e a partir da�, ele fica dando erro de key violation, n�o sei mais o que fazer, pois cadastrar novos registros est� 100%, mais quando chega a parte de altera��o n�o saiu do canto. Eu sou iniciante e estou aprendendo utilizando o MySQL, pois j� venho do PHP e tenho familiaridade com esse BD. Queria muito a ajuda de todos, de como eu fa�o pra alterar um registro, sem alterar o seu ID. Fico no aguardo. Desde j�, muito obrigado.

Francisco Sena

Curtir t�pico

+ 0

Responder

Posts

22/04/2010

Wilson Junior

Como est� sendo feito o seu c�digo sobre o auto-incremento?

Responder

Gostei + 0

22/04/2010

Francisco Sena

Eu tou usando o auto-incremento do pr�prio SQL, usei o MySQL-Front para criar as tabelas e l� utilizei a op��o auto-incremento.

Dentro do sistema eu utilizei uns c�digos que peguei no curso de uma aplica��o financeira qutilizando mysql e delphi 2009, que fala sobre esse ID MySQL, mas, ele t� funcionando normalmente, o problema est� s� acontecendo quando clico em EDITAR um registro, pois no lugar de manter o mesmo ID, ele gera um novo ID e depois da�, ele n�o deixa mais cadastrar novos registros, pois d� Key Violation.

Qualquer coisa, se precisar, posto os c�digos que fazem o auto-incremente, mas, resaltando, que n�o � essa parte que est� com problema, � NA PARTE DE EDI��O DO REGISTRO.

Responder

Gostei + 0

22/04/2010

Wilson Junior

O que voc� pode fazer � que quando n�o for INSERT, voc� n�o utilizar o auto-incremento. Assim ele n�o gera um novo ID.

Qualquer d�vida posta o c�digo a� que tentamos lhe ajudar.

Responder

Gostei + 0

22/04/2010

Francisco Sena

valeu Wilson, Mais como eu faria isso ?? Eu sou novato no Delphi e tenho pouqu�ssima experi�ncia nesse tipo de programa��o. Seria alterando algum componente, ou utilizar algum c�digo ?? Agrade�o desde j� a sua ajuda.

Responder

Gostei + 0

22/04/2010

Wilson Junior

Coloque o seu c�digo aqui para poder lhe ajudar.
Pois n�o sei se voc� est� gerando o ID diretamente no banco ou via c�digo no Delphi. Coloque aqui para poder lhe ajudar.

Responder

Gostei + 0

22/04/2010

Francisco Sena

esse c�digo fica no Data Module: procedure TDM.DataModuleCreate(Sender: TObject);
var
I: Integer;
begin
    for I := 0 to ComponentCount - 1 do
    if Components[I] is TClientDataSet then
    begin
        TClientDataSet(Components[I]).BeforePost := SetID;
    end; end; function TDM.GetID(Table: String): Integer;
var
SqlQuery : TSQLQuery;
begin
   SqlQuery := TSQLQuery.Create(Self);
   SqlQuery.SQLConnection := SQLCon;
   SqlQuery.SQL.Add('SELECT AUTO_INCREMENT FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = ' + QuotedStr(Table));    SqlQuery.Open;    Result := SqlQuery.Fields[0].Value;
end; procedure TDM.SetID(DataSet: TDataSet);
begin
    DataSet.Fields[0].Value := GetID('tbl' + copy(DataSet.Name, 4));
end; Conforme eu falei anteriormente, eu peguei esses c�digos de um curso de aplica��o financeira com delphi 2009 e mysql... Por favor, me d� essa forcinha, s� est� faltando essa parte para cocnluir a minha parte dos registros... Agrade�o desde ja!

Responder

Gostei + 0

23/04/2010

Francisco Sena

alguma novidade ?? ser� que tem como resolver ?

Responder

Gostei + 0

23/04/2010

Wilson Junior

procedure TDM.SetID(DataSet: TDataSet);
begin
  if  TClientDataSet(DataSet).State = dsInsert then
      DataSet.Fields[0].Value := GetID('tbl' + copy(DataSet.Name, 4))
  ;
end;

Espero ter colaborado.

Responder

Gostei + 0