Erro SQL!
Estou fazendo a seguinte programação no dephi
z := tsqlquery.Create(nil);
z.SQLConnection := dados.conexao;
z.SQL.Clear;
showmessage(frm_principal.ncupom);
z.SQL.Add(´update tbl_venda_tmp set vnd_tmp_status=1 where vnd_tmp_numerocupom = ´´+frm_principal.ncupom+´´ ´);
showmessage(z.Text);
z.ExecSQL;
z.Free;
Só que quando imprimi o showmessage do ´z.text´
ele me mostra o seguinte
update tbl_venda_tmp set vnd_tmp_status=1 where vnd_tmp_numerocupom = ´ 00001
porque ele está me mostrando essa ASPAS antes do número sendo que era para ser ´00001´
z := tsqlquery.Create(nil);
z.SQLConnection := dados.conexao;
z.SQL.Clear;
showmessage(frm_principal.ncupom);
z.SQL.Add(´update tbl_venda_tmp set vnd_tmp_status=1 where vnd_tmp_numerocupom = ´´+frm_principal.ncupom+´´ ´);
showmessage(z.Text);
z.ExecSQL;
z.Free;
Só que quando imprimi o showmessage do ´z.text´
ele me mostra o seguinte
update tbl_venda_tmp set vnd_tmp_status=1 where vnd_tmp_numerocupom = ´ 00001
porque ele está me mostrando essa ASPAS antes do número sendo que era para ser ´00001´
Ztiago
Curtidas 0
Respostas
Marcelo.c
25/06/2004
Experimente mudar esta linha:
para:
z.SQL.Add(´update tbl_venda_tmp set vnd_tmp_status=1 where vnd_tmp_numerocupom = "´+frm_principal.ncupom+´" ´);
para:
z.SQL.Add(´update tbl_venda_tmp set vnd_tmp_status=1 where vnd_tmp_numerocupom =´+ QuotedStr(frm_principal.ncupom));
GOSTEI 0
Ztiago
25/06/2004
você poderia me dizer para que serve o quotedstr????????
GOSTEI 0
Marcelo.c
25/06/2004
A função QuotedStr coloca aspas na string passada como parâmetro. QuotedStr(´String´) substitui o uso de ´´´´+´String´+´´´´ que é mais suscetível a erros.
GOSTEI 0