{
 
sql server a dbexpress ile baglanirken
database in verdigi identity yi dbx cekemiyor.
dolayisi ile siz hangi kayda insert yaptiginizi bilemiyorsunuz..
 
ado hangi kayda insert yapildigini bildigi icin
bunu dbx ya da midas vb.. yontemleri kullananlar icin yazdim buraya..
 
oncelikle asagidaki gibi bir table create edilir...
ms sql query analyzer dan
}
create table IdentityTable
(ForTable  sysname not null,
 Value     int     not null)
 
{
daha sonra asagidaki procedure create edilir..
}
create proc GetNextIdentity @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Table sysname, @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] int OUTPUT
AS
set nocount on
begin tran
/* if this is the first value generated for this table, start with zero */
  if not exists (select * from IdentityTable where ForTable = @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Table)
    insert IdentityTable (ForTable, Value) values (@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Table, 0)
/* update must be before select to issue a lock and prevent duplicates */
  update IdentityTable
    set Value = Value + 1
    where ForTable = @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Table
  select @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] = Value from IdentityTable
    where ForTable = @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Table
commit tran
return @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
{
sql query analyzer in icinden kullanimi asagidaki sekilde..
delphi den de bir adet stored procedure alinir.
tablo adi parametre olarak gecilir.. donen deger database in insert
yapacagi identity numarasidir..
 
 
 
declare @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]dentity int
exec @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]dentity = GetNextIdentity @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Table = 'SI_SICIL', @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] = 0
select @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]dentity
 
 
iyi calismalar..
Kaynak : M$ nin sitesi
winlinux@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].com
11 mart 2004 02:28 AM
 
}