• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

Çözüldü Kurum bilgilerini güncelle

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

ERDAL

Bronz Üye
Kullanıcı Bilgileri
Aktiflik
Çevrimdışı
Katılım
3 Nis 2021
Mesajlar
262
Çözümler
1
Aldığı beğeni
44
Excel V
Office 2013 TR
Konuyu Başlatan
Merhaba Arkadaşalar,

Kurmum listesini güncellerken (Kurum bilgilirini güncelle, açılanları ekle ve kapananları sil) olmak üzere 3 kod çalıştırarak bilgileri güncellemekteyim.
Bu kodu bire düşürebilirmiyiz

Yapılacak işlemeler;
Kurum bilglereni güncelleme; Kaynak dosyadaki ilçe, genel müdürlük, kurum türü ve kurum adlarını güncelemek eğer değişen kurum adı varsa "Durumu" başlığına 'Kurum Adı Degisti (03.06.2024)' şeklinde not düşmesi ve mesaj olarakta '.....................Kurum Adı Değişti şeklinde bilgi vermesi
Not: Bu bölümün kodu örnek olarak eklediğim dosyada var.

Kapanan kurum varsa sil: Eğer kurum kaynak dosyada olmayıp hedef dosyada var ise ilgili kurumun bulunduğu satırın silinmesi ve mesaj olarakta '.....................Kurum kapandı' şeklinde bilgi vermesi

Açılan kurum var ise hedef dosyaya ekle: Eğer kaynak dosyada olup, hedef dosyada kurum yok ise, bu kurumun hedef dosyasına eklenlmesi
ve "Durumu" başlığına 'Yeni Açılış (03.06.2024)' şeklinde not düşmesi ve mesaj olarakta '.....................Açıldı şeklinde bilgi vermesi

Güncelleme işleminde ben ADO kullandım. Eğer ADO kullanarak yapılırsa daha iyi olur.

Yardımlarınız için şimdiden teşekkür ederim.
 

Ekli dosyalar

  • Kurum Bilgileri (Hedef).xlsb
    23.6 KB · Gösterim: 4
Çözüm
Eğer yazdıklarımı tek sub içine alırsanız çok kafa karıştırır bunun yerine parametreler ekledim.

KURUM_BİLGİLERİNİ_GETİR kodunu çalıştırırsanız silme ve eklemede çalışır.
Yada önceden yazdığım gibi sub olanların adlarını yazacaksınız.

'Sonradan Eklenenler----------------------------------------------------------------------------------------------------
KurumSil con, rs, ws, yol
KurumEkle con, rs, ws, yol
'Sonradan Eklenenler----------------------------------------------------------------------------------------------------


Ayrıca yukardaki gibi yapınca silme ve ekleme kodlarına yol,recordset,connection vs... yazmaya gerek kalmadı.
Benden bu kadar kolay gelsin.

C#:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Eğer yazdıklarımı tek sub içine alırsanız çok kafa karıştırır bunun yerine parametreler ekledim.

KURUM_BİLGİLERİNİ_GETİR kodunu çalıştırırsanız silme ve eklemede çalışır.
Yada önceden yazdığım gibi sub olanların adlarını yazacaksınız.

'Sonradan Eklenenler----------------------------------------------------------------------------------------------------
KurumSil con, rs, ws, yol
KurumEkle con, rs, ws, yol
'Sonradan Eklenenler----------------------------------------------------------------------------------------------------


Ayrıca yukardaki gibi yapınca silme ve ekleme kodlarına yol,recordset,connection vs... yazmaya gerek kalmadı.
Benden bu kadar kolay gelsin.

C#:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.


C#:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.


C#:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 

Ekli dosyalar

  • Kurum Bilgileri (Hedef).xlsb
    35.1 KB · Gösterim: 4
Çözüm
Hocam Teşekkür ederim. elinize emeğinize sağlık
 
Aklıma takılan soruyu sormak istedim.
Silme ve Ekleme olayında kriter olarak sadece KURUM_KODU olarak kriter olarak yaptım.
Mesela silme için Açık excelde KURUM_KODU sütununda döngü yapıp kapalı excelde KURUM_KODU sütununda yoksa siliyor.Kriter olarak belki ilçe vs.. eklenmesigerekiyordur diye kafama takıldı.

Eğer fazla kriter olacaksa yeni konu açabilirsiniz.
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst