mormot2 笔记(五) 储存过程调用

合集 - mormot2(5)

1.mormot2 笔记(二) Http服务的简单搭建2023-08-172.先作个记录，后面再研究为什么2023-08-223.mormot2笔记(一) 连接数据库2023-08-154.mormot2 笔记(三) 实体转JSON2023-08-25

5.mormot2 笔记(五) 储存过程调用2024-01-07

收起

procedure TForm1.Button1Click(Sender: TObject);
var
  v: variant;
begin
{
[ODBC]
DRIVER=SQL Server   会报错
DRIVER=ODBC Driver 18 for SQL Server   没问题
}
  dbProp := TSqlDBOdbcConnectionProperties.Create('', 'FILEDSN=d:\test.dsn;PWD=Sa12345', '', '');
//  var stmt := dbProp.NewThreadSafeStatementPrepared('{? = call p_test (?,?) }', true, false);  第一个参数是返回值。
  var stmt := dbProp.NewThreadSafeStatementPrepared('exec p_test ?,?', true, false);  //无返回值
  stmt.BindTextU(1, 'jjw', paramIn);
  stmt.Bind(2, 9, paramOut);
  stmt.ExecutePrepared;
  stmt.ParamToVariant(2, v);
  Caption := V;
end;

ALTER proc [dbo].[p_test]
@name varchar(10),
@insId bigint output
as
begin
    SET NOCOUNT ON  --关键
    insert into test(name) values(@name)
    select @insId = @@IDENTITY
    return 0
end
GO