[firebase-br] SQL

BandaLemuel bandalemuel em yahoo.com.br
Ter Abr 3 11:47:57 -03 2007



use parametros... ( se estiver usando delphi ) ....

ou então use esta função que retira o ponto

function RetiraPonto ( Valor : String ) : String ;
var
 x    :    INteger ;
begin
  Result    := '' ;
  for x    := 1 to Length(Valor) do
    if Valor[x] <> '.' then
      Result    := Result + Valor[x] ;

  //Troca a Virgula por ponto
  Valor := Result ;
  for x := 1 to Length(valor) do
   if Valor[x] <> ',' then
       result := Result + Valor[x]
   else
      result := Result + '.' ;

end;

espero ter ajudado

Wesley



----- Original Message ----- 
From: "Marcos Marcelo" <thulo12 em yahoo.com.br>
To: "FireBase" <lista em firebase.com.br>
Sent: Tuesday, April 03, 2007 10:48 AM
Subject: [firebase-br] SQL


olá pessoal,

  Estou com problema com está sql, não inclui valor com virgula ou ponto 
sera que alguem pode dar uma dica de como posso resolver isto.

 vSql := 'insert into 
"'+vpath+'\estoque"(codigo,referencia,descricao,nome,medida,preco,qtd_minim,cst,st,ativo) 
values(';       vSql := vSql + #39+IntToStr(vMaior)+#39+',';
                   vSql := vSql + #39+edtCodigo.text+#39+',';
                   vSql := vSql + #39+dbDescricao.field.asstring+#39+',';
                   vSql := vSql + #39+lkGrupo.Text+#39+',';
                   vSql := vSql + #39+dbUnid.field.asstring+#39+',';
                   vSql := vSql + CurrToStr(dbPc_venda.field.ascurrency)',';
                   vSql := vSql + 
CurrToStr(dbEstoq_min.field.ascurrency)+',';
                   vSql := vSql + 
#39+'040'+#39+','+#39+'III'+#39+','+booltostr(false)+')';

__________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para editar sua configuração na lista, use o endereço 
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa


-- 
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.446 / Virus Database: 268.18.25/744 - Release Date: 3/4/2007 
05:32





Mais detalhes sobre a lista de discussão lista