| Вопрос: Не получается очистить таблицу из базы .. | Добавлено: 24.08.08 00:42 |
Автор вопроса:  sergey
|
|
Есть форма в которой заношу по нажатию кнопки в таблицу massiv.dbf, вот процедура:
Form3.Table1.Append; Form3.Table1.FieldByName('pug').Value:=Form3.ComboBox1.Text; Form3.Table1.FieldByName('tech').Value:=Form3.ComboBox2.Text; Form3.Table1.FieldByName('podkom').Value:=Form3.ComboBox3.Text; Form3.Table1.Post; Это делаю для того чтобы в последствии сделать из строк в таблице massiv.dbf ряд вставок в други таблицы по определенному алгоритму. Но это все вступление :) А не получается сделать очистку всех строк в таблице при загрузке формы.... Форма загружется, а старые строки там есть. Вот код который по моему мнению долже это делать... Form3.Table1.Active:=False; Form3.Table1.DatabaseName:='yantary'; Form3.Table1.TableName:='massiv.dbf'; Form3.Table1.Active:=true; strvl:=form3.Table1.RecordCount; Form3.Table1.First ; Form3.Table1.Edit; for i:=0 to strvl-1 do begin Form3.Table1.ClearFields; end; Form3.Table1.Post; Подскажите, что за грабли ? |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 26.08.08 03:08 |
| Да сделай TRUNCATE запрос да и всё.. зачем все записи перебирать? | ||
|
Номер ответа: 2 Автор ответа: sergey Вопросов: 6 Ответов: 17 |
Профиль | | #2 | Добавлено: 12.09.08 16:56 |
| TRUNCATE это процедура для файлов ... я так понял а у меня dbf файл.. не подходит | ||
|
Номер ответа: 3 Автор ответа: sergeyВопросов: 6 Ответов: 17 |
Профиль | | #3 | Добавлено: 12.09.08 18:04 |
|
решил сделать очистку таким образом
Form3.Table1.Active:=False; Form3.Table1.DatabaseName:='yantary'; Form3.Table1.TableName:='massiv.dbf'; Form3.Table1.Active:=true; strvl:=form3.Table1.RecordCount; Form3.Table1.First ; Form3.Table1.Edit; for i:=0 to strvl-1 do begin Form3.Table1.Delete; end; Form3.Table1.Post; form3.show; но почему-то через раз выскакивает ошибка --------------------------- Project1 --------------------------- Table1: Dataset not in edit or insert mode. --------------------------- ОК --------------------------- Не могу понять почему именно через раз ... строки очищает.. |
||
Страница: 1 |