Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

30th
Авг

Пример работы Ado с oracle

Posted by Chas under Delphi, Пост-обзор

Stilet
Вот тебе пример работы с АДО в сопроцессе

unit Unit1;
interface
uses    activex,adodb,

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, DB, Grids;
type

  TForm1 = class(TForm)

    StringGrid1: TStringGrid;

    Button1: TButton;

    Button2: TButton;

    ADOTable1: TADOTable;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
    Threda_find = class(TThread)

  public

   StopStop:boolean;

  private     ado:TADOQuery;

    { Private declarations }

  protected

    procedure Execute; override;

  end;
var t:Threda_find;

  Form1: TForm1;
implementation
{$R *.dfm}
{ Threda_find }
procedure Threda_find.Execute;

var i:integer;

begin

  inherited;

  CoInitialize(0); // Инициализируем ActiveX для БД

  ado:=TADOQuery.Create(nil); // Создаем компнент

  // Указываем ему строку подключения - это например для Оракла. Для Сиквела

  // Она будет другой, но смысл остается таким же

  ado.ConnectionString:='Provider=MSDAORA.1;Password=qwerty1234;User ID=ogk5299;Data Source=orant;Persist Security Info=True';

 // Проводим запрос

  ado.SQL.Text:='select * from ois_ready.relcomp where obizdkuda='+QuotedStr('1К660Ф3');

  // И открываем набор

  ado.Open;

  // НУ и дальше с ним чо-то делаем например считываем

  with form1.StringGrid1 do begin

   RowCount:=ado.RecordCount+1;

   ColCount:=ado.Fields.Count+1;

   while (not ado.Eof)and(not StopStop) do begin

    for i:=0 to ado.Fields.Count-1 do begin

     Cells:=ado.Fields.AsString;

    end;

    ado.Next;

   end;

  end;

  ShowMessage('Хватит');

// После освобождаем объект и деинициализируем ActiveX

  ado.Close;ado.Free;

  CoUninitialize;

end;
procedure TForm1.Button1Click(Sender: TObject);
begin

 t:=Threda_find.Create(true);

 t.FreeOnTerminate:=true;

 t.StopStop:=false;

 t.Resume;

end;
procedure TForm1.Button2Click(Sender: TObject);

begin

 if t<>nil then

  t.StopStop:=true;

end;
end.