Всем привет!
Проблема такая... год назад я писал проект, но он предполагался как моно пользовательский... теперь меня попросили переделать его под клиент сервер... и появилася проблема с добавлением данных в таблицу...
До этого БД была под аксесом
| Код |
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 и т.к. там ключевое полде не может быть нулевым пост использовать нельзя... ругается 
Подскажите чем заменить Post 
правда пробовал и так
| Код |
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
Дико извеняюсь за флуд... у меня комп глюканул |
. мочему бы тебе не написать вставку на SQL`е???