AndreyAGSoft |
Отправлено: 10.07.2003, 08:16 |
|
Ученик-кочегар
Группа: Участник
Сообщений: 14
|
Может кто подскажет где ошибка(Сообщение-"Слишком мало параметров. Требуетс я 2")
TADOQuery *A=new TADOQuery(this);
A->Connection=Connection;//Connection -определён.
A->ParamCheck=false;
if(A->Parameters->Count<2)
{
TParameter *p=A->Parameters->AddParameter();
p->Name="l";
TParameter *p1=A->Parameters->AddParameter();
p1->Name="l1";
}
A->Parameters->Items[0]->Value=DB;//Дата
A->Parameters->Items[1]->Value=DB1;//дата
A->SQL->Add("select * from datval where num="+IntToStr(DIND/*Зараннее определён*/)+"and date>=:l and date<=:l1");
A->Active=true;
|
|
Nick |
Отправлено: 10.07.2003, 16:52 |
|
Машинист паровоза
Группа: Участник
Сообщений: 247
|
Нужно сначала создать запрос
Потом запонять параметры
A->SQL->Add("select * from datval where num="+IntToStr(DIND/*Зараннее определён*/)+"and date>=:l and date<=:l1");
A->Parameters->Items[0]->Value=DB;//Дата
A->Parameters->Items[1]->Value=DB1;//дата
A->Active=true; |
|