mish_k98

здравствуйте.помогите составить код.есть база даных.требуется найти определённые строки по ключевому слову и всю строку добавить в stringgrid.но дело в том что колличество и расположение строк определяестя поиском.вот часть кода
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString al=LabeledEdit1->Text;
AnsiString bl;
AnsiString ap=LabeledEdit2->Text;
AnsiString bp;
ADOTable1->First();
bool legal=false;
ADOTable1->First();
for (int i=0;i<ADOTable1->RecordCount;i++)
{
bl=ADOTable1->FieldByName("Товар")->AsString;
bp=ADOTable1->FieldByName("Поставщик")->AsString;
if ((al==bl) || (ap==bp)){ legal = true;
Ini->WriteString("Поиск","Код",ADOTable1->FieldByName("Код")->AsString);
Ini->WriteString("Поиск","Товар",ADOTable1->FieldByName("Товар")->AsString);
Ini->WriteString("Поиск","Дата",ADOTable1->FieldByName("Дата")->AsString);
Ini->WriteString("Поиск","Цена",ADOTable1->FieldByName("Цена")->AsString);
Ini->WriteString("Поиск","Поставщик",ADOTable1->FieldByName("Поставщик")->AsString);
Ini->WriteString("Поиск","Количество",ADOTable1->FieldByName("Количество")->AsString);
Ini->WriteString("Поиск","Сумма",ADOTable1->FieldByName("Сумма")->AsString);



}
ADOTable1->Next();
}
if (!legal)// ShowMessage("Нету!");
MessageDlg("Нету!", mtInformation, TMsgDlgButtons()<<mbOK,0);
else {

ShowMessage("есть!");
ShellExecute(0, "open", "search_p.ini", 0, "HTML", SW_SHOWNORMAL);


}
}
на даном этапе я просто записываю последнюю найденую строку в файл.а их может быть несколько.помогите разобраться

kreol

Я с ADO совсем не работал, но там же, вроде можно выполнить свой sql? Выбрать все нужные данные и записать куда нужно...

mish_k98

я с sql пока не умею работать.помогите,знающие люди

mish_k98

вот мой вариант, но так не работает
Form11->StringGrid1->Rows[i]->Values=ADOTable1->Fields->Fields[i]->Value;

mish_k98

где ошибка????

mish_k98

помогите, люди добрые

mish_k98

прошу помощи

kreol

остался один экзамен, в пятницу. смогу помочь только после него...

mish_k98

ок.буду ждать

grelly

дык ты указателю на массив значений пытаешься значение присвоить) индекс значения в стринггриде укажи