Цитата
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, DB, DBTables, Grids, DBGrids, StdCtrls;
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Label1: TLabel;
Query1: TQuery;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
with Query1 do
begin
SQL.Clear;
SQL.Add('SELECT B1.Подсистема,B1.Слот,B1.Линия_прерывания,B2.Адрес_ВВ,B2.Используемая_память FROM B1,B2 WHERE (B1.Подсистема="Видео") AND (B2.Подсистема="Видео")');
open;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
with Query1 do
begin
SQL.Clear;
SQL.Add('SELECT * FROM B2 WHERE (B2.Адрес_ВВ Like "%D%") AND (B2.Адрес_ВВ Like "F%")');
open;
end;
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, DB, DBTables, Grids, DBGrids, StdCtrls;
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Label1: TLabel;
Query1: TQuery;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
with Query1 do
begin
SQL.Clear;
SQL.Add('SELECT B1.Подсистема,B1.Слот,B1.Линия_прерывания,B2.Адрес_ВВ,B2.Используемая_память FROM B1,B2 WHERE (B1.Подсистема="Видео") AND (B2.Подсистема="Видео")');
open;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
with Query1 do
begin
SQL.Clear;
SQL.Add('SELECT * FROM B2 WHERE (B2.Адрес_ВВ Like "%D%") AND (B2.Адрес_ВВ Like "F%")');
open;
end;
end;
end.
Подскажите пожалуйста, что я делаю не так.
он просто не работает. Т.е. известно, КАК он должен работать по стандартам ANSI, но работает он только из среды, а из внешних запросов это микрошитовское Г условия с like обрабатываются некорректно (никогда ничего не возвращают). Причем это относится даже к запросам, построенным в MSQuery - тоже продукте микрошита!!! 
) - сейчас бы ему хотя бы в первый раз таблицу открыть!
) мне известно! Просто поставив active=true проверить поще не компилируя... Может всё таки у Query не присвоины алиасы? или не верно насроен путь к базе?