Дельфи7 + Paradox (read\write)

@VampireKB · Регистрация: 12.06.2009

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

Доброго времени суток
Предыстория :
Есть файл *.DB (с паролем)
есть BDE-Database,Query, Mastersource1,2 ,Table1 , DBGRID ,SQLupdate

Что работает:
БД коннектится,потом ручками вводим пароль и в DBGRID отображаются данные из Table .При изменении данных в DBGRID ,данные автоматом меняются и в файлике *.DB

Суть вопроса:
Почему-то при всех моих настройках( кривые руки тоже причастны

) ф-ция записи в файлик из других вводных строк(например Едит1.Текст) -не происходит

Программа туте выдаёт ошибку,что Таблица не находится в режиме Update\insert

При попытке прописывания параметра
Table1.CanModify:=True
Дельфи 7 ругается на то,что Таблица является read only (100 раз смотрел,в самой форме таблицы параметр readyonly = false !! )

З.Ы.
Все ф-ции сами по себе составлены верно

Delphi
1
2
3
4
5
6
7
Table1.Open
Table1.First
While not Table1.EOF do
begin
Table1.fieldbyname('abc').AsInteger:=Table1.fieldbyname('dfg').AsInteger
Table1.Next
end

Пожалуйста,помогите

(
(Буду благодарен за любые предположения!!)

@MAcK · 18.06.2009, 19:08

Table1.Edit -- перед изменением данных

@VampireKB · 18.06.2009, 19:25 **[ТС]**

Спасибо )
Добавил,ща пишет про Dataset ...Думаю,через часик допру

Добавлено через 13 минут 26 секунд
СПАСИБО !!!
Получилось Только посл того,как я Edit внутрь цикла добавил.

Привожу код для остальных,т.к. Темы про BDE ОЧЕНЬ редкие и их практически не найти

Delphi
1
2
3
4
5
6
7
8
9
10
table1.Close;
table1.ReadOnly:=False;
table1.Open;
table1.First;
while not table1.Eof do
begin
DataSource1.Edit;
Table1.Edit;
Table1.fieldbyname('QntP').AsInteger:=Table1.fieldbyname('QntR').AsInteger;
table1.Next;

@Lord_Voodoo · 18.06.2009, 20:29

VampireKB, тем хватает, просто бде уже просто морально устарело, а в связи с тем, что борланд отказался от этой технологии, то вас могут ожидать масса неразрешимых сюрпризов, лучше на ней не останавливаться, разве что в плане окунуться в историю

@VampireKB · 18.06.2009, 20:56 **[ТС]**

VoodooMan,
Самая знаменитая программа в ресторанном бизнесе написана на PARADOX

)
А Склад к ней на interbase

Сюрпризами с реиндексацией,битыми наполовину таблицами и остальной фигнёй,я уже года 2-3 назад прошел

)

@Lord_Voodoo · 19.06.2009, 01:16

а как на счет бага, когда база кратна 4 мб... да я знаю кучу коммерческих проектов на foxpro древнем или клиппере... просто бде - есть тупиковая ветвь развития, как не крути... можно постоянно выкручиваться из этих постоянных багов, но зачем создавать себе проблемы и потом с ними героически бороться...

@VampireKB · 19.06.2009, 01:46 **[ТС]**

VoodooMan,
с этим я абсолютно согласен !
Тот же Interbase*,не говоря уже об Оракле, намного проще...

*Interbase проще начиная с версии 6.5 ,где база стала устойчивее к потере данных по сети .

@Lord_Voodoo · 19.06.2009, 01:47

Беркли ДБ - рулит

@VampireKB · 19.06.2009, 01:55 **[ТС]**

VoodooMan,
Не сталкивался

Ссылочку в РМ ,если можно ) И какие проги требуется установить

Ладно,у нас тут тема в флуд с оффтопом превращается по-тихоньку:rolleyes:
\\close;

@Kasper89 · 24.06.2009, 00:18

Вот кусок моего кода думаю поймешь что он ругался.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
form1.Table1.Open;
    form3.Table1.Open;
    form1.Table1.Insert;
    form3.Table1.Insert;
    form1.Table1.FieldByName('Users').AsString:=form3.Edit8.Text;
    form1.Table1.FieldByName('Passwords').AsString:=form3.MaskEdit1.Text;
    form3.Table1.FieldByName('Users').AsString:=form3.Edit8.Text;
    form3.Table1.FieldByName('F.I.O').AsString:=form3.Edit1.Text;
    form3.Table1.FieldByName('God rojdenii').AsString:=form3.Edit2.Text;
    form3.Table1.FieldByName('Pol').AsString:=Form3.Edit3.Text;
    form3.Table1.FieldByName('Obrazovanii').AsString:=form3.Edit4.Text;
    form3.Table1.FieldByName('Doljnost').AsString:=form3.Edit5.Text;
    form3.Table1.FieldByName('Prikaz').AsString:=form3.Edit6.Text;
    form3.Table1.FieldByName('Zarplata').AsString:=form3.Edit7.Text;
    form3.Table1.Post;
    form1.Table1.Post;

@Lord_Voodoo · 24.06.2009, 01:05

Kasper89, не понял сути вопроса уважаемый, и что именно говорит?

@VampireKB · 24.06.2009, 09:49 **[ТС]**

думаю у него на присваивании ругается

Каспер,проводи вначале работы с таблицой1 в форме 1,запиши данные куда-нить,а лишь уже потом проведи работу с таблицей1 в форме 3...

да и ,как ты видишь,я юзал не insert,а Edit ...
\\теоретический ответ на теоретический вопрос.

@Lord_Voodoo · 24.06.2009, 10:02

VampireKB, а если ему надо не отредактировать, а добавить запись? вообще скажу по своему опыту, что лучше использовать запросы, чем эти методы, прирост в скорости есть приличный...

@VampireKB · 24.06.2009, 10:19 **[ТС]**

VoodooMan,
я честно пытался юзать Query с Updater-ом для БДЕ,но у мну не получилось

))
Насчет прироста - я согласен.Если б я так данные в Интербейз вбивал,я б до сих пор данные только заносил

З.Ы.
а разве БДЕ поддерживает что-то типа:

Delphi
1
2
3
4
5
update.Sql:='insert AB(:A,...:Z)';
fieldbyname('A').asstring:= ;
...
fieldbyname('Z').asstring:= ;
update.execSql;

тут это тоже сработает ? О_О СУБД вроде разное же

@Lord_Voodoo · 24.06.2009, 10:25

VampireKB, у sql есть стандарт, ваш запрос работать не будет...

SQL
1
INSERT INTO TABLE(<field1>, ... <fieldN>) VALUES (<value1>, ... <valueN>)

или

SQL
1
INSERT INTO TABLE(<field1>, ... <fieldN>) SELECT <field1>, ... <fieldN> FROM table1

или

SQL
1
INSERT INTO TABLE(<field1>, ... <fieldN>) SELECT * FROM table1

сработает в любой базе данных... аналогично и с Update... а что у вас с запросами не получилось-то?

@VampireKB · 24.06.2009, 14:00 **[ТС]**

VoodooMan,
тот пример я писал 6-ым пальцем третеьй руки)0(т.е. от балды

)
у меня есть свой маааленький хелпик для того,чтобы оживить инфу в голове

а по-поводу "не получалось",- я даже и не пытался,потому что думал,что там такого нет

Кстати,о 2 и 3-ем способе я не знал,спасибо

Новые блоги и статьи Все статьи Все блоги /
Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .

@MAcK Комбайнёр 1606 / 704 / 77 Регистрация: 27.05.2008 Сообщений: 2,535
	18.06.2009, 19:08
	Table1.Edit -- перед изменением данных 1

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	18.06.2009, 20:29
	VampireKB, тем хватает, просто бде уже просто морально устарело, а в связи с тем, что борланд отказался от этой технологии, то вас могут ожидать масса неразрешимых сюрпризов, лучше на ней не останавливаться, разве что в плане окунуться в историю 0

@VampireKB 36 / 35 / 3 Регистрация: 12.06.2009 Сообщений: 211
	18.06.2009, 20:56 [ТС]
	VoodooMan, Самая знаменитая программа в ресторанном бизнесе написана на PARADOX ) А Склад к ней на interbase Сюрпризами с реиндексацией,битыми наполовину таблицами и остальной фигнёй,я уже года 2-3 назад прошел ) 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	19.06.2009, 01:16
	а как на счет бага, когда база кратна 4 мб... да я знаю кучу коммерческих проектов на foxpro древнем или клиппере... просто бде - есть тупиковая ветвь развития, как не крути... можно постоянно выкручиваться из этих постоянных багов, но зачем создавать себе проблемы и потом с ними героически бороться... 0

@VampireKB 36 / 35 / 3 Регистрация: 12.06.2009 Сообщений: 211
	19.06.2009, 01:46 [ТС]
	VoodooMan, с этим я абсолютно согласен ! Тот же Interbase,не говоря уже об Оракле, намного проще... Interbase проще начиная с версии 6.5 ,где база стала устойчивее к потере данных по сети . 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	19.06.2009, 01:47
	Беркли ДБ - рулит 0

@VampireKB 36 / 35 / 3 Регистрация: 12.06.2009 Сообщений: 211
	19.06.2009, 01:55 [ТС]
	VoodooMan, Не сталкивался Ссылочку в РМ ,если можно ) И какие проги требуется установить Ладно,у нас тут тема в флуд с оффтопом превращается по-тихоньку:rolleyes: \\close; 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	24.06.2009, 01:05
	Kasper89, не понял сути вопроса уважаемый, и что именно говорит? 0

@VampireKB 36 / 35 / 3 Регистрация: 12.06.2009 Сообщений: 211
	24.06.2009, 09:49 [ТС]
	думаю у него на присваивании ругается Каспер,проводи вначале работы с таблицой1 в форме 1,запиши данные куда-нить,а лишь уже потом проведи работу с таблицей1 в форме 3... да и ,как ты видишь,я юзал не insert,а Edit ... \\теоретический ответ на теоретический вопрос. 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	24.06.2009, 10:02
	VampireKB, а если ему надо не отредактировать, а добавить запись? вообще скажу по своему опыту, что лучше использовать запросы, чем эти методы, прирост в скорости есть приличный... 0

@VampireKB 36 / 35 / 3 Регистрация: 12.06.2009 Сообщений: 211
	24.06.2009, 14:00 [ТС]
	VoodooMan, тот пример я писал 6-ым пальцем третеьй руки)0(т.е. от балды ) у меня есть свой маааленький хелпик для того,чтобы оживить инфу в голове а по-поводу "не получалось",- я даже и не пытался,потому что думал,что там такого нет Кстати,о 2 и 3-ем способе я не знал,спасибо 0