Update failed SDAC
Posted: Fri 19 Aug 2005 09:39
In delphi code i am have:
///
on dfm file query qryPopraviPromet is
object qryPopraviPromet: TwwMSQuery
Connection = dmDK.databaseDK
SQL.Strings = (
'SELECT DatumZaEvidencne FROM DKPromet '
'WHERE ZaporednaStevilkaPrometa= :pZap;')
ValidateWithMask = True
Left = 448
Top = 208
ParamData =
object qryPopraviPrometDatumZaEvidencne: TDateTimeField
FieldName = 'DatumZaEvidencne'
end
end
///
in pas file
procedure TfrmNastavitveKnjizVknjizbEvidKontov.PopraviPrometniZapis(nZap: integer);
// 11.1.2001 dodali popravljanje izvornega zapisa v DKPromet-u
begin
with qryPopraviPromet do
try
Close;
Connection:= dmDK.databaseDK;
SQL.Clear;
SQL.Add('SELECT DatumZaEvidencne FROM DKPromet');
SQL.Add('WHERE ZaporednaStevilkaPrometa=:pZapStev ');
// ZaporednaStevilkaPrometa (PrimaryKey (No Duplicates))
ParamByName('pZapStev').AsInteger := nZap;
Open;
lFound := not (BOF and EOF);
if not lFound then
begin
Beep;
MessageDlg(MLFormat('Napaka 875 - Modul Popravljanja prometnega zapisa;' + #13 + 'Zapisa z zap.številko ' +
' %s ni, čeprav bi moral biti!', [IntToStr(nZap)]), mtError, [mbOk], 0);
end
else
begin // Recordcount=1
Edit;
FieldByName('DatumZaEvidencne').AsDateTime := Now;
Post;
//
end;
Close;
except
on E: Exception do
t_DoException('Napaka pri ažuriranju DKPrometa!', E.Message, nil);
end;
end;
On post is error
Update failed, found 9 record...
This is worked with Dao components and with Microsoft Jet. Why dont work with SDAC.
i havedelphi 6.0 sdac 3.55.0.16 and SqlServer 2000
///
on dfm file query qryPopraviPromet is
object qryPopraviPromet: TwwMSQuery
Connection = dmDK.databaseDK
SQL.Strings = (
'SELECT DatumZaEvidencne FROM DKPromet '
'WHERE ZaporednaStevilkaPrometa= :pZap;')
ValidateWithMask = True
Left = 448
Top = 208
ParamData =
object qryPopraviPrometDatumZaEvidencne: TDateTimeField
FieldName = 'DatumZaEvidencne'
end
end
///
in pas file
procedure TfrmNastavitveKnjizVknjizbEvidKontov.PopraviPrometniZapis(nZap: integer);
// 11.1.2001 dodali popravljanje izvornega zapisa v DKPromet-u
begin
with qryPopraviPromet do
try
Close;
Connection:= dmDK.databaseDK;
SQL.Clear;
SQL.Add('SELECT DatumZaEvidencne FROM DKPromet');
SQL.Add('WHERE ZaporednaStevilkaPrometa=:pZapStev ');
// ZaporednaStevilkaPrometa (PrimaryKey (No Duplicates))
ParamByName('pZapStev').AsInteger := nZap;
Open;
lFound := not (BOF and EOF);
if not lFound then
begin
Beep;
MessageDlg(MLFormat('Napaka 875 - Modul Popravljanja prometnega zapisa;' + #13 + 'Zapisa z zap.številko ' +
' %s ni, čeprav bi moral biti!', [IntToStr(nZap)]), mtError, [mbOk], 0);
end
else
begin // Recordcount=1
Edit;
FieldByName('DatumZaEvidencne').AsDateTime := Now;
Post;
//
end;
Close;
except
on E: Exception do
t_DoException('Napaka pri ažuriranju DKPrometa!', E.Message, nil);
end;
end;
On post is error
Update failed, found 9 record...
This is worked with Dao components and with Microsoft Jet. Why dont work with SDAC.
i havedelphi 6.0 sdac 3.55.0.16 and SqlServer 2000