Tópico: Erro "unsucefull metadata update" em debug - Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

Erro "unsucefull metadata update" em debug

Home Fóruns Dúvidas e Problemas relacionados ao UserControl ShowDelphi Edition Erro "unsucefull metadata update" em debug

Este tópico contém resposta, possui 1 voz e foi atualizado pela última vez por  Rodrigo La Maison Buschmann da Luz 5 horas, 3 minutos atrás.

Visualizando 2 posts - 1 até 2 (de 2 do total)
  • Autor
    Posts
  • #2666

    Está ocorrendo o erro descrito por tratamento errado ao cerificar os fields e tabelas existentes. Correções:
    UCBase, linha 2691:

          for sFieldName in TableUsers.GetFieldList do
          begin
            if Trim(sFieldName) <> '' then begin
               if not DataConnector.UCFindFieldTable(TableUsers.TableName, sFieldName) then
               begin
                 SQLstmt := Format('alter table %s add %s %s;', [TableUsers.TableName, sFieldName, TableUsers.GetFieldType(sFieldName, Self.Criptografia)]);
                 DataConnector.UCExecSQL(SQLstmt);
               end;
             end;
          end;

    UCDBXConn, linha 193 e 195:

    function TUCDBXConn.UCFindFieldTable(const Tablename, FieldName: string): Boolean;
    var
      TempList: TStringList;
    begin
      TempList := TStringList.Create;
      try
        if SchemaName <> '' then
          FConnection.GetFieldNames(uppercase(Tablename), SchemaName, TempList)
        else
          FConnection.GetFieldNames(uppercase(Tablename), TempList);
        TempList.Text := UpperCase(TempList.Text);
        Result := TempList.IndexOf(UpperCase(FieldName)) > -1;
      finally
        FreeAndNil(TempList);
      end;
    end;
    #2721

    Bom dia, foi verificada essa correção, precisa de mais alguma informação ?

Visualizando 2 posts - 1 até 2 (de 2 do total)

Você deve fazer login para responder a este tópico.

Ir ao topo

© 2018 Infus Soluções em Tecnologia - Todos os Direitos Reservados