Skip to main content

AccessTr.neT


Microsoft Access De Transactions Nasıl Kullanılır

Microsoft Access De Transactions Nasıl Kullanılır

#1
https://codekabinett.com/rdumps.php?Lang...ransaction
adresinde anlatılıyor ama ben çok anlayamadım

Visual Basic Code
Public Sub TransactionDemo()
On Error GoTo tran_Err

    DAO.DBEngine.BeginTrans    
    CurrentDb.Execute "INSERT INTO tblLog (Text1) VALUES ('New banana delivery')", dbFailOnError
    CurrentDb.Execute "UPDATE tblInfo SET InfoText = 'Banana count: 2983' WHERE ID = 6 ", dbFailOnError
    CurrentDb.Execute "DELETE FROM tblTemp", dbFailOnError
    DAO.DBEngine.CommitTrans
    
Exit Sub
    
tran_Err:
    DAO.DBEngine.Rollback
    MsgBox "Transaction failed. Error: " & Err.Description

End Sub

@benbendedeilem
Cevapla
#2
Bu kod ile ne yapmak istediğinizi açıklar mısınız??
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#3
Tabloyu silip yeni veri ekleyeceğim
Ama ekleme kısmında sıkıntı olursa silmeyi geri almalı
Belki Ekledikten sonrada silebilirim ama amacım bunu kullanmak
@benbendedeilem
Cevapla
#4
1. mesajda eklenen kod ile 

Visual Basic Code
CurrentDb.Execute "INSERT INTO tblLog (Text1) VALUES ('New banana delivery')", dbFailOnError
CurrentDb.Execute "UPDATE tblInfo SET InfoText = 'Banana count: 2983' WHERE ID = 6 ", dbFailOnError
CurrentDb.Execute "DELETE FROM tblTemp", dbFailOnError

ilk satır yeni veri ekliyor , ikincisi veri güncelliyor üçüncüsü tabloyu boşaltıyor

Visual Basic Code
DAO.DBEngine.BeginTrans

satırı ile bu 3 sorgu işleminden önce veritabanını kilitliyoruz.
sonra sorguları sırası ile çalıştırıyoruz
eğer tüm sorgular sıkınıtısz bir şekilde görevini başarı ile tamamlarsa 

Visual Basic Code
DAO.DBEngine.CommitTrans

satırı ile veritabanını güncelliyoruz. vertabanı kilidi kalkıyor
eğer bu üç sorgu işleminden herhangi birisinde işlem hatası olursa 

Visual Basic Code
tran_Err:
    DAO.DBEngine.Rollback

ile tüm işlemleri geri alıyoruz. yani son satırdaki silme sorgusunda hata çıktığında
ilk satırdaki ekleme işlemide iptal oluyor. Yani Undo gibi birşey
birinci ve ikinci sorgularda olan işlemler hiç olmamış gibi veri tabanı ilk haliyle kalıyor
Bu konuda iki önemli  husus var bunlardan birincisi 
*hatayı yakalamak yani bu üç sorgudan en az birinde hata olduğunu anlamak için

Visual Basic Code
CurrentDb.Execute ..............................., dbFailOnError

 "dbFailOnError" kelimesini mutlaka eklememiz lazım
ikinci önemli husus ise 
*BeginTrans ve CommitTrans satırları arasında veritabanı sadece bize çalışıyor olacak
bir kaç kullanıcı veritabanına bağlanıyorsa onlar salt okunur açabilecekler.
bir de resimdeki şu ayar yapılmalı

[Resim: do.php?img=10212]

@benbendedeilem
Cevapla
#5
alt for ile nasıl kullanılacak derseniz

Visual Basic Code
Private Sub btnBeginEdit_Click()
    DBEngine.BeginTrans
End Sub

Private Sub btnSaveChanges_Click()
    DBEngine.CommitTrans
End Sub

Private Sub btnUndoChanges_Click()
    DBEngine.Rollback
End Sub

Private Sub Form_Current()
    ' loading the child records for the current master record
    Set Me.subActorRatings.Form.Recordset = _
        CurrentDb.OpenRecordset("SELECT * FROM tblActorRatings WHERE ActorId=" & Me!ActorId)

    ' Setting the correct default value for new records
    Me.subActorRatings.Form.Controls("txtActorIdHidden").DefaultValue = Me!ActorId
End Sub

Private Sub Form_Load()
    Set Me.Recordset = CurrentDb.OpenRecordset("SELECT * FROM tblActors")
End Sub


[Resim: do.php?img=10213]

@benbendedeilem
Son Düzenleme: 16/05/2020, 12:19, Düzenleyen: accessman.
Cevapla
#6
bir diğer husus şu  ki ilişkili formlarda bu işlem galiba çalışmıyor
begin dediniz
yeni kayıt eklediniz
commit veya rollback demeniz bir şey değiştirmiyor. kayıt işlemi bitmiş oluyor

bir başka husus ise tablonuzda id alanı otomatik olarak artıyor ise
rollback deseniz bile otomatik sayı kullanılmış oluyor
mesela en son id 8 idi siz

Visual Basic Code
DAO.DBEngine.BeginTrans
CurrentDb.Execute "INSERT INTO tblLog (Text1) VALUES ('" & "New banana delivery" & "')", dbFailOnError
DBEngine.rollback

 dediniz. böylece geri alsanız bile id = 9 kullanılmış oldu.
bir sonraki 10 dan devam edecek

ayrıntılı açıklama için
https://codekabinett.com/rdumps.php?Lang...ransaction

@benbendedeilem
Son Düzenleme: 16/05/2020, 12:54, Düzenleyen: accessman.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da