資源描述:
《excelsqlservervba增刪改查》由會員上傳分享,免費在線閱讀,更多相關(guān)內(nèi)容在工程資料-天天文庫。
1、ExcelSQLServerVBA增刪改查BuladeHu(QQ1667989813)2014-05-141、打開Excel的開發(fā)工具2、查看VBA代碼(右鍵單擊對應(yīng)的Sheet->單擊查看代碼)1、VBAProject里面存放代碼實現(xiàn),Sheet1里面的代碼是指對應(yīng)的工作簿的,ThisWorkbook指Excel整個文檔“保存”按鈕里面實現(xiàn)的邏輯,會影響所有的工作簿。2、鏈接數(shù)據(jù)的代碼如下Publicconn1AsNewADODB.ConnectionPrivateSubWorkbook_BeforeSave(ByValSav
2、eAsUIAsBoolean,CancelAsBoolean)'建立數(shù)據(jù)鏈接Ifconn1.State=0ThenWithconn1.CommandTimeout=60.ConnectionString="PROVIDER=SQLOLEDB;server=192.168.252.106;database=kuka_basedata;UID=u9pub;PWD=123".OpenEndWithEndIfDimrstempAsNewADODB.RecordsetDimsSQLAsStringOnErrorGoToerr1'倉庫驗貨導
3、入Fori=2ToSheet1.[A65536].End(xlUp).RowIfSheet1.Cells(i,1)<>""ThenSetrstemp=conn1.Execute("select*fromkuka_OrderMonitorElsewhere銷售訂單號='"&Sheet1.Cells(i,1)&"'")Ifrstemp.EOF=TrueThensSQL=sSQL&"insertintokuka_OrderMonitorElse(銷售訂單號,驗貨實際完成,驗貨狀態(tài),驗貨備注)values('"&Sheet1.Cells
4、(i,1)&"','"&Sheet1.Cells(i,2)&"','"&Sheet1.Cells(i,3)&"','"&Sheet1.Cells(i,4)&"')"ElsesSQL=sSQL&"updatekuka_OrderMonitorElseset驗貨實際完成='"&Sheet1.Cells(i,2)&"',驗貨狀態(tài)='"&Sheet1.Cells(i,3)&"',驗貨備注='"&Sheet1.Cells(i,4)&"'where銷售訂單號='"&Sheet1.Cells(i,1)&"'"EndIfEndIfNextiIf
5、sSQL<>""Thenconn1.Execute(sSQL)EndIf'財務(wù)付款導入sSQL=""Fori=2ToSheet2.[A65536].End(xlUp).RowIfSheet2.Cells(i,1)<>""ThenSetrstemp=conn1.Execute("select*fromkuka_OrderMonitorElsewhere銷售訂單號='"&Sheet2.Cells(i,1)&"'")Ifrstemp.EOF=TrueThensSQL=sSQL&"insertintokuka_OrderMonitorE
6、lse(銷售訂單號,第一次付款保障實際完成,第二次付款實際完成時間)values('"&Sheet2.Cells(i,1)&"','"&Sheet2.Cells(i,2)&"','"&Sheet2.Cells(i,3)&"')"ElsesSQL=sSQL&"updatekuka_OrderMonitorElseset第一次付款保障實際完成='"&Sheet2.Cells(i,2)&"',第二次付款實際完成時間='"&Sheet2.Cells(i,3)&"'where銷售訂單號='"&Sheet2.Cells(i,1)&"'"En
7、dIfEndIfNextiIfsSQL<>""Thenconn1.Execute(sSQL)EndIfMsgBox"變更完成"ExitSuberr1:MsgBoxErr.DescriptionEndSub