Como salvar conteúdo de um memo no banco de dados - delphi

Delphi

23/01/2020

Tenho duas ferramentas um listview e um memo,
para salvar o conteúdo do listview no banco de dados eu uso o código abaixo:
                   try
                   Screen.Cursor := crHourGlass;
                   for x:=0 to cxlistView1.Items.Count-1 do
                       begin
                          if (cxlistView1.Items.Count > 0) then
                          begin
                                   lbMensagem.Caption := cxListView1.Items[x].Caption;
                                   cxlistview1.Items[x].Selected := true;
                                   qrMusicaIns.insert;
                                   qrMusicaInsMidia_nome.AsString         := cxListView1.Items[x].Caption;
                                   qrMusicaIns.post;
                                   qrMusicaIns.ApplyUpdates;
                                   pbImportar.Position := pbImportar.Position + 1;
                                   Application.ProcessMessages;
                           end;
                       end;
                   finally
                   Screen.Cursor := crDefault;
                   Application.MessageBox('Importação realizada com sucesso!!',
                                          'Atenção', MB_ICONWARNING+MB_OK);
                   BTNLimpar.Click;
                   end;


Como faço para executar usando um memo para o banco de dados?
Ele esta assim dentro do memo

1
2
4
6

Cada número desses será um registro diferente.

Obrigado a todos.
Júnior Pinheiro

Júnior Pinheiro

Curtidas 0

Respostas

Dirceu Morais

Dirceu Morais

23/01/2020

Bom dia,

Tente fazer assim.

function Gravar;
Var vcds : TSqlQuery;
Begin
   vcds:=TSQLQuery.Create(Self);
    vcds.SQLConnection:= SUA_CONEXAO_COM_O_BANCO_DADOS
    vcds.sql.clear;  
    vcds.sql.add('Update Musica Set Campo_memo = :memo');
    vcds.sql.add('Where condicao = :condicao ';
    try
          vcds.Parambyname('condicao').asstring := sua_condicao
          vcds.ParamByName('memo').LoadFromFile(UTF8Encode(Arquivo_memo) ,ftBlob);
          vcds.ExecSQL;
    except
             //Tratar mensagem de erro, caso ocorra.       
   end;
end;


Faça adaptação as suas necessidades.
GOSTEI 0
Júnior Pinheiro

Júnior Pinheiro

23/01/2020

muito obrigado brother. valeuuu

Bom dia,

Tente fazer assim.

function Gravar;
Var vcds : TSqlQuery;
Begin
   vcds:=TSQLQuery.Create(Self);
    vcds.SQLConnection:= SUA_CONEXAO_COM_O_BANCO_DADOS
    vcds.sql.clear;  
    vcds.sql.add('Update Musica Set Campo_memo = :memo');
    vcds.sql.add('Where condicao = :condicao ';
    try
          vcds.Parambyname('condicao').asstring := sua_condicao
          vcds.ParamByName('memo').LoadFromFile(UTF8Encode(Arquivo_memo) ,ftBlob);
          vcds.ExecSQL;
    except
             //Tratar mensagem de erro, caso ocorra.       
   end;
end;


Faça adaptação as suas necessidades.
GOSTEI 0
POSTAR