AccessTr.neT
Access mysql evet/hayır alan güncelleme sorunu - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Access mysql evet/hayır alan güncelleme sorunu (/konu-access-mysql-evet-hayir-alan-guncelleme-sorunu.html)

Access mysql evet/hayır alan güncelleme sorunu - ozguryasin - 13/09/2012

saygı değer www.accesstr.net ailesi. şimdiden sorunumu sabır ile okuyan ve yardımda bulunmaya çalışan tüm hocalarıma Teşekkür ederim.

elimdeki bulunan bir projenin biten bölümlerini mysql aktardım.
access te bulunan Evet / Hayır bölümü mysql olmadığı için YINYINT yaparaktan
False olayına = 0 True olayına = 1 (mysql de -1 yokmuş sanırım)
yazdırıyorum. formum açıldığında onay adlı tablodaki alanımın hepsinin sıfır '0' olması gerekiyor. aşağıdaki ADO ve DAO kodları ile problemsiz bir şekilde yapabiliyorum.
fakat
Run-time error '3197':
Micrasoft Access veritabanı Altyapısı, siz ve başka bir kullanıcı aynı veriyi aynı anda değiştirmeyi denediğiniz için işlemi durdurdu.

hatası alıyorum. hatayı verdikten sonra mysql tablolarına baktığımda hepsinin istediğim şekilde sıfır olduğunu görüyorum. fakat Access DEBUG bölümünden beni VB bölümüne atıyor orada da rs.update te stop yaptığını görüyorum. (orası sarı şekilde) 
On Error Resume Next
ile engelleyebiliyorum fakat ben hatanın çözümünü öğrenmek istiyorum.

ADO Kodları
Private Sub Form_Open(Cancel As Integer)

 

Dim rs As New ADODB.Recordset

 rs.Open "guvenlik_kimlik", CurrentProject.Connection, adOpenKeyset, adLockOptimistic



rs.MoveFirst

Do Until rs.EOF

rs!onay = 0

rs.Update

rs.MoveNext

Loop

100

rs.Close



Set rs = Nothing

End Sub

DAO Kodları
 Dim rs As DAO.Recordset

 Dim db As Database

 Dim strSQL As String



 Set db = CurrentDb()

 strSQL = "SELECT * FROM guvenlik_kimlik"

 Set rs = db.OpenRecordset(strSQL)

 

 rs.MoveFirst

 Do Until rs.EOF

 rs.Edit

 rs!onay = 0

 rs.Update

 rs.MoveNext

 Loop

100

rs.Close

End Sub


Cvp: Access mysql evet/hayır alan güncelleme sorunu - ozguryasin - 16/09/2016

soru özümden kaçmasından dolayı eç verilmiş bir cevap.

sorun mysql veri tabanındaki aarlar ve etkilerden kaynaklanmaktadır. ayarlar ve yetkiler düzeltilince problem ortadan kalkmıştır.