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

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

Ошибка с SQL запросом !! (( [D6, dBase, FoxPro, Paradox]

Alpine ©   (2003-02-10 14:13:00) 

Коороче делаю так ...
chk :=false;
PriceQuery.Close;
PriceQuery.Open;
for i:=0 to PriceQuery.FieldCount-1 do
if PriceQuery.Fields.Fields[i].FieldName = "ID" then chk:=true;
if chk=false then
begin
PriceQuery.Close ;
PriceQuery.SQL.Clear;
PriceQuery.SQL.Add("ALTER TABLE "PRICE.DBF"");
PriceQuery.SQL.Add("ADD ID CHARACTER(10)");
PriceQuery.Open;
Выдаёт ошибку (( ... Первый раз когда нету поля ID пишет "Error creating cursor handle" ... А второй раз после того как поле создалось пишет "TABLE IS BUSY" ... Помогитееее

---

MsGuns   (2003-02-10 18:05:00) [1]

Да она у него в оболочке небось открыта (св-во Active:=true) или нечто в этом роде !

---

Smashich   (2003-02-10 18:01:00) [2]

где то ты уже открыл таблицу TTable или TQuery или я уже не знаю чем, но открыл! и не закрыл! в том куске кода на который ты ругаися ошибок нет...

---

alpine   (2003-02-10 17:56:00) [3]

Таблица парадокс ... PriceQuert типа TQuery ! Вот он и закрыт !

---

Smashich   (2003-02-10 17:51:00) [4]

какая таблица закрыта можно спросить? не вижу вообще здесь таблиц...очевидно где то они есть...вот где используешь TTable - там и ошибка, как мне кажется

---

alpine   (2003-02-10 17:42:00) [5]

Делаю так ..
try
PriceQuery.FieldByName("ID").AsString;
except begin
PriceQuery.Close ;
PriceQuery.SQL.Clear;
PriceQuery.SQL.Add("ALTER TABLE "PRICE.DBF"");
PriceQuery.SQL.Add("ADD ID CHARACTER(10)");
PriceQuery.ExecSQL;
end;
Не находит поле ID ... Доходит до запроса и выдаёт ошибку "Table busy" ... Нажимаю ок ... Загружается программа и таблица закрыта ! Что делать ???? Хелп плизззз !

---

MsGuns   (2003-02-10 16:56:00) [6]

Если НД - таблица, то для проверки наличия определенного поля можно обойтись безо всяких запросов:

procedure CheckFieldExist(tb: TTable; FldName: string): boolean;
var
sl: TStrings;
begin
result := false;
sl := TStringList.Create;
tb.DataBase.GetFieldNames(tb.TableName,sl);
if sl.IndexOf(FldName)>-1 then result := true;
end;

---

Johnmen   (2003-02-10 14:46:00) [7]

try
<попытка что-то считать из поля>
except
<поле отсутствует !>
end

---

stone   (2003-02-10 14:43:00) [8]

В данном случае можно вообще не делать

try
PriceQuery.Close ;
PriceQuery.SQL.Clear;
PriceQuery.SQL.Add("ALTER TABLE "PRICE.DBF"");
PriceQuery.SQL.Add("ADD ID CHARACTER(10)");
PriceQuery.ExecSQL;
except
on Exception do
Application.HandleException(Self);
end;

а вообще проверяется так:
if PriceQuery.Fields.FindField("ID") <> nil then
...

---

alpine   (2003-02-10 14:37:00) [9]

А нельзя подругому делать проверку таблицы на наличие определённого поля ?

---

stone   (2003-02-10 14:29:00) [10]

PriceQuery.ExecSQL;

---

Наверх