sql.add in delphi6

MySQL

18/05/2010

bom dia. sou iniciante no delphi,
nao desmerecendo a ferramenta mais se trata de um programa
 muito bom porem teoricamente simples,mas a situação se
aperta quando inserimos o mysql em seu corpo.
tenho uma duvida boba,porem nao consegui resposta definitiva com ninguem.
 uso bd mysql  e tenho que inserir alguns dados via sql e a string
em questão ultrapassa 255 caracteres, me foi sugerido usar um add
,mas nao obtive resposta a como e quando usar.  alguem pode me esclarecer essa duvida?


Aqui vai parte do progrma onde me trava....


procedure TfrmYouClube.BitBtn1Click(Sender: TObject);
var
   cpf:String;
begin

   QrComprar.Close;
   QrComprar.Open;
   QrBuscaCli.close;
   QrBuscaCli.ParamByName('cpf').AsString := QrComprarcpf.AsString;
   QrBuscaCli.Open;

   if QrBuscaCli.RecordCount = 1 then
   begin
        QrGravar.Sql.Text := 'update tab_clientes set nome = '''+
           QrComprarnome_entrega.AsString+
           ''' where cpf = '''+QrComprarcpf.AsString + '''';
        QrGravar.ExecSql;
        //QrGravar.ApplyUpdates;
   end else
   begin
QrGravar.Sql.add := 'insert into tab_clientes (cpf,nome,nped,codprod,valor,quant,presente,peso,cor,personalizado,voltagem,tamanho,cont,codcli,data,forma,valorpgto1,datapgto1,tid,entrega,valorentrega,estatus,endereço,numero,complemento,bairro,cidade,estado,cep1,cep2,nome_entrega,dataentrega,site,descricao,FAB)''+
     ' values ('''+QrComprarcpf.text+''','''+QrComprarnped.text+''','''+QrComprarcodprod.text+''','''+QrComprarvalor.text+''','''+QrComprarquant.text+''','''+QrComprarpresente.text+''','''+QrComprarpeso.text+''','''+QrComprarcor.text+''','''+QrComprarpersonalizado.text+''','''+QrComprarvoltagem.text+''','''+QrComprartamanho.text+''','''+QrComprarcont.text+''','''+QrComprarcodcli.text+''','''+QrComprardata.text+''','''+QrComprarforma.text+''','''+QrComprarvalorpgto1.text+''','''+QrComprardatapgto1.text+''','''+QrComprartid.text+''','''+QrComprarentrega.text+''','''+QrComprarvalorentrega.text+''','''+QrComprarestatus.text+''','''+QrComprarendereço.text+''','''+QrComprarnumero.text+''','''+QrComprarcomplemento.text+''','''+QrComprarbairro.text+''','''+QrComprarcidade.text+''','''+QrComprarestado.text+''','''+QrComprarcep1.text+''','''+QrComprarcep2.text+''','''+QrComprarnome_entrega.text+''','''+QrComprardataentrega.text+''','''+QrComprarsite.text+''','''+QrComprardescricao.text+''','''+QrComprarFAB.text+''');
           QrComprarcpf.AsString + ''','''+QrComprarnome_entrega.AsString+''')';
        QrGravar.ExecSql;
        //QrGravar.ApplyUpdates;

   end;

end;
end.
Aquilis Costa

Aquilis Costa

Curtidas 0

Respostas

José

José

18/05/2010

Este tópico esta sendo fechado por inatividade. Se necessário, sinalizar para que seja reaberto ou abrir um novo.
GOSTEI 0
POSTAR