Skip to main content

AccessTr.neT M.



Mssql Kayıt Yaparken Hata Veriyor

Mssql Kayıt Yaparken Hata Veriyor

Çözüldü #1
merhabalar 
bu kod ile daha önceden Access veritabanına kayıt yapıyordum şuan MSSQL çevirdim fakat kaydet dediğimde kayıt yapmıyor lütfen açilen yardım eder misiniz? 
Dim Sql As String
Dim db As Database
Dim rs As DAO.Recordset
Dim rt As DAO.Recordset
Dim ru As DAO.Recordset
Set db = CurrentDb()
SQL = "SELECT * FROM dbo_GECSIPARIS02"
Set rs = db.OpenRecordset(SQL, dbOpenDynaset, dbSeeChanges)
SQL = "SELECT * FROM dbo_SİPARİS"
Set rt = db.OpenRecordset(SQL, dbOpenDynaset, dbSeeChanges)
SQL = "SELECT * FROM dbo_İRSALİYE"
Set ru = db.OpenRecordset(SQL, dbOpenDynaset, dbSeeChanges)
If rs.EOF = True Then Exit Sub
If rt.EOF = True Then Exit Sub
rs.MoveFirst
Do Until rs.EOF
   rt.MoveFirst
   Do Until rt.EOF
   If rs!SİD = rt!İD Then
      rt.Edit
      rt!giden_mik = rt!giden_mik + rs!SEVKADET
      rt!irsaliye_tarih = Me.DIS_IRSTRH
      rt!irsaliye_no = Me.DIS_IRSNO
      rt!kalan_mik = rt!sip_adet - rt!giden_mik
      rt.Update
      ru.AddNew
      ru!gonderen = Me.DIS_GONDEREN
      ru!koli_miktari = Me.DIS_KOLIADET
      ru!İRSALİYE_NO = Me.DIS_IRSNO
      ru!URUN_KODU = rs!URUN_KODU
      ru!giden_mik = rs!SEVKADET
      ru!firma = rs!firma
      ru!URUN_AD = rs!URUN_ADİ
      ru!urun_cinsi = rs!urun_cinsi
      ru!irsaliye_tarih = Me.DIS_IRSTRH
      ru!SİPARİS_ADET = rs!siparis_adet
      ru!SİP_NO = rs!SİPARİS_NO
      ru!sas_no = rs!sas_no
      ru!kalem_no = rs!kalem_no
      ru!satici_firmakodu = rs!saticifirma
      ru!elekdepo = rs!elekdepo
      ru.Update
      GoTo 100
   End If
   rt.MoveNext
   Loop
100
   rs.MoveNext
Loop
[Resim: do.php?imgf=149861641746561.png]
[Resim: do.php?imgf=149861641768952.png]

Cevapla
#2
Sayın Ramazan, emin olmamakla birlikte db.OpenRecordset kısmını SQLe göre yeniden düzenlemeniz gerekiyor. Accesste kullandığımız bazı komut ve fonksiyonlar SQLde farklı isimlerle adlandırıldığında böyle sıkıntılara yol açabiliyor. Sql bilgim çok yok ama arkadaşlarımda benzer sorunlarla karşılaşmışlardı oradan yola çıkarak cevapladım. Kolay gelsin.

Vatanını en çok seven, görevini en iyi yapandır!!!
Cevapla
...........
#3
(02/07/2017 14:29)biberli33 Adlı Kullanıcıdan Alıntı: Sayın Ramazan, emin olmamakla birlikte db.OpenRecordset kısmını SQLe göre yeniden düzenlemeniz gerekiyor. Accesste kullandığımız bazı komut ve fonksiyonlar SQLde farklı isimlerle adlandırıldığında böyle sıkıntılara yol açabiliyor. Sql bilgim çok yok ama arkadaşlarımda benzer sorunlarla karşılaşmışlardı oradan yola çıkarak cevapladım. Kolay gelsin.
cevap için teşekkür ederim sorunu o taployu Sql cevirmemekle düzelttim :Img-grin
o tabloyu acceste bıraktım öle düzeldi teşekkür ederim yinede

Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da