Excelde Sql Update Sorgusu Çalıştırma

Katılım
20 Ağustos 2019
Mesajlar
1
Beğeniler
0
Excel Vers. ve Dili
2016 - Türkçe
#1
Arkadaşlar merhaba,

Excelde sql update sorgusunu nasıl çalıştırabilirim.

Örnek sorgu:

update spUrtUser set sComputerName ='' where sUserName =''

sorguda bulunan username kısmına kullanıcı adını excel aracılığıyla girip update imkanı var mıdır
 

asri

Altın Üye
Altın Üye
Katılım
24 Nisan 2005
Mesajlar
2,821
Beğeniler
81
Excel Vers. ve Dili
Office 2016 TR 64 Bit
#2
Merhaba,

Foruma hoş geldiniz.

Denetim masası / yönetimsel araçlar / ODBC den SQLserver için bağlantı oluşturmalısınız.
Bu bağlantı adını kod içinde ODBC_ADI bölümüne yazın.
kod daki diğer sql bilgilerini düzenleyin.

SQL sorgusunda şuan için select var siz istediğiniz sorguyu ekleyerek deneyiniz.
Denemelerinizi bir test datasında yapınız. Kod sorumluluğu size aittir. :)

Kod:
Sub listele()
    Dim conn As Object
    Dim RS As Object
    Dim data As Variant

    Set conn = CreateObject("ADODB.Connection")
    Set RS = CreateObject("ADODB.Recordset")
    
    connPath = "DSN=ODBC_ADI;Server=BILGISAYAR\SQLSERVERADI;;Initial Catalog=VERITABANIADI;Uid=sa;Pwd=sifresi;"

    conn.Open connPath

    Range("E3:F1000").ClearContents

    Sql = ""
    Sql = Sql + " SELECT [urun],[adet] FROM [VERITABANI].[dbo].[URUNTABLO] "

    Set RS = conn.Execute(Sql)

    If RS.State Then
      Col = 1
      'For Each Field In RS.Fields
      '    Cells(5, Col) = Field.Name
      '    Col = Col + 1
      'Next Field
      Cells(3, "E").CopyFromRecordset RS
      Set RS = Nothing
    End If

    Set conn = Nothing
End Sub
 
Üst