Excelde Sql Update Sorgusu Çalıştırma

[cansusalman]

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]

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.

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

 

[Asri]

.