Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Код ошибки пустой [D7, MSSQL]

Страницы: < 1 2
чайник1 © (2004-01-13 14:48:00)

Уважаемые мастера, помогите, прога то работает то нет, соединение с сервером через компоненты DbExpress, выдает сообщение код ошибки пусто, а при продолжении работы выдает сообщение разрушительный сбой. Я конечно анализирую все через конструкцию try...except, но от этого не легче, сервер вроде работает, ругается на Applyupdates. может у кого-то была такая ситуация, вчера все работало. Убрал все что было сегодня добавлено, результат все тот же. Проверил все таблицы на сервере, просмотры, доступ.Соединение по новой создал в модуле Datamodule.Спасибо.

Vlad (2004-01-13 15:26:00) [21]

сорри
on E:Exception doshowmessage(E.Message);

Vlad (2004-01-13 15:25:00) [22]

try
.....
except
on E:Exception showmessage(E.Message);
end;

О результатах доложи.

чайник1 (2004-01-13 15:24:00) [23]

соединение есть, ведь она то пишет в базу, то нет, соединение стабильное, я же все еще и смотрю через EnterpriceManager. и запущен Query Analyzer.в Datamodule все соединяется.

Danilka (2004-01-13 15:24:00) [24]

[11] чайник1 (13.01.04 15:20)
это случайный кусок кода из "большого проекта"?
ты-же сказал в первом посте:
"соединение с сервером через компоненты DbExpress, выдает сообщение код ошибки пусто"
и где в этом кусочке кода соединение?
лучше ответь на: [9] Vlad © (13.01.04 15:18)

чайник1 (2004-01-13 15:20:00) [25]

кусочек кода вот:

if StrToFloat(ob)-StrToFloat(ob1)>=StrToFloat(nowkred.l2.text) then
begin
dat1.osn.Append;
osn.FieldByName("kod_unic").asinteger:=koli;
osn.fieldbyname("kod_kl").asinteger:=klkod.asinteger;
osn.fieldbyname("kod_z").asinteger:=q_zai1kod.asinteger;
osn.fieldbyname("kred").asfloat:=strtofloat(nowkred.l1.text);
osn.fieldbyname("sum_fact").asfloat:=strtofloat(nowkred.l2.text);
osn.fieldbyname("proz_stav").asfloat:=StrTofloat(nowkred.l3.text);
osn.fieldbyname("peni").asfloat:=StrTofloat(nowkred.l4.text);
osn.fieldbyname("nom_dog").asstring:=nowkred.l5.text;
osn.fieldbyname("date1").asdatetime:=StrToDate(vr1);
osn.fieldbyname("date2").asdatetime:=StrToDate(vr2);
osn.fieldbyname("dat_dog").asdatetime:=StrToDate(vr3);
try
osn.post;
osn.ApplyUpdates(0); {ругает с этой команды}
osn.Refresh;
kred.refresh;
s_zaim.Active:=true;
kred.Locate("kod_unic",znak,[]);
osn.Locate("kod_unic",fieldbyname("kod_unic").AsInteger,[]);
except
showmessage("ошибка записи на сервер");
end;
end
else
showmessage("сумма остатков меньше");
end

Johnmen (2004-01-13 15:18:00) [26]

Аккуратней !!! Может и второй сервер полететь !

Vlad (2004-01-13 15:18:00) [27]

> про код вы явно шутите

Ага, мы тут вобще народ веселый :-)

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

Ну.. как бы, с этого и надо было начинать :-)
Коннект к базе есть вобще или нет ?

чайник1 (2004-01-13 15:16:00) [28]

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

Danilka (2004-01-13 15:14:00) [29]

ой, боюсь, приведет он сейчас весь свой код, берегись народ!

Anatoly Podgoretsky (2004-01-13 15:13:00) [30]

Плохо тебе парень.

Johnmen (2004-01-13 15:12:00) [31]

книги? 17 строка?

Vlad (2004-01-13 15:11:00) [32]

намек на совет: приведи код чтоли ?

чайник1 (2004-01-13 15:09:00) [33]

совет какой..хотя бы намек на него

Johnmen (2004-01-13 15:06:00) [34]

Ау

чайник1 (2004-01-13 15:05:00) [35]

Народ, откликнитесь кто-нибудь...

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

Наверх

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