Class TForm1 (unit Sql11) |
Inherits from
TForm
****************************************************************************
Example of using direct api to access MS MSQL server 6.0
(This should also work with 6.5)
Ed Lyk 1997-08-27
All imported functions are in MSSQL16.PAS
procedure BTN_ConnectClick(Sender: TObject);
procedure BTN_Proc2Click(Sender: TObject);
defination of procedure I'm trying to run:
CREATE PROCEDURE MAKEKEYID(@NEWKEY INT OUTPUT) AS
BEGIN
BEGIN TRAN
SELECT @NEWKEY = KEYID FROM DBO.
procedure BTN_QueryClick(Sender: TObject);
free up the dll stuff, important.
procedure BTN_StoredClick(Sender: TObject);
close the connection
procedure FormClose(Sender: TObject; var Action: TCloseAction);
close the connection, frees memory and resources.
BTN_Connect : TButton;
BTN_Proc2 : TButton;
BTN_Query : TButton;
BTN_Stored : TButton;
Label1 : TLabel;
ListBox1 : TListBox;
login : LOGINREC;
Private declarations
procedure BTN_ConnectClick(Sender: TObject);
procedure BTN_Proc2Click(Sender: TObject);
defination of procedure I'm trying to run:
CREATE PROCEDURE MAKEKEYID(@NEWKEY INT OUTPUT) AS
BEGIN
BEGIN TRAN
SELECT @NEWKEY = KEYID FROM DBO.KEYID TABLOCKX
UPDATE DBO.KEYID
SET KEYID = (@NEWKEY + 1)
COMMIT TRAN
END
procedure BTN_QueryClick(Sender: TObject);
free up the dll stuff, important...
procedure BTN_StoredClick(Sender: TObject);
close the connection
procedure FormClose(Sender: TObject; var Action: TCloseAction);
close the connection, frees memory and resources...
BTN_Connect : TButton;
BTN_Proc2 : TButton;
BTN_Query : TButton;
BTN_Stored : TButton;
Label1 : TLabel;
ListBox1 : TListBox;
login : LOGINREC;
Private declarations