// Demonstrates dbExpress connection (Architect edition feature) uses DBXDataSnap, DBXCommon, SqlExpr, DB, DBClient, Datasnap.DBClient, SimpleDS;
procedure QueryDatabaseUsingDBX; var SQLConn: TSQLConnection; Query: TSQLQuery; DataSetProvider: TDataSetProvider; ClientData: TClientDataSet; begin // Using dbExpress connection (supports multiple databases) SQLConn := TSQLConnection.Create(nil); try SQLConn.DriverName := 'MSSQL'; // Example: Microsoft SQL Server SQLConn.GetDriverFunc := 'getSQLDriverMSSQL'; SQLConn.LibraryName := 'dbxmss.dll'; SQLConn.VendorLib := 'oledb'; SQLConn.Params.Values['HostName'] := 'localhost'; SQLConn.Params.Values['Database'] := 'TestDB'; SQLConn.Params.Values['User_Name'] := 'user'; SQLConn.Params.Values['Password'] := 'pass'; SQLConn.LoginPrompt := False; SQLConn.Open; Embarcadero Delphi XE Architect Mini 15.0.3890.34076-CORE
DataSetProvider := TDataSetProvider.Create(nil); ClientData := TClientDataSet.Create(nil); try DataSetProvider.DataSet := Query; ClientData.SetProvider(DataSetProvider); ClientData.Open; var SQLConn: TSQLConnection
// Demonstrates dbExpress connection (Architect edition feature) uses DBXDataSnap, DBXCommon, SqlExpr, DB, DBClient, Datasnap.DBClient, SimpleDS;
procedure QueryDatabaseUsingDBX; var SQLConn: TSQLConnection; Query: TSQLQuery; DataSetProvider: TDataSetProvider; ClientData: TClientDataSet; begin // Using dbExpress connection (supports multiple databases) SQLConn := TSQLConnection.Create(nil); try SQLConn.DriverName := 'MSSQL'; // Example: Microsoft SQL Server SQLConn.GetDriverFunc := 'getSQLDriverMSSQL'; SQLConn.LibraryName := 'dbxmss.dll'; SQLConn.VendorLib := 'oledb'; SQLConn.Params.Values['HostName'] := 'localhost'; SQLConn.Params.Values['Database'] := 'TestDB'; SQLConn.Params.Values['User_Name'] := 'user'; SQLConn.Params.Values['Password'] := 'pass'; SQLConn.LoginPrompt := False; SQLConn.Open;
DataSetProvider := TDataSetProvider.Create(nil); ClientData := TClientDataSet.Create(nil); try DataSetProvider.DataSet := Query; ClientData.SetProvider(DataSetProvider); ClientData.Open;
ПО Видар