sql.add in delphi6
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.
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
Curtidas 0
Respostas
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