Listbox'dan Güncelleme Ve Log Kaydı
#13
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.



Visual Basic
  1. For x = 1 To LstCikisYapilanlar.ListCount - 1
  2.    t = t & "," & LstCikisYapilanlar.Column(0, x)
  3. Next x
  4. t = Mid(t, 2)
  5.  
  6. xSQL = "INSERT INTO [Log] ([BelgeId],[KullaniciId], [HareketId],[DepoId],[AracId]) " & _
  7.       "SELECT [BelgeId],'" & Me.KullaniciID & "', '" & Me.HareketId & "', '" & Me.DepoId & "', '" & Me.AracId & "' " & _
  8.        "FROM [belge] where ([Belge].[BelgeID]) In (" & t & ")"
  9. CurrentDb.Execute xSQL
  10. xSQL = "UPDATE Belge SET Durum = 2, HedefDepo = '" & Me.CboDepoId & "'  where [BelgeID] In (" & t & ")"
  11.  
  12. CurrentDb.Execute xSQL
  13.  
  14. Me.LstCikisYapilanlar.Requery
  15. Me.LstCikis.Requery
  16.  
  17. Me.CikisYap.Enabled = False





  Alıntı
Bu mesajı beğenenler:
#14
2 tablonuz da serverda mı?



  Alıntı
Bu mesajı beğenenler:
#15
tüm tabolar serverda hocam



  Alıntı
Bu mesajı beğenenler:
#16
aşağıdaki kodu dener misiniz?
Not: buraya eklediğiniz dosyaya göre yaptım
eğer serverdaki LogId otomatik sayı değilse ve boş değere izin vermiyorsa sorun çıkabilir
ben tablolarınızı servera yükleyip LogId alanını otomatik yapınca sorunsuz ekledi
Visual Basic
  1. Private Sub VerileriAktar_Click()
  2. For x = 1 To Liste2.ListCount - 1
  3. t = t & "," & Liste2.Column(0, x)
  4. Next x
  5. t = Mid(t, 2)
  6.  
  7. Dim Conn As New ADODB.Connection
  8. Dim sqltext As String
  9. Dim ServerName As String: ServerName = "HALIL\SQLEXPRESS"
  10. Dim DatabaseName As String: DatabaseName = "benuva"
  11.  
  12. With Conn
  13. .CommandTimeout = 120
  14. .ConnectionString = "DRIVER={SQL Server};SERVER=" & ServerName & ";DATABASE=" & DatabaseName & ";Trusted_Connection=Yes"
  15. .Open
  16. End With
  17.  
  18. xSQL = "INSERT INTO [log] ([BelgeId],[KullaniciId], [IslemTuru]) " & _
  19. "SELECT [BelgeId],'" & Me.KullaniciId & "', '" & Me.IslemTuru & "' " & _
  20.   "FROM [belge] where ([Belge].[BelgeID]) In (" & t & ")"
  21.  
  22. Conn.Execute xSQL
  23. xSQL = "UPDATE Belge SET Durum = 2 where [BelgeID] In (" & t & ")"
  24. Conn.Execute xSQL
  25. Me.Liste2.Requery
  26. mesgbox "bitti"
  27. End Sub





  Alıntı
Bu mesajı beğenenler:
#17
belirtmeyi unuttum referanslardan ActiveX Data Object xx.x eklenmeli



  Alıntı
Bu mesajı beğenenler:
#18
Değerli hocam,

Elinize, emeğinize sağlık. Hakkınızı ödeyemem. Çok teşekkür ederim.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Güncelleme metınaycıcek 20 406 18-02-2024, 00:26
Son Mesaj: metınaycıcek
  Access Formu üzerinden Sql Server Tabloya Nasıl Veri Kaydı Yapılır karacahil 4 186 15-02-2024, 12:10
Son Mesaj: halily
  Form üzerinde Bulunan Sorguda Değişiklik Yaparak Kayıt Güncelleme geneclean 5 168 13-02-2024, 15:51
Son Mesaj: dsezgin
  Güncelleme metınaycıcek 16 272 04-02-2024, 08:13
Son Mesaj: metınaycıcek
  [VBA] Sürekli Formda Combobox Güncelleme Sorunu benuva 6 185 20-11-2023, 11:56
Son Mesaj: benuva
  [SORGU] Iki Tablo Arasında Sorgu Ile Güncelleme Yapma yahyamacit 2 129 10-11-2023, 13:22
Son Mesaj: yahyamacit
  Listbox'ta Tarihi Seçtiğimde Sadece O Tarihe Kadar Trend Grafiğini Getirmesi YENIFENER 1 156 21-12-2022, 17:32
Son Mesaj: dsezgin
access-sql-9 Acces Dosya Güncelleme mesut250 1 181 08-12-2022, 00:56
Son Mesaj: dsezgin

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi