Люди ! не бросьте в беде!

Модератор: Дед Пахом
Smith
BOB
BOB, ты ясновидящий, что файл MSSQL-ный или MySQL-ный ?BOB писал(а):Ну , на первый вопрос я ответ знаю.
file{prop:sql}='select top 30 * from baza.dbo.file' , а дальше только гуру могут.
WadimZapara
Прмерно вот такSmith писал(а):Люди ! не бросьте в беде!
Код: Выделить всё
PROGRAM
MAP
Process30recordsForward
Process30recordsBackward
END
Demo FILE,DRIVER('Topspeed'),PRE(DEM),CREATE,NAME('c:\demo.tps')
Record RECORD
DemoID LONG
END
END
loc:process byte(0)
loc:cc byte
record:limit equate(2)
CODE
OPEN(Demo)
Process30recordsForward
Process30recordsForward
Process30recordsForward
Process30recordsBackward
Process30recordsBackward
Process30recordsForward procedure
code
if ~loc:process
loc:process=1
set(Demo,1)
end
loop loc:cc = 1 to record:limit
next(Demo)
if errorcode()
set(Demo,records(Demo))
break
end
MESSAGE(Demo.DemoID)
end
Process30recordsBackward procedure
code
if ~loc:process
loc:process=1
set(Demo,records(Demo))
end
loop loc:cc = 1 to record:limit
previous(Demo)
if errorcode()
set(Demo,1)
break
end
MESSAGE(Demo.DemoID)
end
Admin
Код: Выделить всё
BOB, ты ясновидящий, что файл MSSQL-ный или MySQL-ный ?
BOB
Smith
Smith
если есть уникальный ключь работаем по нему, иначе создаём клашину VIEW с уникальным ORDER, далееSmith писал(а):Джентльмены! Если бы ето был какой либо SQL - я ( уж поверьте на слово) так и написал бы.
Родной ТПС ! что может быть лучче?!))
Код: Выделить всё
SET(FILE:KEY)
LOOP 30 TIMES
NEXT(FILE)
IF ERRORCODE() THEN BREAK.
! добавляем в Queue
ADD(Queue:Browse)
END
Код: Выделить всё
GET(Queue:Browse,RECORDS(Queue:Browse))
FILE:Field = BRW1:Field
SET(FILE:KEY,FILE:KEY)
NEXT(FILE)
IF NOT ERRORCODE()
LOOP 30 TIMES
NEXT(FILE)
IF ERRORCODE() THEN BREAK.
! добавляем в Queue
ADD(Browse:Queue)
GET(Queue:Browse,1)
DELETE(Queue:Browse)
END
END
Код: Выделить всё
GET(Queue:Browse,1)
FILE:Field = BRW1:Field
SET(FILE:KEY,FILE:KEY)
PREVIOUS(FILE)
IF NOT ERRORCODE()
LOOP 30 TIMES
PREVIOS(FILE)
IF ERRORCODE() THEN BREAK.
! добавляем в Queue
ADD(Browse:Queue,1)
GET(Queue:Browse,RECORDS(Queue:Browse))
DELETE(Queue:Browse)
END
END
Andrew™
lsgsoftware
Сообщение Алексей- Софт-Центр »
Алексей- Софт-Центр
....хм а форум для чего? Задать вопрос - получить ответ, посмотреть как видят решение похожей проблемы другие, возможно предложат более эффективное решение, почему нет?! Если есть с кем посоветоваться почему бы нет? Я ведь не узнаю у сообщества безграничны ли возможности Клариона или нет, и как добиться "просветления" ....lsgsoftware писал(а): .Так что совет автору поста:
изучай клашу,тренируйся,а успех придет.Возможности клаши безграничны.
Smith
Вернуться в «CLARION for Windows»
Создано на основе phpBB® Forum Software © phpBB Limited
Time: 0.064s | Peak Memory Usage: 1.28 МБ | GZIP: Off