Eu consigo passar o sql, mas não grava o texto completo
06/03/2003
0
Olá tudo bem ?
Estou digitando um texto em um memo. Quando fiz um looping nas linhas do memo para pegar todo o assunto digitado, o texto vai para o sql, entretanto, não grava todo o texto.
Estou utilizando Access 2000, campo da tabela é do tipo Memorando
O código está correto, pelo eu não vejo erro algum!
Qual será o motivo?
O campo memorando não grava textos ?
with dm.qryGeral do
begin
close;
sql.clear;
sql.add(´Insert into parecer values (´ +
quotedStr(lblNumeroParecer.caption) + ´, ´ +
inttostr(12) + ´, ´ +
QuotedStr(edReferencia.text) + ´, ´ +
QuotedStr(edOrigem.text) + ´, ´ +
QuotedStr(edInteressado.Text));
For i := 0 to memo1.Lines.Count - 1 do
texto := texto + Memo1.Lines[i];
sql.add(´, ´ + quotedstr(texto) + ´, ´ + DateToStr(date) + ´)´);
ShowMessage(sql.text);
execSql;
end;
Obrigado por sua atenção!
Estou digitando um texto em um memo. Quando fiz um looping nas linhas do memo para pegar todo o assunto digitado, o texto vai para o sql, entretanto, não grava todo o texto.
Estou utilizando Access 2000, campo da tabela é do tipo Memorando
O código está correto, pelo eu não vejo erro algum!
Qual será o motivo?
O campo memorando não grava textos ?
with dm.qryGeral do
begin
close;
sql.clear;
sql.add(´Insert into parecer values (´ +
quotedStr(lblNumeroParecer.caption) + ´, ´ +
inttostr(12) + ´, ´ +
QuotedStr(edReferencia.text) + ´, ´ +
QuotedStr(edOrigem.text) + ´, ´ +
QuotedStr(edInteressado.Text));
For i := 0 to memo1.Lines.Count - 1 do
texto := texto + Memo1.Lines[i];
sql.add(´, ´ + quotedstr(texto) + ´, ´ + DateToStr(date) + ´)´);
ShowMessage(sql.text);
execSql;
end;
Obrigado por sua atenção!
Sandrodantas
Curtir tópico
+ 0
Responder
Posts
06/03/2003
Sandrodantas
Galera eu consegui solucionar utilizando ADOQUERY
Até mais !
Até mais !
Responder
Clique aqui para fazer login e interagir na Comunidade :)