работа с Access

[One.Love]

Люди подскажите пожалуйста как в акцесовской базе данных на Delphi перенести допустим последнюю строчку на первое место или наоборот если можно киньте пожалуйста код. Заранее благодарен -)

[D-mon]

Может и некрасиво, а может есть вариант попроще, но я сделал так:

procedure TForm2.Button2Click(Sender: TObject);
var str,str1:string;
    i:integer;
begin
 ADOTable1.First;
 for i:=1 to ADOTable1.FieldCount-1 do
  begin
   str:=str+ADOTable1.Fields[i].AsString+#13
  end;
 ADOTable1.Last;
 for i:=1 to ADOTable1.FieldCount-1 do
  begin
   str1:=str1+ADOTable1.Fields[i].AsString+#13
  end;

 ADOTable1.First;
 ADOTable1.Edit;
 for i:=1 to ADOTable1.FieldCount-1 do
  begin
   ADOTable1.Fields[i].Value:=copy(str1,1,pos(#13,str1)-1); delete(str1,1,pos(#13,str1));
  end;
 ADOTable1.Post;

 ADOTable1.Last;
 ADOTable1.Edit;
 for i:=1 to ADOTable1.FieldCount-1 do
  begin
   ADOTable1.Fields[i].Value:=copy(str,1,pos(#13,str)-1);
   if(copy(str,1,pos(#13,str)-1)='')then ADOTable1.Fields[i].Value:='';
   delete(str,1,pos(#13,str));
  end;
 ADOTable1.Post;
end;

И смотри внимательно с автозаполняемыми полями, их поменять не получиться, будет ругаться Делфа.

А кому не понравился код, сделайте лутше, я тоже поучусь...

[Stilet]

Люди подскажите пожалуйста как в акцесовской базе данных на Delphi перенести допустим последнюю строчку на первое место

Ох некузявая идея...
Я в свое время так же сыкнулся, потом понял что вместо физических переносов нужно сделать поле идентификатора строки (автоинкремент подходил для этого идеально) потом просто менять этот ID местами, а отбор делать именно по этим ID. Создается впечатление переноса, но надежность повышается.
ИМХО, все поля записи вот так переносить не лучший вариант... А если там ченить типа МЕМО?

[Domovoy]

Играйся с первичным ключом
Вот небольшой пример:

create table #temp(id int primary key,name varchar(10))
go
insert into #temp values(1,'a')
insert into #temp values(2,'b')
insert into #temp values(3,'c')
go
select * from #temp
go
update #temp 
set id=(select max(id)+1 from #temp) 
where id=(select min(id) from #temp)
go
select * from #temp

[One.Love]

ADOTable1.Fields[i].Value:=copy(str1,1,pos(#13,str1)-1); delete(str1,1,pos(#13,str1));

на эту строчку ругается.
У меня поля: Позывной(числовой), машина(текстовый), номер(числовой) и статус(текстовый).

Domovoy
это SQL а мне надо Access (я с SQL ниразу не работал и не умею )

[D-mon]

Сообщение от One.Love

ADOTable1.Fields[i].Value:=copy(str1,1,pos(#13,str1)-1); delete(str1,1,pos(#13,str1));

на эту строчку ругается.
У меня поля: Позывной(числовой), машина(текстовый), номер(числовой) и статус(текстовый).

Что пишит??? У меня всё нормально отрабатывает... И тоже были разного формата и текстовые и числовые. Посмотри, я писал

И смотри внимательно с автозаполняемыми полями, их поменять не получиться, будет ругаться Делфа.

[One.Love]

Я построил свой алгоритм перемещения вообще он выглядит так:

procedure TForm1.Button1Click(Sender: TObject);
begin
with ADOTable1 do
begin
First;
if ADOTable1.FieldByName('Статус').AsString='Свободен' then
begin
Edit;
FieldByName('Статус').AsString:='Заказ';
label1.Caption:=inttostr(FieldByName('Позывной').AsInteger);
label2.Caption:=FieldByName('Машина').AsString;
label3.Caption:=inttostr(FieldByName('Номер').AsInteger);
label4.Caption:=FieldByName('Статус').AsString;
Delete;
Append;
Insert;
FieldByName('Позывной').AsInteger:=strtoint(Label1.Caption);
FieldByName('Машина').AsString:=Label2.Caption;
FieldByName('Номер').AsInteger:=strtoint(Label3.Caption);
FieldByName('Статус').AsString:=Label4.Caption;
Post;
end else begin
if (ADOTable1.FieldByName('Статус').AsString='Занят') or (ADOTable1.FieldByName('Статус').AsString='Заказ') then
begin
Timer1.Enabled:=True;
end;
end;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
with ADOTable1 do
begin
if (FieldByName('Статус').AsString='Свободен') then
begin
Edit;
FieldByName('Статус').AsString:='Заказ';
label1.Caption:=inttostr(FieldByName('Позывной').AsInteger);
label2.Caption:=FieldByName('Машина').AsString;
label3.Caption:=inttostr(FieldByName('Номер').AsInteger);
label4.Caption:=FieldByName('Статус').AsString;
Delete;
Append;
Insert;
FieldByName('Позывной').AsInteger:=strtoint(Label1.Caption);
FieldByName('Машина').AsString:=Label2.Caption;
FieldByName('Номер').AsInteger:=strtoint(Label3.Caption);
FieldByName('Статус').AsString:=Label4.Caption;
Post;
Timer1.Enabled:=False;
First;
end else begin
Next;
if (RecNo=RecordCount) and ((FieldByName('Статус').AsString='Занят') or (FieldByName('Статус').AsString='Заказ')) then
begin
Timer1.Enabled:=False;
First;
end;

end;
end;
end;

Но я буду переписывать все данные на переменные.
Не помню уже что писал, да и смотреть впринцыпе не буду уже, долго разбираться, посмотрел ваши предложения и вывел свою формулу решения проблемы. Кстате подскажите какой вариант лучше, удобней, компактней? Чтобы программа сильно не грузила ресурсы компьютера