+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Microsoft Access De Transactions Nasıl Kullanılır (/konu-microsoft-access-de-transactions-nasil-kullanilir.html)
Sayfalar:
1
2
Microsoft Access De Transactions Nasıl Kullanılır - accessman - 06/05/2020
https://codekabinett.com/rdumps.php?Lang=2&targetDoc=how-to-access-transaction
adresinde anlatılıyor ama ben çok anlayamadım
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 SubRE: Microsoft Access De Transactions Nasıl Kullanılır - ozanakkaya - 06/05/2020
Bu kod ile ne yapmak istediğinizi açıklar mısınız??
RE: Microsoft Access De Transactions Nasıl Kullanılır - accessman - 06/05/2020
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
RE: Microsoft Access De Transactions Nasıl Kullanılır - accessman - 16/05/2020
1. mesajda eklenen kod ile
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", dbFailOnErrorDAO.DBEngine.BeginTranssonra 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
DAO.DBEngine.CommitTranseğer bu üç sorgu işleminden herhangi birisinde işlem hatası olursa
tran_Err:
DAO.DBEngine.Rollbackilk 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
CurrentDb.Execute ..............................., dbFailOnErrorikinci ö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ı
Re: Microsoft Access De Transactions Nasıl Kullanılır - accessman - 16/05/2020
alt for ile nasıl kullanılacak derseniz
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 SubRE: Microsoft Access De Transactions Nasıl Kullanılır - accessman - 16/05/2020
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
DAO.DBEngine.BeginTrans
CurrentDb.Execute "INSERT INTO tblLog (Text1) VALUES ('" & "New banana delivery" & "')", dbFailOnError
DBEngine.rollbackbir sonraki 10 dan devam edecek
ayrıntılı açıklama için
https://codekabinett.com/rdumps.php?Lang=2&targetDoc=how-to-access-transaction