Форум программистов [Powered by Invision Power Board]

Код


procedure TForm1.Button5Click(Sender: TObject);
begin
 MySqlADOQuerySelId.Sql.Clear;
 MySqlADOQuerySelId.Sql.Text:='select id_person, id_post_person'
                             +' from tmp_person'
                             +' order by id_person'
                             +' desc limit '
                             +Edit1.Text;
 Memo1.Lines.Add(MySqlADOQuerySelId.Sql.Text);
 MySqlADOQuerySelId.Open;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  OraADOQuery.SQL.Clear;
  OraADOQuery.Open;
    while not MySqlADOQuerySelId.EOF do
 begin
    OraADOQuery.Sql.Text:='insert into epique_insert_person (id_person,id_post_person)'
                         +'values(:id_person,:id_post_person)';
    OraADOQuery.Parameters.ParamByName('id_person').Value:=MySqlADOQuerySelId.Fields[0].AsString;
    OraADOQuery.Parameters.ParamByName('id_post_person').Value:=MySqlADOQuerySelId.Fields[0].AsString;
    OraADOQuery.ExecSQL;
    OraADOQuery.Next;
 end;
end;

Цитата

с ораклом не работал, но можно попробовать перед values пробел поставить,

Цитата

написать - OraADOQuery.Parameters.ParamByName('id_person').AsString

Цитата

и я не уверен, но не могу понять зачем там OraADOQuery.Next;

Код


procedure TForm1.Button5Click(Sender: TObject);
begin
 MySqlADOQuerySelId.Sql.Clear;
 MySqlADOQuerySelId.Sql.Text:='select id_person, id_post_person'
                             +' from tmp_person'
                             +' order by id_person'
                             +' desc limit '
                             +Edit1.Text;
 Memo1.Lines.Add(MySqlADOQuerySelId.Sql.Text);
 MySqlADOQuerySelId.Open;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
  OraADOQuery.SQL.Clear;
  OraADOQuery.Open; //открываем запрос  зачем????
    while not MySqlADOQuerySelId.EOF do
 begin
    OraADOQuery.Sql.Text:='insert into epique_insert_person (id_person,id_post_person) values(:id_person,:id_post_person)';
    OraADOQuery.Parameters.ParseSQL(SQL.Text, True); //заставляем запрос разобрать параметры
    OraADOQuery.Parameters.ParamByName('id_person').Value:=MySqlADOQuerySelId.Fields[0].AsString;
    OraADOQuery.Parameters.ParamByName('id_post_person').Value:=MySqlADOQuerySelId.Fields[0].AsString;
    try  //здесь вставляем обработку ошибок и стартуем транзакцию
         OraADOQuery.Connection.BeginTrans;
         OraADOQuery.ExecSQL;
         OraADOQuery.Connection.CommitTrans; //здесь закрываем. Если конечно надо каждую запись фиксировать в базе оракуль, если не все то BeginTrans и CommitTrans ставим вначале и конце процедуры, но только если записей очень много можно получить переполнение Rollback экстента в ОРАКЛЕ.
    except
        on E:EADOError do
                 ShowMessage(E.Message);
    end;    
    MySqlADOQuerySelId.Next;  //вот здесь была ошибка нужно  бежим то по запросу к MySQL а не к ORACLE
 end;
end;

Код


    end;    
    MySqlADOQuerySelId.Next;  //вот здесь была ошибка нужно  бежим то по запросу к MySQL а не к ORACLE
 end;
end;