пишем ....

//**************************************************************************
Query->SQL->Add("INSERT INTO '" + BasePath + "' (P_N, DESCR) VALUES (:PN,:DSCR) ");
Query->Prepare();
//***** ùå÷÷åãè *******
int Counter = 0;
//**********************
do
{
Query -> ParamByName("PN")->AsString = PN -> Strings[Counter];
Query -> ParamByName("DSCR")->AsBlob = DESCR -> Strings[Counter ++ ];
Query->ExecSQL();
}
while (!(Counter == PN -> Count));


читаем ...

//***********************************
if (!(SStr == ""))
{
char * Buffer = new char[32];
int RecCounter = 0;
int RecLim = 0;

EQuery -> SQL -> Add("SELECT P_N, DESCR FROM '" + BasePath + "' WHERE P_N LIKE '"+ SStr +"%'");
EQuery -> Prepare();
EQuery -> ExecSQL();
EQuery -> Open();
RecLim = EQuery -> RecordCount;
if (RecLim != 0)
{
do
{
EQuery -> GetFieldData(1, Buffer);
RezList -> Add(Buffer);
EQuery -> Next();
RecCounter ++ ;
}
while(RecCounter != RecLim);
}
EQuery -> Close();
EQuery -> SQL -> Clear();
delete Buffer;
return true;
}