2017-02-11 106 views
-1

更新SQL Server中的數據在Excel Sheet1中,數據從SQL Server的拉昇:使用Excel VBA通​​過ADODB

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

+0

這個問題ISN不太清楚。也許你可以重寫我們,並告訴我們數據當前存儲在哪裏,你想如何改變它,以及你遇到了什麼具體問題。 –

+0

數據存儲在SQL >>我需要更新或從數據庫插入數據excel – ALDHEEB

+0

你在用什麼? ODBC? ADODB? OLEDB? –

回答

0

我發現通過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