[Ekler1]

Может кто кодом поделится (если есть, конечно )
У меня в одной базе данных (Access) две таблицы, они одинаковые отображаются в dbgrid1 и dbgrid2 в первом гриде данные заполняются, в второй грид надо переносить записи из первого которые уже не нужны, ну тоесть из таблицы 1 в таблицу 2 по кнопке

[NumLock]

Use Append/Post на втором наборе.

[Ekler1]

Код:

procedure TForm2.Button3Click(Sender: TObject);
begin
try
form2.ADOQuery2.SQL.Clear;
form2.ADOQuery2.SQL.Add('INSERT INTO zakazKLGOTOV SELECT * FROM ZakazKL');
form2.ADOQuery2.ExecSQL;
form2.ADOQuery1.SQL.Clear;
form2.ADOQuery1.SQL.Add('SELECT * FROM ZakazKLGOTOV');
form2.ADOQuery1.Active:=True;
except
on e:Exception do
end;

Нашел вот такой способ,под себя подправил, по описанию для чего - подходит. Вот только не работает(

[Ekler1]

Может кто поможет сделать это все без SQL, сил шарить просторы интернета уже нету(

[Alegun]

Оффтоп:

А чем помочь-то, когда задача не ясна, один туман: перенести запись из одной таблицы в другую целиком или отдельные значения ячеек, непонятки, нужен образец требуемого действия

[lmikle]

Ну, например так:

Код:

ADOQuery2.Append;
For I := 0 To ADOQuery1.Fields.Count-1 Do
  ADOQuery2.Fields[i].Value := ADOQuery1.Fields[i].Value;
ADOQuery2.Post;

Это если кол-во и порядок полей одинаков и нет BLOB полей + надо сделать ADOQuery2 редактируемым. Если хоть одно условие не выполняется, то надо больше информации. Что-то всегда можно придумать.

[Ekler1]

Сообщение от lmikle

Ну, например так:

Код:

ADOQuery2.Append;
For I := 0 To ADOQuery1.Fields.Count-1 Do
  ADOQuery2.Fields[i].Value := ADOQuery1.Fields[i].Value;
ADOQuery2.Post;

Это если кол-во и порядок полей одинаков и нет BLOB полей + надо сделать ADOQuery2 редактируемым. Если хоть одно условие не выполняется, то надо больше информации. Что-то всегда можно придумать.

Пытаюсь с твоим кодом выдает компилятор:
[dcc32 Error] Unit2.pas(76): E2003 Undeclared identifier: 'I'

Код:

procedure TForm2.Button3Click(Sender: TObject);
begin
form11.ADOQuery1.Append;
For I := 0 To form2.ADOQuery1.Fields.Count-1 Do
  form11.ADOQuery1.Fields[i].Value := form2.ADOQuery1.Fields[i].Value;
form11.ADOQuery1.Post;
end;

Что я не так наделал?

[NumLock]

У..у, man...

var I: Integer;

[Ekler1]

Сообщение от NumLock

У..у, man...

var I: Integer;

уже попробывал так, компилятор работает, но когда выделяешь запись и нажимаешь на кнопку перенести появляется окно "Field 'Код' cannot be modified" Что ему там не нравится? (Поле код - счетчик)

[NumLock]

Ну "Undeclared identifier" то исчез А поле всегда можно исключить внутри цикла.

[Ekler1]

Сообщение от NumLock

Ну "Undeclared identifier" то исчез А поле всегда можно исключить внутри цикла.

Код:

procedure TForm2.Button3Click(Sender: TObject);
var I:integer;
begin
form11.ADOQuery1.Append;
For I := 0 To form2.ADOQuery1.Fields.Count-1 Do
  form11.ADOQuery1.Fields[i].Value := form2.ADOQuery1.Fields[i].Value;
form2.adoquery1.delete;
fieldbyname('Код').value:=Fields[i]
form11.ADOQuery1.Post;
end;

Так надо код подредактировать?

[NumLock]

Применить условный оператор if.

[Ekler1]

Сообщение от NumLock

Применить условный оператор if.

как его правильно написать под этот код?

Код:

procedure TForm2.Button3Click(Sender: TObject);
var I:integer;
begin
form11.ADOQuery1.Append;
For I := 0 To form2.ADOQuery1.Fields.Count-1 Do
  form11.ADOQuery1.Fields[i].Value := form2.ADOQuery1.Fields[i].Value;
form11.ADOQuery1.Post;
end;

я уже всю голову себе сломал(

[lmikle]

Сообщение от Ekler1

как его правильно написать под этот код?
...
я уже всю голову себе сломал(

Код:

procedure TForm2.Button3Click(Sender: TObject);
var I:integer;
begin
form11.ADOQuery1.Append;
For I := 0 To form2.ADOQuery1.Fields.Count-1 Do
  if form11.ADOQuery1.Fields[i].FieldName <> 'Код' Then
    form11.ADOQuery1.Fields[i].Value := form2.ADOQuery1.Fields[i].Value;
form11.ADOQuery1.Post;
end;

PS. Может все-таки книжку какую умную почитать сначала, а потом уже программировать?

[Ekler1]

Сообщение от lmikle

Код:

procedure TForm2.Button3Click(Sender: TObject);
var I:integer;
begin
form11.ADOQuery1.Append;
For I := 0 To form2.ADOQuery1.Fields.Count-1 Do
  if form11.ADOQuery1.Fields[i].FieldName <> 'Код' Then
    form11.ADOQuery1.Fields[i].Value := form2.ADOQuery1.Fields[i].Value;
form11.ADOQuery1.Post;
end;

PS. Может все-таки книжку какую умную почитать сначала, а потом уже программировать?

Спасибо, работает на ура! Только почему-то строка копируется из таблицы 1 в таблицу 2, было бы не плохо если бы удалялась из первой таблицы
P.S. Книги начал читать)