Ver Mensaje Individual
  #1  
Antiguo 23-03-2015
Mario94 Mario94 is offline
Registrado
NULL
 
Registrado: mar 2015
Posts: 8
Reputación: 0
Mario94 Va por buen camino
Una ejecucion que devuelva múltiples resultados

Gracias de antemano por la ayuda.

Tengo ingresar en una BD en Access el id y el grupo pero me esta arrojando: que el proveedor actual no permite una única ejecucion que devuelva múltiples resultados. Como se soluciona?
Este es el código, el id no lo puedo poner de otra forma pues no me corre en Embarcadero C++ 2010, esta es la unica forma en la que corre.
Código Delphi [-]

void __fastcall TForm2::SpeedButton1Click(TObject *Sender)
{
if (!Edit1->Text.IsEmpty())
{
 ADOQuery1->Close();
 ADOQuery1->SQL->Clear();
 String id = "SELECT MAX(IdGrupos) AS Maximo FROM Grupos";
 ADOQuery1->SQL->Add(id);
 ADOQuery1->Open();
 String idincrementado = ADOQuery1->FieldByName("Maximo")->AsInteger + 1 ;
 ADOQuery1->Close();
 ADOQuery2->Close();
 ADOQuery2->SQL->Clear();
 String ingresargrupos = "INSERT INTO Grupos VALUES ('"+idincrementado+"','"+Edit1->Text+"')" ;
 ADOQuery2->SQL->Add(ingresargrupos);
 ADOQuery2->Open();
 ADOQuery2->Close();

}
else
{
String titulo = "ERROR" ;
String mesage = "La casilla grupo se encuentra vacia" ;
Application->MessageBoxA(mesage.c_str(),titulo.c_str(),MB_ICONERROR);
}
}
Responder Con Cita