hola,
¿Como le hago para pasarle un valor a un insert, que se da por medio de un inputbox?. Tal valor es un entero y quiero guardarlo en la BD tengo algo mas u menos asi, en realidad no es correcto, pero tengo la idea, aunque vaga pero idea al fin....
Código Delphi
[-]procedure TFrmMiembros.btnseleccionarClick(Sender: TObject);
var
distritofederal:string; begin
if (((cve_tipo in [1,2,3,5,6..10]) and (QryLisMiembros.FieldByName('nestatus').asstring<>'ACTIVO') and (QryLisMiembros.FieldByName('fechainicioact').AsDateTime<=IncMonth(fevento,6))))then begin
ShowMessage('No se logro insertar el registro, Verifique que'
+#13#10+'sea Activo con más de 6 meses de antiguedad');
DBGridMiembros.SetFocus;
end else begin
distritofederal:=InputBox('Sistema','Inserte el número de la convención a la cuál pertenece',''); if (que pongo aqui)=distritofederal then begin
try
QryInsert.SQL.Clear; QryInsert.SQL.Add('insert into Acreditados (nombres, appat, apmat, ');
QryInsert.SQL.Add('nEstatus,distritofederal,etc) ');
QryInsert.SQL.Add('values (:nom, :appat, :apmat,');
QryInsert.SQL.Add(':nEstatus,:distritofederal,:etc) ');
QryInsert.ParamByName('distritofederal').AsInteger:=QryLisMiembros.FieldByName('distritofederal').As Integer;