Ограничение количества записей полученных из .dbf

@Pahan_AA · Регистрация: 26.07.2007

Студворк — интернет-сервис помощи студентам

Как ограничить кол-во записей, возвращаемых запросом? Top <x> не помогает так как без ORDER BY не работает.

29.07.2007, 23:49

Уточняй условия в предложении WHERE

@Pahan_AA · 30.07.2007, 10:19 **[ТС]**

В общем, задачка следующая - есть запрос типа
SELECT * FROM TABLE
этот запрос возвращает несколько сотен тысяч записей (табличка большая), а нужен он просто для просмотра первых строк этой таблицы. Стандартные средства, которые описаны выше, а также
SET ROWCOUNT
rs.maxrecords
не работают, а без ограничения приходится ждать до нескольких минут. Что посоветуете?

17.08.2007, 16:49

Возьми, к примеру, первые 10 записей:
sele * from tabname where recno()<11

21.08.2007, 14:49

Из какой базы запрос? В MS SQL можно так:
select top 100 * from tablename

@nvoynov · 25.08.2007, 11:16

если используешь BDE сделай так:
{
Copyright © 1998 by Delphi 4 Developer's Guide - Xavier Pacheco and Steve Teixeira
}
unit ResQuery;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
DB, DBTables, BDE;

type
TRestrictedQuery = class(TQuery)
private
FMaxRowCount: Longint;
protected
procedure PrepareCursor; override;
published
property MaxRowCount: Longint read FMaxRowCount write FMaxRowCount;
end;

implementation

procedure TRestrictedQuery.PrepareCursor;
begin
inherited PrepareCursor;
if FMaxRowCount > 0 then
begin
Check(DbiValidateProp(hDBIObj(Handle), curMAXROWS, True));
Check(DbiSetProp(hDBIObj(Handle), curMAXROWS, FMaxRowCount));
end;
end;

end.

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@Pahan_AA 0 / 0 / 0 Регистрация: 26.07.2007 Сообщений: 19

	Ограничение количества записей полученных из .dbf 29.07.2007, 21:53. Показов 2218. Ответов 5 Метки нет (Все метки) Как ограничить кол-во записей, возвращаемых запросом? Top <x> не помогает так как без ORDER BY не работает. 0

Bear
	29.07.2007, 23:49
	Уточняй условия в предложении WHERE

@Pahan_AA 0 / 0 / 0 Регистрация: 26.07.2007 Сообщений: 19
	30.07.2007, 10:19 [ТС]
	В общем, задачка следующая - есть запрос типа SELECT * FROM TABLE этот запрос возвращает несколько сотен тысяч записей (табличка большая), а нужен он просто для просмотра первых строк этой таблицы. Стандартные средства, которые описаны выше, а также SET ROWCOUNT rs.maxrecords не работают, а без ограничения приходится ждать до нескольких минут. Что посоветуете? 0

Идальго
	17.08.2007, 16:49
	Возьми, к примеру, первые 10 записей: sele * from tabname where recno()<11

Dragon
	21.08.2007, 14:49
	Из какой базы запрос? В MS SQL можно так: select top 100 * from tablename

@nvoynov 0 / 0 / 0 Регистрация: 24.08.2007 Сообщений: 5
	25.08.2007, 11:16
	если используешь BDE сделай так: { Copyright © 1998 by Delphi 4 Developer's Guide - Xavier Pacheco and Steve Teixeira } unit ResQuery; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTables, BDE; type TRestrictedQuery = class(TQuery) private FMaxRowCount: Longint; protected procedure PrepareCursor; override; published property MaxRowCount: Longint read FMaxRowCount write FMaxRowCount; end; implementation procedure TRestrictedQuery.PrepareCursor; begin inherited PrepareCursor; if FMaxRowCount > 0 then begin Check(DbiValidateProp(hDBIObj(Handle), curMAXROWS, True)); Check(DbiSetProp(hDBIObj(Handle), curMAXROWS, FMaxRowCount)); end; end; end. 0