joseberto
Novato
Registrado: Quinta-Feira, 12 de Outubro de 2017
Mensagens: 23
|
 Enviada: Sex Jan 12, 2018 11:14 am Assunto: Gravar texto no MySqL usando o FireDAC |
 |
|
Bom dia pessoa!
Eu fiz uma inserção de dados usando o compnente FireDAC no Delphi Tokyo 10.2
mais quando vou pesquisar e ver essas informações saem assim:
Escrevi:
INSPEÇÃO POR ÓRGÃO E APARELHO:
Depois de gravados eles ficam assim:
INSPEÇÃO POR ÓRGÃO E APARELHO:
USO ESSA FUNÇÃO PARA INSERIR OU ALTERAR
| Código: |
//Verifica campos obrigatorios
Function Gravar_CadDadosPadrao(Tipo:Integer): Boolean;
var
QryPK : TFDQuery;
const
SQLInsert: String = 'INSERT INTO tbdados_padrao ( nm_dados ) '+
'VALUES ( :nmnome ) ';
SQLUpdate: String = 'UPDATE tbdados_padrao SET '+
'nm_dados=:nmnome WHERE id_codigo=:idCodigo ';
begin
QryPK:=TFDQuery.Create(nil);
try
QryPK.Connection:=dmDados.FDConnection;
QryPK.SQL.Clear;
with frmCad_DadosInclusao_ do begin
Try
QryPK.SQL.Clear;
//Incluindo
if Tipo=0 then begin
QryPK.SQL.Add(SQLInsert);
end else begin
QryPK.SQL.Add(SQLUpdate);
// Seleciona
QryPK.ParamByName('idCodigo').AsString:= sLabelCad_IDCod.Caption;
end;
QryPK.ParamByName('nmnome').AsString := MemoObs.Lines.Text;
QryPK.ExecSQL; // procedimento nativo do FireDac
dmDados.FDConnection.Commit; // procedimento que fiz para comitar diretamente pela conexão com o banco de dados;
Result := System.True;
if QryPesquisa.Active=true then
QryPesquisa.Refresh;
except
raise;
end;
end;
finally
QryPK.Active:=False;
QryPK.Free;
end;
end;
|
NA HORA DE VER A INFORMAÇÃO EU ABRO A TABELA E FAÇO ASSIM:
| Código: | | MemoObs.Lines.Text:=QuotedStr(QryPesquisa.FieldByName('nm_dados').AsString); |
Mais os textos escritos com assentos não saem certo, COMO RESOLVER ISSO?
JÁ FUI NO BANCO MUDEI ALGUMAS CONFIGURAÇÕES LA DA TABELA MAIS NÃO ADIANTOU!
ALGUÉM TEM ALGUMA IDEIA??? |
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
