Erro ao utlizar USerControl com SQLServer

[Marcio]

Olá,

Instalei o componente no Delphi Seattle.

Criei uma aplicação de exemplo, utilizando como conector o FireDac.

Ao iniciar a aplicação pela primeira vez, ok, o sistema cria as tabelas no SQlServer, e apresenta a tela de Login.

Ao finalizar a aplicação e entrar novamente ocorre um erro dizendo que a tabela de Mensagem já existe !

Ou seja, o sistema esta tentando criar a tabela novamente na base, mas como ela já existe ocorre erro e a aplicação não inicia.

Baixei os componentes do GitHub, ontem.

Obrigado.

Marcio Eduardo D. dos Reis

[InfusTec]

Olá!

Vamos tentar reproduzir o relatado para ver se encontramos o problema.

[Victor Hugo Gonzales]

Boa noite,
Estou usando o Firedac + Mysql e estou tendo este mesmo retorno.
Se as tabelas já existem o sistema a cria e abre com sucesso, do contrario apresenta erro de criação de tabelas já existentes;

TUCAplicationMessagem.tableMessages
Project raised exception class EMySQLNativeException with message ‘[FireDAC][Phys][MySQL] Table ‘sys_usuario_mensagem’ already exists’.

TUserControl.TableRights
Project raised exception class EMySQLNativeException with message ‘[FireDAC][Phys][MySQL] Table ‘sys_permissao’ already exists’.

O projeto do componente foi baixado em 01/08/2016 as 15h no github
https://github.com/infussolucoes/usercontrol-sd

[Victor Hugo Gonzales]

Para o mysql está funcionando não sei para os demais SGDB;

Nas unit’s, UCBase e UCHist_Base
alterado todos comando de criação de tabelas
UCBase, linhas [1771,2534,2544,2630,2677,4125]
UCHist_Base, linha [179]
de:
Format(‘CREATE TABLE %s ….’,
para:
Format(‘CREATE TABLE IF NOT EXISTS %s …..’,

Abraços

[Autor]

Posts