INSERT / UPDATE basit işlem.

[sarigozoglu]

Arkadaşlar çok basit bir insert / update için yardımınıza ihtiyacım var.
Baz alıp projelerime devam edeceğim, benim için bir nevi yol gösterici olacak.

Şimdiden çok teşekkür ederim.

 

[Asri]

Dosyaları dosya.tc ye yükler mi siniz?
bende insert update ler ile ufaktan ilgileniyorum

 

[sarigozoglu]

http://s4.dosya.tc/server/taekt9/INSERT_UPDATE.xlsx.html

buraya yükledim.

 

[Asri]

ID YIL AY SATIŞ
1 2015 1 100,00

Değişiklik olup olmaması konusunda referans ne olacak.
ID mi, YIL mı, Satış mı?
Aynı ID ancak YIL ,AY, SATIŞ farklı olduğunda yeni bir kayıt mı? Update mi?

ID dikkate alınacak mı? ID dikkate alınacak ise, en son ID den sonrakiler yeni kayıt diğerleri tümü update olacaktır.

Bunları yazdıktan sonra aşağıdaki kriterlere gerek yok sanırım.
Bunlar özel bir durum mu?

ŞAYET 2016 3. AYDAKİ SATIŞ İÇİN BU TABLODA DEĞİŞİKİLİK YAPTI İSEM, UPDATE EDECEK. 2016 5. VEYA 6.AY YENİ İÇİN KAYIT GİRDİYSEM BUNU DA YENİ SATIRA INSERT EDECEK

 

[Asri]

Dosyanız ektedir.

http://s2.dosya.tc/server/cluofi/INSERT_UPDATE_SQL.zip.html

Menu bölümünde SQL server ayarlarını yapınız.

Bilmeyenler için;
ADODB bağlantısının VBA da çalışması için VBA editörde tools da References de Microsoft Activex Data Objects en son sürümü seçiniz.

Program ilk satırdan itibaren yıl ve ayı alır. DB de kontrol eder.
Var ise satış ı update eder.
Yok ise yıl, ay, satış ı insert eder.

'www.asriakdeniz.com - asriakdeniz@gmail.com  21.05.2016

Private CN As ADODB.Connection
Dim RS As ADODB.Recordset
Dim Field As ADODB.Field

Dim SQL As String
Dim Connected, hata As Boolean
Dim i, j, satis As Long
Dim yil, ay As Integer
Dim veri As String
Dim serverip, db, kullanici, sifre As String


Sub menu()
  serverip = "127.0.0.1"
  db = "TESTDB"
  kullanici = "sa"
  sifre = "123"
  hata = False
  
  Call karsilastir
  
  If hata Then
     MsgBox ("Server bağlantsı sağlanamadı.")
  Else
     MsgBox ("Insert ve Update işlemleri tamamlandı.")
  End If
  
End Sub

Sub karsilastir()
 Connected = Connect(serverip, db)
 If Connected Then
    Set RS = New ADODB.Recordset
 Else
    hata = True
    Exit Sub
 End If
  
 sonsatir = Cells(Rows.Count, "A").End(3).Row
 For j = 2 To sonsatir
     yil = Cells(j, 2).Value
     ay = Cells(j, 3).Value
     satis = Cells(j, 4).Value

     If yil = "" Then Exit For
     
     veri = "T.YIL=" & yil & " AND T.AY=" & ay
     SQL = "SELECT count(*) FROM TESTDB.DBO.TBLSATIS T WHERE " & veri
     Set RS = CN.Execute(SQL)
     
     If RS.Fields(0).Value <= 0 Then
        veri = yil & "," & ay & "," & satis
        SQL = "INSERT INTO TESTDB.DBO.TBLSATIS ([YIL],[AY],[SATIS]) VALUES(" & veri & ")"
        If RS.State = adStateOpen Then RS.Close
        RS.Open SQL, CN, adOpenStatic, adLockReadOnly, adCmdText
     Else
        veri = satis & " WHERE YIL=" & yil & " AND AY=" & ay
        SQL = "UPDATE TESTDB.DBO.TBLSATIS SET SATIS=" & veri
        Set RS = CN.Execute(SQL)
     End If
 Next
 
 Set RS = Nothing
 Call Disconnect
End Sub

Function Disconnect()
    CN.Close
End Function

Function Connect(Server, database) As Boolean
 
    Set CN = New ADODB.Connection
    On Error Resume Next
 
    With CN
         .ConnectionString = "Provider=SQLOLEDB.1;" & _
                             "Persist Security Info=False;" & _
                             "Initial Catalog=" & database & ";" & _
                             "Data Source=" & Server & ";" & _
                             "User ID=" & kullanici & ";Password=" & sifre & ";"
        .Open
    End With

    If CN.State = 0 Then
        Connect = False
    Else
        Connect = True
    End If
 
End Function

 

[sarigozoglu]

Çok teşekkür ederim Sn. Asri.
Gayet başarılı ve tam istediğim gibi çalışıyor. Bunun üzerinden devam edeceğim.
Tekrar ellerinize sağlık

 

[Asri]

Çok teşekkür ederim Sn. Asri.
Gayet başarılı ve tam istediğim gibi çalışıyor. Bunun üzerinden devam edeceğim.
Tekrar ellerinize sağlık

Teşekkür ederim.

 

[tactless]

Elinize sağlık benimde çok işime yaradı. Tşkler.