[JIexa]

Вообщем решил сделать базу данных "Школа", но почему-то ничего не получилось! Когда нажимаешь поиск "Зарос" - поиск по фамилии, и вводишь, существующую фамилию выскакивает ошибка IMG - в низу!

DataSource1.DataSet:=Query1 // Когда выдается ошибка, показывает на эту строку!

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ExtCtrls, DBCtrls, DBTables, DB, Grids, DBGrids, StdCtrls, Menus;   type   TForm1 = class(TForm)     DBGrid1: TDBGrid;     DataSource1: TDataSource;     Table1: TTable;     Query1: TQuery;     DBNavigator1: TDBNavigator;     Button1: TButton;     Button2: TButton;     MainMenu1: TMainMenu;     N1: TMenuItem;     N2: TMenuItem;     N3: TMenuItem;     N4: TMenuItem;     N5: TMenuItem;     N6: TMenuItem;     N7: TMenuItem;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     Procedure FormActivate(Sender:TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); var fam: string[30]; begin fam:=InputBox ('Ïîèñê ó÷åíèêà',                'Óêàæèòå ôàìèëèþ è ùåëêíèòå "ÎÊ".', ''); if fam <> '' then begin with form1.Query1 do begin close; SQL.Clear;   SQL.Add('SELECT Fam, Name, Otch, Class, Data, Adr'); SQL.Add('FROM ":Øêîëà:liceym.db"'); SQL.Add('WHERE'); SQL.Add('(Fam ="'+ Fam + '")'); SQL.Add('ORDER BY Fam, Name, Otch, Class, Data, Adr'); open; end; if Query1.RecordCount <> 0 then <b>DataSource1.DataSet:=Query1</b> // Когда выдается ошибка, показывает на эту строку!  else begin   ShowMessage ('Ïî âàøåìó çàïðîñó íè÷åãî íå íàéäåíî');  Datasource1.DataSet:=Table1;  end;  end;  end;   procedure TForm1.Button2Click(Sender: TObject); begin  DataSource1.DataSet:=Table1; end; Procedure TForm1.FormActivate(Sender:TObject); begin  DataSource1.DataSet:=Table1;  Table1.Active:=True;  end; end.

[vlad19]

Мешанина какаято используешь и TTable и TQuery. Пользуйся чем то одним, желательно TQuery. В запроспе используй Like, напиши справочники, например классы, фамилия имя отчество. Доберусь до своих исходников, пришлю пример.

[Yurk@]

Я работал с этим примером (но не сохранил его к сожалению).
Он рабочий!
Пересмотри всё внимательно.
P.S. SELECT ..... пиши всё в одну строчку (так удобней).