Insert Sql ?duvida?

09/09/2004

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


Ronangledson

Respostas

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&93; +´)                  ´;
DmDce.QDceCar.ExecSQL;



Responder Citar

09/09/2004

Ronangledson

Valeu funcionou legal. Obrigado
Ronn G. Ramos


Responder Citar