在日常的企業經營和個人生活中，我們難免會遇到大量的增值稅發票，這些發票包括普票、專票、全電發票、捲票等各種形式，這些發票不僅記錄了我們的購買和銷售信息，還是我們報銷和審計的重要依據。然而，手動處理這些發票數據是一項繁瑣而耗時的工作。為瞭解決這個問題，現在有了一個非常方便的工具——增值稅發票識別 AP ...
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.person和local.hr可能不是有效的表名，它們僅用於示例目的。在實際應用中，需要替換為真實的資料庫表名。此外，SELECT語句中的字元串連接和欄位列表也需要根據實際的資料庫結構調整。代碼中的?占位符用於參數化查詢，以防止SQL註入攻擊，並且在實際執行時需要提供相應的參數值。
另外，請註意ExecuteNoReturn用於執行不返回結果的SQL語句，如DELETE、UPDATE或INSERT等。而Execute方法則用於執行返回結果的查詢，並通過FetchAllAsJSON方法將結果轉換為JSON格式。在實際應用中，確保正確處理異常和錯誤情況，以保證代碼的健壯性和穩定性。
