Selamlar
MS SQL Server üzerinde yazılmış bir StoreProcedure üzerinden 1 den fazla dataset döndüğünde bunların delphi tarafından kullanılması için bir çalışma yapıyordum.*
Belki birilerininde ihtiyacı olur diye paylaşmak istedim.
Malum çoğumuz 1*StoreProcedure 1 Dataset*döndürür şeklinde düşünüyor olabiliriz. Fakat MS SQL üzerinde 1 den fazla dataset döndüğünde bunların herbiri delphi tarafından ayrı ayrı kullanılabilmektedir.
Önce merak edenler için başlangıç liklerini paylaşaym detaylarına merak edenler burdan başlıyabiirler.
unit Unit1;
interface
uses
* Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
* Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.StdCtrls;
type
* TForm1 = class(TForm)
* * ADOQuery1: TADOQuery;
* * Button1: TButton;
* * procedure Button1Click(Sender: TObject);
* private
* * procedure prc_NextRecordsets;
* * { Private declarations }
* public
* * { Public declarations }
* end;
var
* Form1: TForm1;
* iRecordSet: Integer;
implementation
{$R *.dfm}
procedure TForm1.prc_NextRecordsets;
begin
* ADOQuery1.Recordset := ADOQuery1.NextRecordset(iRecordSet);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
* prc_NextRecordsets;
end;
end.
MS SQL Server üzerinde yazılmış bir StoreProcedure üzerinden 1 den fazla dataset döndüğünde bunların delphi tarafından kullanılması için bir çalışma yapıyordum.*
Belki birilerininde ihtiyacı olur diye paylaşmak istedim.
Malum çoğumuz 1*StoreProcedure 1 Dataset*döndürür şeklinde düşünüyor olabiliriz. Fakat MS SQL üzerinde 1 den fazla dataset döndüğünde bunların herbiri delphi tarafından ayrı ayrı kullanılabilmektedir.
Önce merak edenler için başlangıç liklerini paylaşaym detaylarına merak edenler burdan başlıyabiirler.
Misafirler için gizlenen link, görmek için
Giriş yap veya üye ol.
Misafirler için gizlenen link, görmek için
Giriş yap veya üye ol.
unit Unit1;
interface
uses
* Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
* Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.StdCtrls;
type
* TForm1 = class(TForm)
* * ADOQuery1: TADOQuery;
* * Button1: TButton;
* * procedure Button1Click(Sender: TObject);
* private
* * procedure prc_NextRecordsets;
* * { Private declarations }
* public
* * { Public declarations }
* end;
var
* Form1: TForm1;
* iRecordSet: Integer;
implementation
{$R *.dfm}
procedure TForm1.prc_NextRecordsets;
begin
* ADOQuery1.Recordset := ADOQuery1.NextRecordset(iRecordSet);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
* prc_NextRecordsets;
end;
end.