Devart Forum

Код: Выделить всё

MSConnection.Options.Provider := prNativeClient;
MSConnection.Options.NativeClientVersion := nc2008;

Код: Выделить всё

MSConnection.Options.Provider := prSQL;

Код: Выделить всё

unit CoolService;

interface
...
type
  TCoolService = class(TService)
...
  end;
...
initialization
  StartAsyncEventProcessor(True);
end.

Код: Выделить всё

  MSStoredProc.StoredProcName := 'MyProc';
  MSStoredProc.ParamByName('param1').Value := Value;

  for i := 0 to MSStoredProc.ParamCount - 1 do
    if MSStoredProc.Params[i].IsNull then
      MSStoredProc.Params[i].Bound := False;

  MSStoredProc.ExecProc;