Club Builder

[Niteman]

Hola al foro.
Tengo una base de datos con dos tablas T1 y T2. Accedo a ellas mediante dos querys y las relaciono de manera maestro-detalle. Los campos ID son numericos (no autonumericos) por lo que tengo que calcularlos cada vez que quiero añadir un nuevo registro en la T2.
Tengo un tercer query para calcular el maximo id. Ejemplo="SELECT MAX(ID_T2) AS Maximo FROM T2". Incremento en uno este valor maximo y ejecuto la nueva sentencia INSERT.
La cuestion es que la consulta no me da el valor maximo absoluto de toda la tabla sino el relativo al dato maestro seleccionado.
Como puedo conocer el maximo absoluto??

Salu2.

[ikis]

Es interesante tu consulta, no me había pasado, nunca.

En tu consulta para obtener el máximo

¿T2 es el nombre de la tabla 2 o del query asociado?

Otra sugerencia es que desactives el query con la relación previo a realizar el query para obtener el valor máximo.

[Invitado]

Ya he encontrado el problema. Resulta que para saber el valor max. utilizo esta funcio:

int TFrmControlSMD::MaxID(void)
{
int maxid;
if(!MDatos->QControlSMD->IsEmpty())
{
AnsiString sentencia=MDatos->SentenciaSQL("maxidcontrolsmd");
MDatos->QConsulta->SQL->Clear();
MDatos->QConsulta->SQL->Add(sentencia);
MDatos->QConsulta->ExecSQL();
MDatos->QConsulta->Active=true;
maxid=MDatos->QConsulta->FieldValues["Maximo"];
MDatos->QConsulta->Active=false;
}
else
maxid=0;
return maxid;

}

Resulta que si el registro maestro no tiene datos detalle me devuelve maxid=0 porque IsEmpty()=true (logicamente) para ese reistro;
Si le quito la comprobación funciona bien, pero esta comprobación la hago para que no me falle la consulta en el caso de que la tabla detalle esté completamente vacia (sin ningun registro).
Como puedo hacer para quitar la comprobación IsEmpty() y a la vez no me de ningún error en el caso de la tabla detalle vacia??

Salu2.

[TOÑO]

HOLA:

Como yo lo haria.


void __fastcall TForm1::Table1NewRecord(TDataSet *DataSet)
{
DataSet ->FieldByName("ID") ->AsInteger = MaxId();
}
//---------------------------------------------------------------------------
int __fastcall TForm1::MaxId()
{

QU3 ->Close();
QU3 ->SQL ->Clear();
QU3 ->SQL ->Add("SELECT MAX(ID) AS TOTAL FROM T2");
QU3 ->SQL ->Open()
if (QU3 ->IsEmpty())
return 1;
else
return QU3 ->FieldByName("TOTAL") ->AsInteger + 1;

}



By.