переход на последнию запись в таблице

nIKab

Как сделать переход на последнию запись в таблице?

Lex

Для чего это нужно?
Если для того чтобы пропустить часть
записей при печате отчета то примерно так:

   if bla-bla-bla then
    while not MasterBand1.DataSet.Eof do
      MasterBand1.DataSet.Next

Но лучше все же объясни для чего тебе это надо.

nIKab

Lex написал:

Но лучше все же объясни для чего тебе это надо.

Есть база в которую постоянно добавляют записи, надо отчет формировать по последней! т.е по последниму номеру!

Andrew_Sh

nIKab написал:

nIKab написал:

Но лучше все же объясни для чего тебе это надо.

Есть база в которую постоянно добавляют записи, надо отчет формировать по последней! т.е по последниму номеру!

Выбирайте запросом запись с максимальным номером.

SELECT * 
   FROM tableName
 WHERE id=(SELECT MAX(id) FROM tableName);

nIKab

Andrew_Sh написал:

Выбирайте запросом запись с максимальным номером.

SELECT * 
   FROM tableName
 WHERE id=(SELECT MAX(id) FROM tableName);

У меня в таблице есть поле номер квитанции вот и надо сделать переход к этой записи и формировать отчет!!!

Lex

Ну так и формируй отчет всего по одной записи полученный запросом

SELECT * 
  FROM tableName
WHERE NomerKvitancii = :NomerKvitancii

:NomerKvitancii - параметр TADOQuery который нужно задавать перед запуском отчета (точно не помню, но вроде в DBE - ной Query параметры задаються также) и все.

nIKab

у меня есть:
1. Edit1 поле в котором задаётся номер квитанции
2. Button1 после клика должен формироваться отчёт.
И если можно по подробней

nIKab

Lex написал:

Ну так и формируй отчет всего по одной записи полученный запросом

SELECT * 
  FROM tableName
WHERE NomerKvitancii = :NomerKvitancii

:NomerKvitancii - параметр TADOQuery который нужно задавать перед запуском отчета (точно не помню, но вроде в DBE - ной Query параметры задаються также) и все.

Работает спасибо!

Lex

1. Тебе нужно иметь на форме компонент типа TQuery
в нем пишешь следующий текст запроса (свойство SQL)

Select * 
  From tableName
Where FieldName = :myParam

tableName - имя таблицы в базе данных
FieldName - поле в котором храниьтся номер квитанции

2. У frxDBDataset в свойстве DataSet указываешь свой компонет типа TQuery (Например MyQuery).

3. При клике на кнопке пишешь примерно такой обработчик

MyQuery.Close;
MyQuery.Params.ParamByName('myParam').Value := MyEdit.Text;
MyQuery.Open;
frxReport.PrepareReport;
frxReport.ShowPreparedReport;

Ну как бы и все

nIKab

Lex написал:

1. Тебе нужно иметь на форме компонент типа TQuery
в нем пишешь следующий текст запроса (свойство SQL)

Select * 
  From tableName
Where FieldName = :myParam

tableName - имя таблицы в базе данных
FieldName - поле в котором храниьтся номер квитанции

2. У frxDBDataset в свойстве DataSet указываешь свой компонет типа TQuery (Например MyQuery).

3. При клике на кнопке пишешь примерно такой обработчик

MyQuery.Close;
MyQuery.Params.ParamByName('myParam').Value := MyEdit.Text;
MyQuery.Open;
frxReport.PrepareReport;
frxReport.ShowPreparedReport;

Ну как бы и все

Вылетает с ошибкой: class EDBEngineError with message 'General SQL error. Maximum user count exceeded.'

nIKab

nIKab написал:

nIKab написал:

1. Тебе нужно иметь на форме компонент типа TQuery
в нем пишешь следующий текст запроса (свойство SQL)

Select * 
  From tableName
Where FieldName = :myParam

tableName - имя таблицы в базе данных
FieldName - поле в котором храниьтся номер квитанции

2. У frxDBDataset в свойстве DataSet указываешь свой компонет типа TQuery (Например MyQuery).

3. При клике на кнопке пишешь примерно такой обработчик

MyQuery.Close;
MyQuery.Params.ParamByName('myParam').Value := MyEdit.Text;
MyQuery.Open;
frxReport.PrepareReport;
frxReport.ShowPreparedReport;

Ну как бы и все

Вылетает с ошибкой: class EDBEngineError with message 'General SQL error. Maximum user count exceeded.'

Всё!! но фрмирует отчёт всё равно по первой записи

-=Serg=-

frDataSet.RangeBegin = rbCurent;
frDataSet.RangeEnd = reCurent;
MyQuery.Close;
MyQuery.Params.ParamByName('myParam').Value := MyEdit.Text;
MyQuery.Open;
MyQuery.Last;
frxReport.PrepareReport;
frxReport.ShowPreparedReport;

nIKab

написал:

frDataSet.RangeBegin = rbCurent;
frDataSet.RangeEnd = reCurent;
MyQuery.Close;
MyQuery.Params.ParamByName('myParam').Value := MyEdit.Text;
MyQuery.Open;
MyQuery.Last;
frxReport.PrepareReport;
frxReport.ShowPreparedReport;

frDataSet где взять?

nIKab

nIKab написал:

nIKab написал:

frDataSet.RangeBegin = rbCurent;
frDataSet.RangeEnd = reCurent;
MyQuery.Close;
MyQuery.Params.ParamByName('myParam').Value := MyEdit.Text;
MyQuery.Open;
MyQuery.Last;
frxReport.PrepareReport;
frxReport.ShowPreparedReport;

всё равно по последней!

-=Serg=-

А тебе чего надо? Просил же по последней...

nIKab

написал:

А тебе чего надо? Просил же по последней...

сори ошибочка по последней!

nIKab

Всё рвботает всем спасибо!