SoloCodigo

Hola

Tengo un problema muy grande en una consulta de SQL.

Resulta que estoy haciendo un programa que haga una consulta que devuelva los datos que hay entre una fecha y otra. La idea es que el usuario ingresa las 2 fechas mediante un DateTimePicker, el problema es que me sale un error y no se como arreglarlo.

Este es el codigo que estoy utilizando

AnsiString consulta;
String fecha1, fecha2;
TDate FechaInicial, FechaFinal;
FechaInicial=fechain->Date;
FechaFinal=fechafin->Date;

Word an, mn, dn;
Word ahoy, mhoy, dhoy ;
DecodeDate(FechaInicial, an, mn, dn);
DecodeDate(FechaFinal, ahoy, mhoy, dhoy);
fecha1= IntToStr(dn) + '.' + IntToStr(mn)+ '.' + IntToStr(an) ;
fecha2= IntToStr(dhoy)+ '.' + IntToStr(mhoy) + '.' + IntToStr(ahoy);
ShowMessage(fecha1);
ShowMessage(fecha2);

consulta = "SELECT * FROM RIPS.db WHERE FechaProced >=fecha1 AND FechaProced <=fecha2 AND CodigoEntidad='EPS016'";
consulta = consulta + "order by FechaProced";
Query1->Close();
Query1->SQL->Clear();
Query1->SQL->Add(consulta);
Query1->Open();

El error es este
'Invalid field name, fecha1'

Porfa si alguien sabe como puedo hacer que me funcione la consulta le agradeceria mucho.

Hola

Yo se que para un TStringGrid hay un evento llamado OnSelectCell el cual hace lo que yo necesito, pero para el DBGrid no existe este evento, como puedo puedo saber a que celda se le hizo click?

Porfa necesito Ayuda!!!

Muchas Gracias!!

Hola!!

Estoy haciendo una agenda con un StringGrid, necesito que en la primera columana esten las horas 7:00, 7:15, 7:30 y asi sucesivamente. Con este código lo unico que he podido es es poner en cada celda los numeros, no se como hacer para que me salga como quiero.

int I, J,K;
StringGrid1->Cells[0][0] = "  Horas";
StringGrid1->Cells[0][1] = "  Nombre";

K = 7;

    for (J = 1; J < StringGrid1->RowCount; J++)
      StringGrid1->Cells[J][0] = IntToStr(++K);

Porfa alguien que me ayude a hacerlo!!

Muchas gracias

Hola

Estoy guardando unos datos en una base de datos. Estoy utilizando un Query

El codigo lo saque de un foro que esta aqui y es el siguiente:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Query1->SQL->Clear();
Query1->SQL->Add("INSERT INTO 'PACIENTES.DB' (Cédula,Nombre,Apellido,Dirección) VALUES(:P1, :P2, :P3, :P4)");
Query1->ParamByName("p1")->AsString = Edit1->Text;
Query1->ParamByName("p2")->AsString = Edit2->Text;
Query1->ParamByName("p3")->AsString = Edit3->Text;
Query1->ParamByName("p4")->AsString = Edit4->Text;
Query1->Prepare();
Query1->ExecSQL();
}

Pero apenas le doy click al boton me sale este error:

Error Insufficient memory for this operation

No se que hacer, por favor necesito ayuda.........

Muchas gracias