Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Access mysql evet/hayır alan güncelleme sorunu

ozguryasin
ozguryasin
Access Cevaplanmış Soruları
1
3685

Access mysql evet/hayır alan güncelleme sorunu

#1
ozguryasin
Uzman
ozguryasin
www Bul
Uzman
Adı Soyadı: Öz.... Ya....
Yaşı: 42
Konum: Bursa
Ofis Versiyonu: Ofis 2016 32 Bit
Son Oturumu: 07/07/2024,04:49
Yorumları: 1.176
Konuları: 43
Kayıt Tarihi: 23/09/2009
Teşekkür Puanı: 616
Mesleğiniz: Yazılım
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
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
#2
ozguryasin
Uzman
ozguryasin
www Bul
Uzman
Adı Soyadı: Öz.... Ya....
Yaşı: 42
Konum: Bursa
Ofis Versiyonu: Ofis 2016 32 Bit
Son Oturumu: 07/07/2024,04:49
Yorumları: 1.176
Konuları: 43
Kayıt Tarihi: 23/09/2009
Teşekkür Puanı: 616
Mesleğiniz: Yazılım
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.
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task