Ver Mensaje Individual
  #3  
Antiguo 23-03-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Mario94.

Código PHP:
...
{
  if (! 
Edit1->Text.IsEmpty()) {
    
TADOQuery *q1 static_cast<TADOQuery*>(ADOQuery1);
    
TADOQuery *q2 static_cast<TADOQuery*>(ADOQuery2);

    
q1->Close();
    
q1->SQL->Text "SELECT MAX(IDGRUPOS) + 1 AS MAXIMO FROM GRUPOS";
    
q1->Open();
    
    
q2->Close();
    
q2->SQL->Text "INSERT INTO GRUPOS (COL_A_INSERTAR_1, COL_A_INSERTAR2) VALUES(:PAR1, :PAR2)"//(*)
    
q2->Parameters->ParamByName("PAR1")->Value q1->FieldByName("MAXIMO")->Value;
    
q2->Parameters->ParamByName("PAR2")->Value Edit1->Text;
    
q2->ExecSQL();

    
q1->Close();
    
q2->Close();
  }
  ...

(*) COL_A_INSERTAR 1 y 2, son los nombres de columnas (campos) donde vas a insertar los datos.

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita