使用Excel VBA通​​過ADODB

Question

更新SQL Server中的數據在Excel Sheet1中，數據從SQL Server的拉昇：

code Name 
1  ALI 
2  SALEM 

我想更新數據使用VBA不是從一個完整的SQL查詢 更換名稱ALI到Ahmed

有沒有辦法做到這一點？ Excel是否爲我提供了一種在不發送SQL查詢的情況下進行更新的方法？

一些信息：

**TABEL Name** = Tb1 
**colmun1** = code(in excel) = Emp_code (sql) 
**colmun2** = Name(in excel) = E_name (sql) 

服務器名稱：HHsqlexpress

Answer 1

我發現通過ADODB代碼這個VBA >>>如果有任何修改或添加

Private Sub UpdateSQLData() 
On Error GoTo err 
Dim cn As New ADODB.Connection 
Dim rs As New ADODB.Recordset 
Dim sql_string As String 
Dim strconn As String 

DataBaseName = "----" 
ServerName = "196.1.1.1/SSDDSDS" 
UserId = "ADMIN" 
Password = "123" 

strconn = "Provider=SQLOLEDB.1;Password=" & Password & ";User ID=" & UserId & ";Initial Catalog=" & DataBaseName & ";Data Source=" & ServerName 
sql_string = "update transactions set CustomerID='2' where amount =1000 " 
cn.Open strconn 
rs.Open sql_string, cn 


Set rs = Nothing 
cn.Close 

Exit Sub 
err: 
MsgBox err.Description 
End Sub