Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim conn, xRs
NewTime = Now + TimeValue("00:00:03")
'Application.OnTime Now + TimeValue("00:00:05"), "admin"
i = Cells(1, 1)
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;PWD=***;Initial Catalog=db_manage;Data Source=192.168.3.211"
'Set xRs = CreateObject("ADODB.RecordSet")
sSql = "update pc_assets set assets_label ='" & i & "'"
conn.Execute sSql
conn.Close
'Set xRs = Nothing
Set conn = Nothing
End Sub
EXCEL存储数据到sqlserver
最新推荐文章于 2024-05-17 18:53:26 发布