mormot數據庫連接+查詢+序列為JSON

uses?SynDB,SynCommons, SynDBRemote, SynOleDB, SynDBMidasVCL, mORMotMidasVCL

procedure TForm1.FormCreate(Sender: TObject);
var
json: RawUTF8;
begin
DataBase := TOleDBMSSQLConnectionProperties.Create('127.0.0.1,8829', 'yndb', 'sa', 'sa');
// DBServer := TSQLDBServerHttpApi.Create(DataBase, 'jj', '6789', 'admin', 'admin', False, 8, nil, tmThreadPool);
qry:=TQuery.Create(DataBase.ThreadSafeConnection);
qry.Close;
qry.SQL.Clear;
qry.SQL.Add('select top 100 * from t2');
qry.Open;
json := qry.PreparedSQLDBStatement.FetchAllAsJSON(True);
qry.Free;
DataSource1.DataSet := JSONToClientDataSet(Self, json);
end;

總結

以上是生活随笔為你收集整理的mormot数据库连接+查询+序列为JSON的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。