mORMot 1.18 第23章 使用纯SQL
  ZGYAxb2wjd2Z 15天前 28 0

mORMot 1.18 第23章 使用纯SQL

有时你可能不想使用ORM,或者由于现有且不可更改的数据库与ORM不兼容而无法使用它。在这些情况下,你仍然可以依靠mORMot的其他功能,同时使用纯SQL。

你可以发出纯SQL命令并以JSON格式获取数据。下面的示例展示了如何使用快速且开源的Zeos数据库库与MariaDB/MySQL一起执行此操作。

请注意,如何在同一台机器上的多个数据库中对表进行联接是可能的。


program listpeople;

{$APPTYPE CONSOLE}

uses
  Windows, Messages, SysUtils, Variants, Classes,
  SynCommons, mORMot, mORMotSQLite3, mORMotDB,
  SynDB, SynDBSQLite3, SynDBDataSet, SynDBZeos,
  SynSQLite3, SynSQLite3Static, DateUtils;

procedure List(const aRawServerName, aDatabaseName, aUserID, aPassWord: RawUTF8);
var
  PropsClass: TSQLDBConnectionPropertiesClass;
  aServerName: RawUTF8;
  U, S: RawUTF8;
  props: TSQLDBConnectionProperties;
  i: integer;
begin
  PropsClass := TSQLDBZEOSConnectionProperties;
  aServerName := TSQLDBZEOSConnectionProperties.URI(dMySQL, aRawServerName);
  props := PropsClass.Create(aServerName, aDatabaseName, aUserID, aPassWord);
  try
    S := 'u.surname,u.givennames,u.departments, u.offices,u.phones,u.email, ' + 
         'u.homepage, p.employeeid, h.title ';
    U := props.Execute('SELECT ' + S + ' FROM ' + 
                       'import.users u LEFT JOIN ' +
                       'local.person p ON p.email = u.email ' +
                       'LEFT JOIN local.hr h ON p.nexus = h.userid ' +
                       ' WHERE surname LIKE ?',['engelke%']).FetchAllAsJSON(True);
    writeln(U);
  finally
    props.Free;
  end;
end;

begin
  try
    List('blah.erickengelke.com:3306', 'customers', 'userX', 'ChangeMe23');
  except
    on E: Exception do
      writeln('ERROR: ' + E.Message);
  end;
end.

你可以使用props.Execute(sql).FetchAllAsJSON来执行返回值的命令,或者使用props.ExecuteNoReturn(sql)当没有预期结果时,例如:

Props.ExecuteNoReturn('DELETE * FROM users WHERE email like ?',['erick%']);

注意:在提供的代码示例中,存在一些小错误和不一致之处,比如local.personlocal.hr可能不是有效的表名,它们仅用于示例目的。在实际应用中,需要替换为真实的数据库表名。此外,SELECT语句中的字符串连接和字段列表也需要根据实际的数据库结构调整。代码中的?占位符用于参数化查询,以防止SQL注入攻击,并且在实际执行时需要提供相应的参数值。

另外,请注意ExecuteNoReturn用于执行不返回结果的SQL语句,如DELETEUPDATEINSERT等。而Execute方法则用于执行返回结果的查询,并通过FetchAllAsJSON方法将结果转换为JSON格式。在实际应用中,确保正确处理异常和错误情况,以保证代码的健壮性和稳定性。

【版权声明】本文内容来自摩杜云社区用户原创、第三方投稿、转载,内容版权归原作者所有。本网站的目的在于传递更多信息,不拥有版权,亦不承担相应法律责任。如果您发现本社区中有涉嫌抄袭的内容,欢迎发送邮件进行举报,并提供相关证据,一经查实,本社区将立刻删除涉嫌侵权内容,举报邮箱: cloudbbs@moduyun.com

  1. 分享:
最后一次编辑于 15天前 0

暂无评论

推荐阅读
  ZGYAxb2wjd2Z   20小时前   7   0   0 Delphi
  trFW46kwzceA   2024年01月13日   16   0   0 Delphi
  trFW46kwzceA   2024年01月11日   19   0   0 Delphi
  jl63rPptnaFE   2024年02月21日   17   0   0 Delphi
  trFW46kwzceA   2024年01月10日   19   0   0 Delphi
ZGYAxb2wjd2Z