Array
(
)

Insert Sql ?duvida?

Ronangledson
   - 09 set 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


Rodrigo Costa
   - 09 set 2004

#Código

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;



Ronangledson
   - 09 set 2004

Valeu funcionou legal. Obrigado
Ronn G. Ramos