[Captain]

Это пример для вызова хранимой процедуры.

GLOBAL
adoCmd Automation 'Microsoft ActiveX Data Objects 2.8 Library'.Command
adoRst Automation Microsoft ActiveX Data Objects 2.8 Library'.Recordset
adoCn Automation 'Microsoft ActiveX Data Objects 2.8 Library'.Connection


CREATE (adoCn);
strConnection:='driver={SQL Server};server=mysqlserver;uid=my_user;'+
'pwd=user_pass;database=myDB';
adoCn.ConnectionString:=strConnection;
adoCn.Open;

CREATE(adoCmd);
adoCmd.ActiveConnection :=strConnection;
adoCmd.CommandTimeout := 20;
adoCmd.CommandType := 4; //adCmdStoredProc
strCommand:='SP_MyProcedura';
adoCmd.CommandText :=strCommand;



adoCmd.Parameters.Refresh;
adoCmd.Parameters.Item(1).Value := "CustomerNo.";
adoCmd.Parameters.Item(2).Value := BeginDate;
adoCmd.Parameters.Item(3).Value := EndDate;
adoRst := adoCmd.Execute;


CLEAR(adoRst);
CLEAR(adoCmd);
CLEAR(adoCn);