05-02-2022, 13:27
Hocam, klasik odbc bağlantısyla bağlanıyorum. Şifre falan yok.
İnternetten araştırdığım kadarıyla, benim karşılaştığım hatayla bir çok kullanıcının karşılaştığını görüdüm.
SQL Server'a Access'den veri atarken OpenRecordset ve dbSeeChanges yöntemi kullanmak gerekiyormuş. Mevcut kodları nasıl ayarlamam gerekiyor bilemediğimden tıkandım.
Aşağıdaki kodları OpenRecordset ve dbSeeChanges yöntemiyle tekrar yorumlanması gerekiyor. Desteklerinizi rica ederim.
İnternetten araştırdığım kadarıyla, benim karşılaştığım hatayla bir çok kullanıcının karşılaştığını görüdüm.
SQL Server'a Access'den veri atarken OpenRecordset ve dbSeeChanges yöntemi kullanmak gerekiyormuş. Mevcut kodları nasıl ayarlamam gerekiyor bilemediğimden tıkandım.
Aşağıdaki kodları OpenRecordset ve dbSeeChanges yöntemiyle tekrar yorumlanması gerekiyor. Desteklerinizi rica ederim.
Visual Basic
- For x = 1 To LstCikisYapilanlar.ListCount - 1
- t = t & "," & LstCikisYapilanlar.Column(0, x)
- Next x
- t = Mid(t, 2)
-
- xSQL = "INSERT INTO [Log] ([BelgeId],[KullaniciId], [HareketId],[DepoId],[AracId]) " & _
- "SELECT [BelgeId],'" & Me.KullaniciID & "', '" & Me.HareketId & "', '" & Me.DepoId & "', '" & Me.AracId & "' " & _
- "FROM [belge] where ([Belge].[BelgeID]) In (" & t & ")"
- CurrentDb.Execute xSQL
- xSQL = "UPDATE Belge SET Durum = 2, HedefDepo = '" & Me.CboDepoId & "' where [BelgeID] In (" & t & ")"
-
- CurrentDb.Execute xSQL
-
- Me.LstCikisYapilanlar.Requery
- Me.LstCikis.Requery
-
- Me.CikisYap.Enabled = False