Makro ile SQL'de UPDATE nasıl çalıştırılır ?

[bykursat]

S.A.
Forumda aradım ancak bulamadım

Sheets("STOK").Activate
Range("A1").Select
With Selection.QueryTable
.Connection = _
"ODBC;DRIVER=Easysoft IB6 ODBC;Pwd=masterkey;Uid=sysdba;server=denemeserver:;APP=Microsoft Office 2003;Database=\\denemeserver\Shop\2007\2007.gdb"
.CommandText = Array( _
"select * from newsstok n")
.Refresh BackgroundQuery:=False
End With

yukarıdaki komutlarla varolan database bağlanıp query ile verileri excele getirebiliyorum

ancak yapmak istediğim
excelden database Update Sql komutu uygulamak
işte bunu beceremedim

Örnek vermek gerekirse Databasedeki Stok Tablesinde isim sutununda bulunan tüm Alileri Veli Yapmak
Update Stok s Set s.isim = "Veli" Where s.isim = "Ali"

bilen bir arkadaşdan yardım bekliyorum
A.R.O.

 

[Ferhat Pazarçevirdi]

Veritabanınızın bir yedeğini alarak aşağıdaki kodları kendinize uyarlayıp deneyiniz.

Sub update()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Tablo = "X" 'Tablo ismini burada kendiniz belirleyiniz
Alan1 = "s.isim" 'Değiştirilecek alanı buraya kendiniz belirtiniz.
Kriter = "Ali"
Deger = "Veli"
conn.ConnectionString = "DRIVER={Easysoft IB6 ODBC};Pwd=masterkey;Uid=sysdba;server=denemeserver: ;APP=Microsoft Office 2003;Database=\\denemeserver\Shop\2007\2007.gdb"
conn.Open
Sql = "UPDATE " & X & " SET " & Alan1 & "=" & Deger & " WHERE " & Alan1 & "=" & Kriter
conn.Execute (Sql)
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub

 

[bykursat]

Allah Razı Olsun kardeşim
Reference bölümünden Microsoft Activex Data Object referansını ekledikten sonra UPDATE SQL çalıştı
çok işime yarayacak
tekrar teşekkür ederim.
A.R.O.

 

[Ferhat Pazarçevirdi]

İşine yaradığına sevindim. Kolay gelsin