Insert Sql ?duvida?
09/09/2004
0
Tenho o código abaixo funcionando porém, é uma marreta a inclusão da validade com o update, alguém pode me dizer como incluo dentro do insert este campo validade (é um campo definido pelo usuário no form ou seja variável fora da tabela) e é o último campo da tabela.
DmDce.QDceCar.Sql.add(´insert into DceCar.db(nome,rg,mat,curso,unidade) select Dce.nome, Dce.rg, Dce.Mat, ´);
DmDce.QDceCar.Sql.add(´Curso.nomecu, Unidade.NomeUn from Dce, curso, Unidade ´);
DmDce.QDceCar.Sql.add(´where (Dce.codCurso = curso.codcurso) and (Dce.CodUn = Unidade.CodUn) and (Dce.mat = :mat) ´);
DmDce.QDceCar.ParamByName(´mat´).asstring := Sg2.Cells[0,cont];
DmDce.QDceCar.ExecSQL;
DmDce.QDceCar.close;
DmDce.QDceCar.Sql.clear;
DmDce.QDceCar.Sql.add(´update DceCar.db set Validade = :Validade where Mat = :mat ´);
DmDce.QDceCar.ParamByName(´Validade´).asstring := datetoStr(Frm_Prn_Car.Vence.Time);
DmDce.QDceCar.ParamByName(´mat´).asstring := Sg2.Cells[0,cont];
DmDce.QDceCar.ExecSQL;
ronangledson@yahoo.com.br
DmDce.QDceCar.Sql.add(´insert into DceCar.db(nome,rg,mat,curso,unidade) select Dce.nome, Dce.rg, Dce.Mat, ´);
DmDce.QDceCar.Sql.add(´Curso.nomecu, Unidade.NomeUn from Dce, curso, Unidade ´);
DmDce.QDceCar.Sql.add(´where (Dce.codCurso = curso.codcurso) and (Dce.CodUn = Unidade.CodUn) and (Dce.mat = :mat) ´);
DmDce.QDceCar.ParamByName(´mat´).asstring := Sg2.Cells[0,cont];
DmDce.QDceCar.ExecSQL;
DmDce.QDceCar.close;
DmDce.QDceCar.Sql.clear;
DmDce.QDceCar.Sql.add(´update DceCar.db set Validade = :Validade where Mat = :mat ´);
DmDce.QDceCar.ParamByName(´Validade´).asstring := datetoStr(Frm_Prn_Car.Vence.Time);
DmDce.QDceCar.ParamByName(´mat´).asstring := Sg2.Cells[0,cont];
DmDce.QDceCar.ExecSQL;
ronangledson@yahoo.com.br
Ronangledson
Curtir tópico
+ 0
Responder
Posts
09/09/2004
Rodrigo Costa
DmDce.QDceCar.Sql.Text := ´ insert into DceCar.db (nome,rg,mat,curso,unidade,validade) ´+ ´ select Dce.nome, Dce.rg, Dce.Mat, Curso.nomecu, ´+ ´ Unidade.NomeUn,´ + datetoStr(Frm_Prn_Car.Vence.Time) + ´ from Dce, curso, Unidade ´+ ´ where (Dce.codCurso = curso.codcurso) ´+ ´ and (Dce.CodUn = Unidade.CodUn) ´+ ´ and (Dce.mat = ´+ Sg2.Cells[0,cont] +´) ´; DmDce.QDceCar.ExecSQL;
Responder
Clique aqui para fazer login e interagir na Comunidade :)