| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Снова исключения. ;= ( [D6, WinME]

Страницы:   < 1 2 >

Loco ©   (2002-07-12 13:26:00) 

Приветствую всех!!!
Ребята, HELP Plizzz,
никаких ошибок при компиляции, зато при выполнении Query выдаётся следующее сообщение:
Project XXX.exe raised exception class EDBEngineError with message"Capability not supported". Process stopped. Use Step or Run to continue.
Кто знает как исправить, подскажите!
Кусок кода прилагается :))

procedure TForm1.btZaprClick(Sender: TObject);
var
fam: string[30];
begin
fam:=InputBox("Выборка информации из БД",
"Введите фамилию и нажмите на OK.", "");
if fam <> "" // пользователь ввел фамилию
then
begin
with DM.Query1 do begin
Close; // закрыть файл-результат выполнения предыдущего запроса
SQL.Clear; // удалить текст предыдущего запроса
// записываем новый запрос в свойство SQL
SQL.Add("SELECT Code, Familia, Name, Otchestvo, DataRogd, MestoRogr, Gragdanstvo, Familia(2), Semya, Result");
SQL.Add("FROM ":Credit:person.db"");
SQL.Add("WHERE");
SQL.Add("(Familia = ""+ fam + "")");
SQL.Add("ORDER BY Familia, Name");
Open; // активизируем выполнение запроса
end;
if DM.Query1.RecordCount <> 0 then
DM.DSperson.DataSet:=DM.Query1 // отобразить рез-т выполнения запроса
else begin
ShowMessage("В базе данных нет записей, удовлетворяющих критерию запроса.");
DM.DSperson.DataSet:=DM.person;
end;
end;
end;

Заранее спасибо всем за участие :)))



Loco: loco@userline.ru

---

Loco   (2002-07-12 14:27:00) [21]

>Skier ©
Так хрен с ним с пробелом....
Вы ребята правы, без поля Familia(2) он меня прекрасно понимает! А почему, кто-нибудь может об"яснить????????

---

Skier   (2002-07-12 14:23:00) [22]

>Loco
Перед FROM что пробел не видишь ?????????????????????
SQL.Add(" FROM "person.db""); и т.д.

---

Loco   (2002-07-12 14:21:00) [23]

>Skier ©
Извини, разницы не заметил,
она в чём, где пробелы????????????

>Johnmen ©
Хочешь сказать что он название поля неправильно понимает???

---

Skier   (2002-07-12 14:19:00) [24]

>Johnmen
Вполне может быть...
>Loco
Если не пойдёт попробуй убрать из SELECT-а поле Familia(2)

---

Johnmen   (2002-07-12 14:17:00) [25]

Функциональность не поддерживается
Familia(2) ??????????????????

---

Skier   (2002-07-12 14:15:00) [26]

>Loco
Мне кажется дело в "банальных" пробелах (?)
Попробуй так :


..................................
// записываем новый запрос в свойство SQL
SQL.Add("SELECT Code, Familia, Name, Otchestvo,
DataRogd, MestoRogr, Gragdanstvo, Familia(2),
Semya, Result");
SQL.Add(" FROM "person.db"");
SQL.Add(" WHERE");
SQL.Add(" Familia = "" + fam + """);
SQL.Add(" ORDER BY Familia, Name");
Open; // активизируем выполнение запроса
..................................


---

Loco   (2002-07-12 14:11:00) [27]

>Kaban
Ты б лучше по делу чего сказал, что ли
:)))

---

Loco   (2002-07-12 14:10:00) [28]

>Skier ©
Странно, если упростить, тогда работает,
а в чём дело????????? :0

---

Skier   (2002-07-12 14:08:00) [29]

>Loco
А лучше так :


..................................
// записываем новый запрос в свойство SQL
SQL.Add("SELECT Familia");
SQL.Add(" FROM "person.db"");
SQL.Add(" WHERE");
SQL.Add(" Familia = "" + fam + """);
SQL.Add(" ORDER BY Familia");
Open; // активизируем выполнение запроса
..................................


---

Skier   (2002-07-12 14:05:00) [30]

>Loco
Сложно за тебя отлаживать..., ну да ладно...
Попробуй упростить запрос, например напиши :


..................................
// записываем новый запрос в свойство SQL
SQL.Add("SELECT Familia, Name, Otchestvo");
SQL.Add(" FROM "person.db"");
SQL.Add(" WHERE");
SQL.Add(" Familia = "" + fam + """);
SQL.Add(" ORDER BY Familia");
Open; // активизируем выполнение запроса
..................................


---

Kaban   (2002-07-12 14:03:00) [31]

Familia, Name, Otchestvo, DataRogd, MestoRogr, Gragdanstvo, Familia(2), Semya

Наводит на размышления

---

Loco   (2002-07-12 14:01:00) [32]

>Kaban
А кто-то говорил, что я русский??? :)))))))

---

Loco   (2002-07-12 14:00:00) [33]

>Skier ©
А нету разницы никакой, что
SQL.Add("FROM ":Credit:person.db"");

что
SQL.Add("FROM "person.db"");
один хрен не работает :)

---

Skier   (2002-07-12 13:51:00) [34]

>Loco

> Дык ведь у него определён в свойствах этот самый Credit


А зачем же ты его снова пишешь ???
SQL.Add("FROM ":Credit:person.db"");

Надо так : SQL.Add("FROM "person.db"");

---

Kaban   (2002-07-12 13:51:00) [35]

Ну Code как то не по-русски звучит

---

Loco   (2002-07-12 13:48:00) [36]

>Kaban
А не подскажешь какая разница ;)

---

Loco   (2002-07-12 13:47:00) [37]

>Skier ©
Дык ведь у него определён в свойствах этот самый Credit

---

Kaban   (2002-07-12 13:43:00) [38]

А что ж вы поле Code не назвали Kod

---

Skier   (2002-07-12 13:37:00) [39]

>Loco


..................................
SQL.DatabaseName := "Credit";
// записываем новый запрос в свойство SQL
SQL.Add("SELECT Code, Familia, Name, Otchestvo,
DataRogd, MestoRogr, Gragdanstvo, Familia(2),
Semya, Result");
SQL.Add("FROM "person.db"");
SQL.Add("WHERE");
SQL.Add("Familia = "" + fam + """);
SQL.Add("ORDER BY Familia, Name");
Open; // активизируем выполнение запроса
..................................


---

Страницы:   < 1 2 >

Наверх