Problemas com Insercao de campo MEMO

Delphi

13/05/2004

ae galera, o que pode ta errado nesta instrucao?


qr_clie.Close;
qr_clie.sql.Clear;
qr_clie.sql.Add(´ Insert Into ciel_eilc(Cod_clie, Cliente, Apelido, ´);
qr_clie.sql.Add(´ Endereco, Bairro, Cidade, Uf, Cep, Cpf, Cnpj, Rg, ´);
qr_clie.sql.Add(´ Insc_mun, Insc_estd, Fone, Fax, Celular, Hp, Mail, ´);
qr_clie.sql.Add(´ Contato1, Contato2, Data_abert, Data_nasc, Banco, ´);
qr_clie.sql.Add(´ Agencia, Conta, Anotacoes) Values(´ + QuotedStr(ed_cod_clie.Text)+´, ´);
qr_clie.sql.Add(´ ´ + QuotedStr(ed_Nome.Text)+´,´ + QuotedStr(ed_apelido.Text)+´, ´);
qr_clie.sql.Add(´ ´ + QuotedStr(ed_end.Text)+´,´ + QuotedStr(ed_bairro.Text)+´, ´);
qr_clie.sql.Add(´ ´ + QuotedStr(ed_cidade.Text)+´,´ + QuotedStr(ed_uf.Text)+´, ´);
qr_clie.sql.Add(´ ´ + QuotedStr(ed_cep.Text)+´,´ + QuotedStr(ed_cpf.Text)+´, ´);
qr_clie.sql.Add(´ ´ + QuotedStr(ed_cnpj.Text)+´,´ + QuotedStr(ed_Rg.Text)+´, ´);
qr_clie.sql.Add(´ ´ + QuotedStr(ed_mun.Text)+´,´ + QuotedStr(ed_estadual.Text)+´, ´);
qr_clie.sql.Add(´ ´ + QuotedStr(ed_fone.Text)+´,´ + QuotedStr(ed_fax.Text)+´, ´);
qr_clie.sql.Add(´ ´ + QuotedStr(ed_celular.Text)+´,´ + QuotedStr(ed_hp.Text)+´, ´);
qr_clie.sql.Add(´ ´ + QuotedStr(ed_mail.Text)+´,´ + QuotedStr(ed_contato1.Text)+´, ´);
qr_clie.sql.Add(´ ´ + QuotedStr(ed_contato2.Text)+´, ´ + QuotedStr(ed_inclusao.Text)+´, ´);
qr_clie.sql.Add(´ ´ + QuotedStr(ed_nasc.Text)+´,´ + QuotedStr(ed_banco.Text)+´, ´);
qr_clie.sql.Add(´ ´ + QuotedStr(ed_agencia.Text)+´,´ + QuotedStr(ed_conta.Text)+´, ´);
qr_clie.sql.Add(´ ´ + QuotedStr(ed_anot.Lines.Text)+´) ´);
qr_clie.ExecSQL;
Close;



Os campos sao:

Cod_clie N
Cliente A
Apelido A
Endereco A
Bairro A
Cidade A
Uf A
Cep A
Cpf A
Cnpj A
Rg A
Insc_mun A
Insc_estd A
Fone A
Fax A
Celular A
Hp A
Mail A
Contato1 A
Contato2 A
Data_abert D
Data_nasc D
Banco A
Agencia A
Conta A
Anotacoes M

A tabela é Paradox...

depois q compilo e testo o programa, na hora de inluir(aonde ativa a instrucao), da um erro CAPABILITY NOT SUPPORTED e as vezes da o erro TYPE MISMATH IN EXPRESSION. O ultimo, é o mais frequente...

Desde ja agradeco a atencao de vcs...

Abraço
Joe Ventrue


Joe Ventrue

Joe Ventrue

Curtidas 0

Respostas

Joe Ventrue

Joe Ventrue

13/05/2004

sobe


GOSTEI 0
Rômulo Barros

Rômulo Barros

13/05/2004

Agora me diga: que que é isso aqui: Qual o motivo dessa aspas?
qr_clie.sql.Add([color=red:e2158d6b2c][size=18:e2158d6b2c]´ ´[/size:e2158d6b2c] [/color:e2158d6b2c]+ QuotedStr(ed_Nome.Text)+´,´ + QuotedStr(ed_apelido.Text)+´, ´);


Faz assim:

qr_clie.Close; 
qr_clie.sql.Clear; 
qr_clie.sql.Add(´ Insert Into ciel_eilc(Cod_clie, Cliente, Apelido, ´); 
qr_clie.sql.Add(´ Endereco, Bairro, Cidade, Uf, Cep, Cpf, Cnpj, Rg, ´); 
qr_clie.sql.Add(´ Insc_mun, Insc_estd, Fone, Fax, Celular, Hp, Mail, ´); 
qr_clie.sql.Add(´ Contato1, Contato2, Data_abert, Data_nasc, Banco, ´); 
qr_clie.sql.Add(´ Agencia, Conta, Anotacoes) Values(´ + QuotedStr(ed_cod_clie.Text)+´, ´); 
qr_clie.sql.Add(QuotedStr(ed_Nome.Text)+´,´ + QuotedStr(ed_apelido.Text)+´, ´); 
qr_clie.sql.Add(QuotedStr(ed_end.Text)+´,´ + QuotedStr(ed_bairro.Text)+´, ´); 
qr_clie.sql.Add(QuotedStr(ed_cidade.Text)+´,´ + QuotedStr(ed_uf.Text)+´, ´); 
qr_clie.sql.Add(QuotedStr(ed_cep.Text)+´,´ + QuotedStr(ed_cpf.Text)+´, ´); 
qr_clie.sql.Add(QuotedStr(ed_cnpj.Text)+´,´ + QuotedStr(ed_Rg.Text)+´, ´); 
qr_clie.sql.Add(QuotedStr(ed_mun.Text)+´,´ + QuotedStr(ed_estadual.Text)+´, ´); 
qr_clie.sql.Add(QuotedStr(ed_fone.Text)+´,´ + QuotedStr(ed_fax.Text)+´, ´); 
qr_clie.sql.Add(QuotedStr(ed_celular.Text)+´,´ + QuotedStr(ed_hp.Text)+´, ´); 
qr_clie.sql.Add(QuotedStr(ed_mail.Text)+´,´ + QuotedStr(ed_contato1.Text)+´, ´); 
qr_clie.sql.Add(QuotedStr(ed_contato2.Text)+´, ´ + QuotedStr(ed_inclusao.Text)+´, ´); 
qr_clie.sql.Add(QuotedStr(ed_nasc.Text)+´,´ + QuotedStr(ed_banco.Text)+´, ´); 
qr_clie.sql.Add(QuotedStr(ed_agencia.Text)+´,´ + QuotedStr(ed_conta.Text)+´, ´); 
qr_clie.sql.Add(QuotedStr(ed_anot.Lines.Text)+´) ´); 
qr_clie.ExecSQL; 
Close;



GOSTEI 0
Joe Ventrue

Joe Ventrue

13/05/2004

explicacao sobre as aspas:
(´ ...segue instrucao... ´)

agora, isso nao resolve o meu problema...

mas muito obrigado pela atencao


GOSTEI 0
Rômulo Barros

Rômulo Barros

13/05/2004

Caro amigo: No que vc está querendo executar, nunca irá conseguir com essas aspas.

Execute, antes de abrir a sua query:

Showmessage(Query.Sql.Text);


e veja o resultado !!

Sem mais.


Sobe


GOSTEI 0
Joe Ventrue

Joe Ventrue

13/05/2004

td bem kra, eu tenho um sistema inteirinho feito desta forma...mas isso nao vem ao caso, mesmo com aspas ou sem aspas, o problema continua o msm...

Muito Obrigado...

Alguem, sabe me socorrer???

valew


GOSTEI 0
G1b4

G1b4

13/05/2004

Tente assim:
qr_clie.Close;
qr_clie.sql.Clear;
qr_clie.sql.Add(´ Insert Into ciel_eilc values (:Cod_clie,:Cliente,:Apelido, ´);
qr_clie.sql.Add(´ :Endereco, :Bairro,: Cidade,: Uf, :Cep, :Cpf,: Cnpj, :Rg, ´);
qr_clie.sql.Add(´ :Insc_mun,: Insc_estd,: Fone, :Fax,: Celular,: Hp, :Mail, ´);
qr_clie.sql.Add(´: Contato1, :Contato2, :Data_abert, :Data_nasc, :Banco, ´);
qr_clie.sql.Add(´ :Agencia, :Conta, :Anotacoes)´);
qr_clie.ParamByName(´codClie´).AsInteger:=StrToInt(ed_cod_clie.Text);
//nao sei se o campo eh inteiro
qr_clie.ParamByName(´Cliente).AsString:=ed_Nome.Text;
...//aki o resto
qr_clie.ParamByName(´Anotações´).AsBlob:=ed_anot.Text;
qr_clie.ExecSQL;

Obs: O insert q fiz precisa estar na ordem q está no seu bd e possuir todos os campos, senão vc precisa colocar todos os campos q deseja e os parametros relacionados.


GOSTEI 0
Joe Ventrue

Joe Ventrue

13/05/2004

soh g1b4, a ideia de colocar parametros, eu ja tinha feito e eu acho q o erro ta no seguinte:
...(´anotacoes´).AsBlob...

realmente eu tava tentando definir string no lugar de memo.

vo testar e dou a resposta...

valew


GOSTEI 0
Joe Ventrue

Joe Ventrue

13/05/2004

ae kra...deu problema e com certeza é nesta linha....de uma olhada:

qr_clie.ParamByName(´Anotacoes´).asBlob := ed_anot.Lines.Text;


valeuw


GOSTEI 0
POSTAR