Удаление в таблице

← →
Муслик (2008-06-25 13:44) [0]

Скажите почему выдётся ошибка при выполнении такого кода, тоесть я хочу удлаить записи все в таблице

table3.Edit; for tab_del:=0 to table3.FieldCount-1 do begin table3.Delete; end; table3.Post; end;

← →
clickmaker © (2008-06-25 13:47) [1]

FieldCount - это все записи?

← →
Palladin © (2008-06-25 13:49) [2]

во первых есть метод EmptyTable, во вторых ты по человечески можешь объяснить, что это за цикл? с каких мест астрала он тебе в голову пришел?

← →
Ega23 © (2008-06-25 13:49) [3]

капец. Посмотри в хелпе что такое FieldCount и что такое Delete

← →
Тын-Дын © (2008-06-25 13:49) [4]

+ Post зачем?

← →
clickmaker © (2008-06-25 13:51) [5]

> [4] Тын-Дын © (25.06.08 13:49)
> + Post зачем?

Edit еще непонятнее

← →
Правильный-Вася (2008-06-25 13:52) [6]

из серии "нарочно не придумаешь"

← →
Муслик (2008-06-25 13:57) [7]

FieldCount я так понимаю количество записей.

table3.Edit;
table3.Exclusive:=true;
table1.EmptyTable;

так всё равно не пашет

← →
Palladin © (2008-06-25 13:58) [8]

словариком англо-русским давно пользовался?

← →
Dennis I. Komarov © (2008-06-25 14:07) [9]

SQL рулит!

← →
Муслик (2008-06-25 14:07) [10]

Ну а как правильно очистить таблицу?

← →
Amoeba © (2008-06-25 14:20) [11]

> Муслик (25.06.08 14:07) [10]
>
> Ну а как правильно очистить таблицу?
>

Тебе уже ответили в
Palladin © (25.06.08 13:49) [2]

← →
Муслик (2008-06-25 14:22) [12]

with Table3 do
begin
Close;
Exclusive := true;
Open;
EmptyTable;
Close;
end;

НУ не работает пишет то таблица используется

← →
Муслик (2008-06-25 14:25) [13]

странно закрыл делфи и заработало... хотя у меня табле3.актив=фалсе

← →
Ega23 © (2008-06-25 14:25) [14]

delete from Table1

← →
Amoeba © (2008-06-25 14:26) [15]

> Муслик (25.06.08 14:22) [12]
>
> with Table3 do
> begin
> Close;
> Exclusive := true;
> Open;
> EmptyTable;
> Close;
> end;
>
> НУ не работает пишет то таблица используется
>

with Table3 do begin Close; Exclusive := true; //Open; EmptyTable; //Close; end;

Пример в справке посмотреть трудно было?

← →
Муслик (2008-06-25 14:46) [16]

вопрос возник в другом...
вот есть таблица
в ней
[наименование], [цена]
к примеру

ОЗУ 512р.
Мат. плата 800р
Процессор 1200р

так вот как мне ко всей таблице к ячейке цена применить (-2%)

← →
Ega23 © (2008-06-25 14:50) [17]

Update Таблица Set цена=цена*0.98

← →
Муслик (2008-06-25 14:50) [18]

Ega23 я использую table

← →
Муслик (2008-06-25 14:55) [19]

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add("Update three_base Set cena=cena*0.98");
Query1.Open;

и это не срабатывает пишет Error creating cursor nandle

← →
Palladin © (2008-06-25 15:01) [20]

вам бы программиста нанять...

← →
Sergey13 © (2008-06-25 15:01) [21]

> [19] Муслик (25.06.08 14:55)

Ну так ты же и просишь его именно creating cursor своим Open. Нужно ExecSql или что там.

← →
Игорь Шевченко © (2008-06-25 15:03) [22]

> вам бы программиста нанять...

программисты дорого стоят

← →
Ega23 © (2008-06-25 15:06) [23]

> Ega23 я использую table

Ты в своём праве.

> и это не срабатывает пишет Error creating cursor nandle

Тут малость подумать надо. А ты, к сожалению, не хочешь.

← →
Муслик (2008-06-25 15:08) [24]

Я пробовал и ExecSQL и Open ни так нитак нпе работает при ExecSql вообще таблица пропадает

← →
Sergey13 © (2008-06-25 15:20) [25]

> [24] Муслик (25.06.08 15:08)
> при ExecSql вообще таблица пропадает

Какая таблица? Как пропадает?
Давай нормальный код или см.
> [20] Palladin © (25.06.08 15:01)

← →
Муслик (2008-06-25 15:21) [26]

procedure TForm1.Button3Click(Sender: TObject); begin Query1.Close; Query1.SQL.Clear; Query1.SQL.Add("Update three_base Set cena=cena*0.98"); Query1.ExecSQL; end; procedure TForm1.Button4Click(Sender: TObject); begin Query1.Close; Query1.SQL.Clear; Query1.SQL.Add("Select * from three_base Order by naimen"); Query1.Open; end;

← →
Sergey13 © (2008-06-25 15:24) [27]

> [26] Муслик (25.06.08 15:21)

На квериках экономишь? И селектишь и апдейтишь одним и тем же? Ну так что удивляешься, то "таблица пропадает"?

← →
Муслик (2008-06-25 15:26) [28]

Спасибо, получилось. Только вот почему одним йвером нельзя всё это было сделать*

а ты думаешь он у тебя табличку нарисовал и все, больше не нужен?

← →
Муслик (2008-06-25 15:30) [30]

Palladin © нет я говорю за то что Чтоб моя проблема решилась нужно было 2 Кверика а что одним никак нельзя было это сделать?

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

> Игорь Шевченко (25.06.2008 15:03:22) [22]

Что делать то тогда?

> [30] Муслик (25.06.08 15:30)

Достаточно и одного. Но тогда нефиг пялиться в нее. Или "таблица" которая "пропадала" от святого духа была?

> Что делать то тогда?

Excel пользовать

← →
Правильный-Вася (2008-06-25 15:42) [35]

развод, имхо

Эх, нет на вас студентов-двоешников. Вот опять принесли на рецензию проект - просто шедевр !
Что стоит одна фразочка: "программа написана в среде MSSQL Server 2000 и предназначена для просмотра, редактирования и отсылки измененных данных на клиент, что ВЫГОДНО ОТЛИЧАЕТ ЕЕ ОТ 1С !"
При этом этом утверждается что проект реализован по технологии "тонкий клиент", где роль сервера приложений, очевидно, выполняет винда !

> ВЫГОДНО ОТЛИЧАЕТ ЕЕ ОТ 1С

двоешник-двоешником, а азами маркетинга уже овладел -)

Самое интересное что этот скубент уже год работает в Киеве менеджером и диплом ему нужен явно для корки ;)

← →
Правильный-Вася (2008-06-25 16:42) [39]

> отсылки измененных данных на клиент

куда?!

← →
Муслик (2008-06-25 17:09) [40]

сКАЖИте пожалуста я вот обновляю данные

Query3.Close; Query3.SQL.Clear; Query3.SQL.Add("Update three_base Set Cena=Cena*"+edit2.Text); Query3.ExecSQL;

но не оно не обновляется в рунтайм, только когда я программу закрываю и наново открываю как сделать?

Удаление в таблице Найти похожие ветки