Gravar memo em campo Blob
Ola, esotu com uma dúvida cruel, ja tentei todos os meios que foi disponibilizado neste forum e ainda não consegui.
tenho uma sql:
SQLConnection.ExecuteDirect(´INSERT INTO cliente (CODIGO, NOME, TELEFONE, OBSERVACAO) VALUES (null,´´´´ + EdNome.Text + ´´´,´ + ´´´´ + EdTelefone.Text + ´´´,´ + ´´´´ + memo1.lines.text + ´´´)´);
onde:
CODIGO --> CAMPO AUTONUMERO
NOME E TELEFONE --> CAMPO CHAR
OBSERVACAO --> BLOB SUB_TYPE 1 SEGMENT SIZE 80 CHARACTER SET NONE
Como faço para poder gravar o conteudo da memo no campo BLOB
tenho uma sql:
SQLConnection.ExecuteDirect(´INSERT INTO cliente (CODIGO, NOME, TELEFONE, OBSERVACAO) VALUES (null,´´´´ + EdNome.Text + ´´´,´ + ´´´´ + EdTelefone.Text + ´´´,´ + ´´´´ + memo1.lines.text + ´´´)´);
onde:
CODIGO --> CAMPO AUTONUMERO
NOME E TELEFONE --> CAMPO CHAR
OBSERVACAO --> BLOB SUB_TYPE 1 SEGMENT SIZE 80 CHARACTER SET NONE
Como faço para poder gravar o conteudo da memo no campo BLOB
Lucianogar
Curtidas 0
Respostas
Afarias
08/10/2004
o método normal é por parâmetros ::
Query.SQL.Text := ´insert into tabela (campo_blob) values (:p1)´;
Query.ParamByName(´P1´).AsString := ´Meu texto´;
Query.Exec;
mas acho q vc não poderá fazer isso com este método do componente Connection q está usando. -- se prentende mesmo usar esse método, vc terá de usar uma UDF que converta CHAR/VARCHAR para BLOB, ex::
insert into tabela (campo_blob) values (TextToBlob(´Meu Texto´))
T+
Query.SQL.Text := ´insert into tabela (campo_blob) values (:p1)´;
Query.ParamByName(´P1´).AsString := ´Meu texto´;
Query.Exec;
mas acho q vc não poderá fazer isso com este método do componente Connection q está usando. -- se prentende mesmo usar esse método, vc terá de usar uma UDF que converta CHAR/VARCHAR para BLOB, ex::
insert into tabela (campo_blob) values (TextToBlob(´Meu Texto´))
T+
GOSTEI 0