Листинг 2

const
// Местоположение файла Northwind.mdb
NW_Path = ‘C:\Data\’;
 
PC.CommandType := xlCmdSql;
PC.CommandText := ‘SELECT Invoices.Country, Invoices.City,’+
‘ Invoices.Customers.CompanyName,’+
‘ Invoices.ProductName, Invoices.Salesperson, ‘+
‘ Invoices.Shippers.CompanyName, Invoices.ExtendedPrice’+
‘ FROM “‘+NW_Path+’Northwind”.Invoices Invoices ‘+
‘ WHERE Invoices.Country = ‘’France’’ ‘+
‘ OR Invoices.Country = ‘’Germany’’ ‘;