помогите с запросом
Код:
select * from GET_TARIF(1,'01.01.1000','NOW')
Как сделать, чтоб 1 получать из edit.
Код:
{
int IRowM=1;
dmOne->ClearGrid(sgTarif);
sgTarif->ColCount=2;
sgTarif->Cells[0][0]="Дата";
sgTarif->Cells[1][0]="Тариф";
int NOM=StrToInt(edNom->Text);
dmOne->IBQTwo->SQL->Text="select * from GET_TARIF(:NOM,'01.01.1000','NOW') ";
dmOne->IBQOne->ParamByName("NOM")->Value=NOM;
dmOne->IBQTwo->Prepare();
dmOne->IBQTwo->Active=true;
while (!dmOne->IBQTwo->Eof) {
sgTarif->Cells[0][IRowM]=dmOne->IBQTwo->FieldByName("DAT_TARIF")->AsString;
sgTarif->Cells[1][IRowM]=dmOne->IBQTwo->FieldByName("NAIM_TR")->AsString;
dmOne->IBQTwo->Next();
IRowM++;
}
dmOne->IBQTwo->Close();
}
int IRowM=1;
dmOne->ClearGrid(sgTarif);
sgTarif->ColCount=2;
sgTarif->Cells[0][0]="Дата";
sgTarif->Cells[1][0]="Тариф";
int NOM=StrToInt(edNom->Text);
dmOne->IBQTwo->SQL->Text="select * from GET_TARIF(:NOM,'01.01.1000','NOW') ";
dmOne->IBQOne->ParamByName("NOM")->Value=NOM;
dmOne->IBQTwo->Prepare();
dmOne->IBQTwo->Active=true;
while (!dmOne->IBQTwo->Eof) {
sgTarif->Cells[0][IRowM]=dmOne->IBQTwo->FieldByName("DAT_TARIF")->AsString;
sgTarif->Cells[1][IRowM]=dmOne->IBQTwo->FieldByName("NAIM_TR")->AsString;
dmOne->IBQTwo->Next();
IRowM++;
}
dmOne->IBQTwo->Close();
}
int NOM=StrToInt(edNom->Text);- получаем 1
dmOne->IBQOne->ParamByName("NOM")->Value=NOM;- также 1
Здесь какая то загвоздка с :NOM
Код:
dmOne->IBQTwo->ParamByName("NOM")->Value=NOM;
Теперь другая проблемка, не получает следующую строку из таблицы, по циклу бегает, но выводит только первую строку из таблицы.
Бесконечно бегает что ли?
А сколько всего должно быть столбцов?