VPF::Добавление данных в таблицу - Форум программистов

Silmarion

Дата 24.4.2006, 10:20 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 31.10.2005
Где: Москва

Репутация: нет
Всего: нет

Всем привет!
Проблема такая... год назад я писал проект, но он предполагался как моно пользовательский... теперь меня попросили переделать его под клиент сервер... и появилася проблема с добавлением данных в таблицу...
До этого БД была под аксесом

Код


    If ADOQuery1.RecordCount=0 Then Begin
      ADOTable1.Active:=False;
      ADOTable1.TableName:='My_Money';
      ADOTable1.Active:=True;
      ADOTable1.Append;
      ADOTable1.FieldByName('Date_Money').AsString:=Edit1.Text;
      ADOTable1.FieldByName('Dollar').AsFloat:=StrByFloat(Edit2.Text);
      ADOTable1.FieldByName('Euro').AsFloat:=StrByFloat(Edit3.Text);
      ADOTable1.FieldByName('Yuan').AsFloat:=StrByFloat(Edit4.Text);
      ADOTable1.Post;
    End;

Вот а теперь БД под SQL Server 2k и т.к. там ключевое полде не может быть нулевым пост использовать нельзя... ругается smile

Подскажите чем заменить Post smile

правда пробовал и так

Код


    If ADOQuery1.RecordCount=0 Then Begin
      ADOTable1.Active:=False;
      ADOTable1.TableName:='My_Money';
      ADOTable1.Active:=True;
      ADOTable1.Append;
      ADOTable1.FieldByName('Date_Money').AsString:=Edit1.Text;
      ADOTable1.FieldByName('Dollar').AsFloat:=StrByFloat(Edit2.Text);
      ADOTable1.FieldByName('Euro').AsFloat:=StrByFloat(Edit3.Text);
      ADOTable1.FieldByName('Yuan').AsFloat:=StrByFloat(Edit4.Text);
      ADOTable1.Append;
      ADOTable1.Active:=False;
      ADOTable1.Active:=True;
    End;

но как и ожидалось эфекта ноль...

Добавлено @ 10:23
Дико извеняюсь за флуд... у меня комп глюканул smile

SerGreY

Дата 24.4.2006, 11:04 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 143
Регистрация: 18.1.2004

Репутация: нет
Всего: нет

Какое поле у тебя ключевое (как правило ID) и почему оно нулевое?

Silmarion

Дата 24.4.2006, 11:27 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 31.10.2005
Где: Москва

Репутация: нет
Всего: нет

И еще Post почемуто тоже не пашет smile

Добавлено @ 11:28
Оно не нулевое когда используется AppEnd то он поля типа AutoIncrement сам увеличивает на 1... там не в этом дело это я первым делом проверил...

AKN

Дата 24.4.2006, 14:02 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 97
Регистрация: 11.11.2005

Репутация: нет
Всего: нет

Как сказал один мой знакомый "Убил бы за использование тейблов в сетевых приложениях!" smile

. мочему бы тебе не написать вставку на SQL`е???

Vit

Дата 24.4.2006, 15:23 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 14
Всего: 207

Вам сюда: http://vingrad.ru/ART-DELPHI-002171

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »