SQL Sorgusu ile Tablo Güncelleme Örneği, Farklı Tablolardan Güncelleme

Senaryo: Aynı alan adlarına ve anahtar alana sahip dört tane tablo var.
AnaTablo, Tablo1, Tablo2, Tablo3

AnaTablo, her üç tablonun toplam içeriğinden oluşmakta.

Şayet diğer üç tablodan herhangi birinde bir değişiklik meydana gelirse,
Aşağıdaki sorgu o değişikliği AnaTablo'ya da işler


UPDATE        AnaTablo
SET           AnaTablo.alan1 = Kaynak.alan1,
              AnaTablo.alan2 = Kaynak.alan2,
      AnaTablo.alan3 = Kaynak.alan3,
      AnaTablo.alan4 = Kaynak.alan4,
      AnaTablo.alan5 = Kaynak.alan5,
      AnaTablo.alan6 = Kaynak.alan6,
      AnaTablo.alan7 = Kaynak.alan7,
      AnaTablo.alan8 = Kaynak.alan8,
      AnaTablo.alan9 = Kaynak.alan9
FROM          AnaTablo Hedef
INNER JOIN    Tablo1 Kaynak
ON            Hedef.OrtakIndeks = Kaynak.OrtakIndeks
UPDATE        AnaTablo
SET           AnaTablo.alan1 = Kaynak.alan1,
              AnaTablo.alan2 = Kaynak.alan2,
      AnaTablo.alan3 = Kaynak.alan3,
      AnaTablo.alan4 = Kaynak.alan4,
      AnaTablo.alan5 = Kaynak.alan5,
      AnaTablo.alan6 = Kaynak.alan6,
      AnaTablo.alan7 = Kaynak.alan7,
      AnaTablo.alan8 = Kaynak.alan8,
      AnaTablo.alan9 = Kaynak.alan9
FROM          AnaTablo Hedef
INNER JOIN    Tablo2 Kaynak
ON            Hedef.OrtakIndeks = Kaynak.OrtakIndeks
UPDATE        AnaTablo
SET           AnaTablo.alan1 = Kaynak.alan1,
              AnaTablo.alan2 = Kaynak.alan2,
      AnaTablo.alan3 = Kaynak.alan3,
      AnaTablo.alan4 = Kaynak.alan4,
      AnaTablo.alan5 = Kaynak.alan5,
      AnaTablo.alan6 = Kaynak.alan6,
      AnaTablo.alan7 = Kaynak.alan7,
      AnaTablo.alan8 = Kaynak.alan8,
              AnaTablo.alan9 = Kaynak.alan9
FROM          AnaTablo Hedef
INNER JOIN    Tablo3 Kaynak
ON            Hedef.OrtakIndeks = Kaynak.OrtakIndeks

Yorumlar

Yorum Gönder

Bu blogdaki popüler yayınlar

AUTOLISP DOSYALARININ KALICI KULLANIMI

AUTOLISP DOSYALARININ KALICI KULLANIMI Tools/Load application menüsünden yüklenen bir lisp'in yeni bir autocad dosyası açıldığında ya da Autocad bir nedenle kapatıldığında artık bir hükmü kalmaz. Şayet bir lisp programının AutoCAD'in her açılışında ya da yeni AutoCAD dosyası yaratılmak istendiğinde otomatik olarak kullanıma hazır bulunması isteniyorsa aşağıdaki iki adım yerine getirilmelidir. 1. İstenen lisp, tools/load application menüsü ile gelen arayüzdeki startup suite üzerinde bulunan contents komutu kullanılarak kalıcı şekilde yüklenmelidir. Contents komutuna basıldıktan sonra add butonu ile ilgili lisp seçilmelidir. 2. İstenen lisp'in ait olduğu klasör tools/option/Support File Search Path kullanılarak AutoCAD'e kalıcı olarak tanıtılmalıdır. Sol yandaki "+" işareti açılarak sağ yandaki add komutuna tıklanır ve Browse ile lisp'in ait olduğu klasör seçilir. Bu iki adım yerine getirildiğinde artık AutoCAD'in her türlü açılışında lisp de kullanıma h
Devamı

AUTOLISP PROGRAMLARINI ÇALIŞTIRMAK

.lsp uzantılı olan Autolisp ya da visual lisp dosyaları Autocad içinde Tools/Load Application menusu kullanılarak tanıtılırlar. Bu menünün yönlendirilmesi ile seçilen .lsp uzantılı dosya daha sonra load edilerek kullanıma hazır hale getirilir. Programın kullanılması ise lisp içindeki komutun komut satırına yazılması ile mümkündür. Örnek: (defun c:(deneme) ... ) komut satırına deneme yazılarak çalıştırılır.
Devamı

MS Access Veritabanı Tablosuna Visual Basic ile Veri Eklemek

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim sql As New String("INSERT INTO @tabloadı (@alan1, @alan2, @alan3, @alan4, @alan5, @alan5, @alan6) values ('" + Text1.Text + "','" + DateTimePicker1.Text + "','" + ComboBox1.Text + "','" + Text2.Text + "','" + Text3.Text + Text4.Text + "') ") 'Altı alanı olan bir access veritabanı dosyası için ekranda iki değeri combobox'tan, bir tarih değeri 'datetimepicker'dan, kalan üç öge textbox'lardan alınmıştır bu örnekte. Dim baglanti As New OleDbConnection("Provider=Microsoft.ace.OLEDB.12.0;Data Source= 'E:\@accessveritabanıadı.accdb'") 'E sürücüsünde bir access veri tabanı adresi verilmiştir Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti) Dim sonuc As Integer baglanti.Open()
Devamı