Invalid field name

@severus · Регистрация: 29.09.2009

Студворк — интернет-сервис помощи студентам

Люди помоги пожалуйста...
У меня есть программа. построенная на БД...
суть...
при поиске у меня выдает ошибку... посмотри фото...
вот мой код, как вы видите работаю с PARADOX. поиск через SQL...

Delphi
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
procedure TForm6.FreeButton2Click(Sender: TObject);
begin
close;
end;
 
procedure TForm6.FreeButton1Click(Sender: TObject);
begin
      if RadioButton1.Checked then begin
        fam:= Edit1.Text;
    if fam <> '' // пользователь ввел фамилию
    then
       begin
       with form1.Query1 do begin
           Close;       // закрыть файл-результат выполнения предыдущего запроса
           SQL.Clear;   // удалить текст предыдущего запроса
           // записываем новый запрос в свойство SQL
              SQL.Add(' SELECT DISTINCT Fam, Name, otch, Pass, Num, Tnum, Tel ');
               SQL.Add('FROM ":Lokki:Bclientu.db"');
                SQL.Add('WHERE');
                 SQL.Add('(Fam= "'+ fam + '")');
                 SQL.Add('ORDER BY Fam, Name, otch, Pass, Num, Tnum, Tel ');
                  Open;         // активизируем выполнение запроса
                  end;
 
                   if form1.Query1.RecordCount <> 0 then
                    form2.DataSource1.DataSet:=form1.Query1 // отобразить рез-т выполнения запроса
                      else begin
                      ShowMessage('данной записи в БД нет');
                       form2.DataSource1.DataSet:=form1.Table1;
                              end;
       end;
       end;
       end;
end.

@harmless · 28.05.2010, 12:23

Я так понимаю поле Fam в таблице присутствует?

@severus · 28.05.2010, 13:16 **[ТС]**

да, Fam это фамилия... в таблице
при проверке, из программы меня выбило на строчке open;

@harmless · 28.05.2010, 13:30

Это понятно, что при открытии. Ошибка в запросе. Попробуй без условия записи выбрать.

@severus · 28.05.2010, 21:18 **[ТС]**

а можно чутка по подробнее?

@harmless · 28.05.2010, 22:10

19ю и 20ю строки удали из того кода, что в первом посте.

@Sweet_Sleep · 29.05.2010, 12:16

Delphi
1
2
3
4
SQL.Add(' SELECT DISTINCT Fam, Name, otch, Pass, Num, Tnum, Tel ');
               SQL.Add('FROM ":Lokki:Bclientu.db"');
                SQL.Add('WHERE Fam='''+fam+'''');
                 SQL.Add('ORDER BY Fam, Name, otch, Pass, Num, Tnum, Tel ');

Попробуй так написать.
Кстати, почему у тебя сортировка по такой массе полей?Может лучше по одному полю сделать?

@severus · 29.05.2010, 20:57 **[ТС]**

все работает, я просто немного бд передал и в поиск писал по русски)))
но...
когда ввожу Фамилию, Имя и тд которой нет в бд... выдает сообщение "данной записи в бд нет"
но вот когда я ввожу Фамилию и т.д. которя есть в бд, мне выдает ошибку:
и когда я нажимаю ОК в ошибке, мне выделяет вот эту строку

Delphi
1
form2.DataSource1.DataSet:=form1.Query1

Delphi
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
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
procedure TForm6.FreeButton1Click(Sender: TObject);
begin
      if RadioButton1.Checked then begin
        fam:= Edit1.Text;
    if fam <> '' // пользователь ввел фамилию
    then
       begin
       with form1.Query1 do begin
           Close;       // закрыть файл-результат выполнения предыдущего запроса
           SQL.Clear;   // удалить текст предыдущего запроса
           // записываем новый запрос в свойство SQL
              SQL.Add(' SELECT DISTINCT Фамилия, Имя, Паспорт, Номер, Телефон ');
               SQL.Add('FROM ":Lokki:Bclientu.db"');
                SQL.Add('WHERE');
                 SQL.Add('(Фамилия= "'+ fam + '")');
                 SQL.Add('ORDER BY Фамилия, Имя, Паспорт, Номер, Телефон ');
                  Open;         // активизируем выполнение запроса
                  end;
 
                   if form1.Query1.RecordCount <> 0 then
                    form2.DataSource1.DataSet:=form1.Query1 // отобразить рез-т выполнения запроса
                      else begin
                      ShowMessage('данной записи в БД нет');
                       form2.DataSource1.DataSet:=form2.Table1;
                              end;
       end;
      end
 
       else
 
 
         if RadioButton2.Checked then begin
            fam:=Edit1.Text;
              if fam <> '' then begin
         with form1.Query1 do begin
           Close;
           SQL.Clear;
           // записываем новый запрос в свойство SQL
           SQL.Add(' SELECT DISTINCT  Фамилия, Имя, Паспорт, Номер, Телефон ');
           SQL.Add('FROM ":Lokki:Bclientu.db"');
           SQL.Add('WHERE');
           SQL.Add('(Имя= "'+ fam + '")');
           SQL.Add('ORDER BY  Фамилия, Имя, Паспорт, Номер, Телефон ');
           Open;
         end;
           if form1.Query1.RecordCount <> 0 then
            form2.DataSource1.DataSet:=form1.Query1
         else begin
              ShowMessage('данной записи в БД нет');
              form2.DataSource1.DataSet:=form2.Table1;
          end;
    end;
      end
 
       else
            if RadioButton4.Checked then begin
            fam:=Edit1.Text;
              if fam <> '' then begin
         with form1.Query1 do begin
           Close;
           SQL.Clear;
           // записываем новый запрос в свойство SQL
           SQL.Add(' SELECT DISTINCT Фамилия, Имя, Паспорт, Номер, Телефон ');
           SQL.Add('FROM ":Lokki:Bclientu.db"');
           SQL.Add('WHERE');
           SQL.Add('(Паспорт= "'+ fam + '")');
           SQL.Add('ORDER BY  Фамилия, Имя, Паспорт, Номер, Телефон ');
           Open;
         end;
         if form1.Query1.RecordCount <> 0 then
            form2.DataSource1.DataSet:=form1.Query1
         else begin
              ShowMessage('данной записи в БД нет');
              form2.DataSource1.DataSet:=form2.Table1;
 
          end;
    end;
    end
    else
            if RadioButton5.Checked then begin
            fam:=Edit1.Text;
              if fam <> '' then begin
         with form1.Query1 do begin
           Close;
           SQL.Clear;
           // записываем новый запрос в свойство SQL
           SQL.Add(' SELECT DISTINCT Фамилия, Имя, Паспорт, Номер, Телефон ');
           SQL.Add('FROM ":Lokki:Bclientu.db"');
           SQL.Add('WHERE');
           SQL.Add('(Номер= "'+ fam + '")');
           SQL.Add('ORDER BY  Фамилия, Имя, Паспорт, Номер, Телефон ');
           Open;
         end;
         if form1.Query1.RecordCount <> 0 then
            form2.DataSource1.DataSet:=form1.Query1
         else begin
              ShowMessage('данной записи в БД нет');
              form2.DataSource1.DataSet:=form2.Table1;
          end;
end;
end
else
if RadioButton6.Checked then begin
            fam:=Edit1.Text;
              if fam <> '' then begin
         with form1.Query1 do begin
           Close;
           SQL.Clear;
           // записываем новый запрос в свойство SQL
           SQL.Add(' SELECT DISTINCT Фамилия, Имя, Паспорт, Номер, Телефон ');
           SQL.Add('FROM ":Lokki:Bclientu.db"');
           SQL.Add('WHERE');
           SQL.Add('(Телефон= "'+ fam + '")');
           SQL.Add('ORDER BY  Фамилия, Имя, Паспорт, Номер, Телефон ');
           Open;
         end;
         if form1.Query1.RecordCount <> 0 then
            form2.DataSource1.DataSet:=form1.Query1
         else begin
              ShowMessage('данной записи в БД нет');
              form2.DataSource1.DataSet:=form2.Table1;
          end;
          end;
          end;
          end;
end.

@severus · 29.05.2010, 21:30 **[ТС]**

все я разобрался сам, всем спасибо

Новые блоги и статьи Все статьи Все блоги /
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .

@harmless 151 / 151 / 3 Регистрация: 05.05.2010 Сообщений: 570
	28.05.2010, 12:23
	Я так понимаю поле Fam в таблице присутствует? 0

@severus 0 / 0 / 0 Регистрация: 29.09.2009 Сообщений: 23
	28.05.2010, 13:16 [ТС]
	да, Fam это фамилия... в таблице при проверке, из программы меня выбило на строчке open; 0

@harmless 151 / 151 / 3 Регистрация: 05.05.2010 Сообщений: 570
	28.05.2010, 13:30
	Это понятно, что при открытии. Ошибка в запросе. Попробуй без условия записи выбрать. 0

@severus 0 / 0 / 0 Регистрация: 29.09.2009 Сообщений: 23
	28.05.2010, 21:18 [ТС]
	а можно чутка по подробнее? 0

@harmless 151 / 151 / 3 Регистрация: 05.05.2010 Сообщений: 570
	28.05.2010, 22:10
	19ю и 20ю строки удали из того кода, что в первом посте. 0

@severus 0 / 0 / 0 Регистрация: 29.09.2009 Сообщений: 23
	29.05.2010, 21:30 [ТС]
	все я разобрался сам, всем спасибо 0