TCMB banka sube bilgilerini güncelleyin.

 

yenilendi.

Not defterine açip vbs uzantili kaydedin.

Dim Data(3)

Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

'---------------------Buradaki server ,database ,uid(user), pwd bilgilerini kendinize göre degistiriniz.----------------------------
connstr = "driver={sql server}; server=server; database=DB; uid=sa; pwd=sapass;"
conn.Open connstr
 
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.Async = "False"
xmlDoc.Load ("http://eft.tcmb.gov.tr/bankasubelistesi/cif.xml")

strQuery = "/csv_data_records/record"
Set colItem = xmlDoc.SelectNodes(strQuery)

nTot = colItem.Length - 1
              
For nCnt = 0 To nTot
                           
    Set oXMLNode = colItem.NextNode()
                   
    '"Kayit NO: " & oXMLNode.Attributes.getNamedItem("num").Text
    
    i = 0
    
    For Each Nodes In oXMLNode.ChildNodes
        Data(i) = Nodes.Text
        i = i + 1
    Next
    
    
    If Data(1)="" Then 'Sube Kodu Bos ise TBLTCMBANASABIT insert/update
    
    query = "SELECT BANKAKODU FROM TBLTCMBANASABIT WHERE BANKAKODU='" & Data(0) & "'"     
       BankaKodu = ""
       rs.Open query, conn
       While Not rs.EOF
         BankaKodu = rs.Fields(0).Value
         rs.MoveNext
       end  
       rs.Close
       
       If BankaKodu = "" Then 'BankaKodu bos ise TBLTCMBANASABIT insert
          cmdquery = "INSERT INTO TBLTCMBANASABIT (BANKAKODU,BANKAADI,YURTDISI,ONLINEDESTEK) " & _
        "VALUES('" & Data(0) & "','" & Replace(Data(2),"'","''") & "','H','H')" 
       conn.Execute(cmdquery)    
        Else 'BankaKodu dolu ise TBLTCMBANASABIT update   
          cmdquery = "UPDATE TBLTCMBANASABIT SET BANKAADI='" & Replace(Data(2),"'","''") & "' WHERE BANKAKODU='" & Data(0) & "'"
         conn.Execute(cmdquery)
       End If
     
     
  Else 'Sube Kodu dolu ise TBLTCMBSUBESABIT insert/update

    query = "SELECT SUBEKODU FROM TBLTCMBSUBESABIT WHERE BANKAKODU='" & Data(0) & "' AND SUBEKODU='" & Data(1) & "'"     
       SubeKodu = ""
       rs.Open query, conn
       
       While Not rs.EOF
         SubeKodu = rs.Fields(0).Value
         rs.MoveNext
       end  
       rs.Close
       
       If SubeKodu = "" Then 'Sube Kodu dolu ise TBLTCMBSUBESABIT insert
          cmdquery = "INSERT INTO TBLTCMBSUBESABIT (BANKAKODU,SUBEKODU,SUBEADI,ULKEKODU,SEHIRKODU,DURUM) " & _
        "VALUES('" & Data(0) & "','" & Data(1) & "','" & Replace(Data(2),"'","''") & "','TR'," & Data(3) & ",0)" 
       conn.Execute(cmdquery)    
        Else 'Sube Kodu dolu ise TBLTCMBSUBESABIT update   
          cmdquery = "UPDATE TBLTCMBSUBESABIT SET SUBEADI='" & Replace(Data(2),"'","''") & "' WHERE BANKAKODU='" & Data(0) & "' AND SUBEKODU='" & Data(1) & "'"     
         conn.Execute(cmdquery)
       End If     
       
    End If
       
Next

Set colItem = Nothing
Set xmlDoc = Nothing
Set rs = Nothing
Set conn = Nothing

Düzenleyen Conari - 18 Şubat 2014 Saat 15:51

Tcmb xml adresini ve biçimini de?i?tirdi sanyrym.

http://s3.dosya.tc/server18/UNzEqL/TCMBexcel.rar.html

XML yapysy de?i?ti?i için excele alyp oradan aktardym.
bir kaçtane ana banka var yeni, onlary manuel açarsynyz.

anlady?ym kadaryyla ?ubelere TCMBAnaSabit tablosunda olmayan bir kayyt girmeye çaly?yyorsunuz.

3-4 tane Ana banka vardy.
Onlary manuel açmanyz gerekti?ini söylemi?tim,
E?er çok eskiden beri güncellemediyseniz o zaman ba?kalary da vardyr sizde.

Olmayan Ana kodlari tanimlamayi unutmayin,