Question

我正在尝试更新文件夹中的共享点列表。我们的结构如下

NewGLJE Log_List_New：2018年：18年12月12日

使用下面的代码，我可以向主文件夹NewGLJE Log_List_New添加一个新项，但是想在12 Dec 18文件夹中进行更新。代码在下面

Option Explicit
Sub AddNew_SP()
Dim cnt As ADODB.Connection
Dim rst As ADODB.Recordset
Dim mySQL As String

Set cnt = New ADODB.Connection
Set rst = New ADODB.Recordset

mySQL = "SELECT * FROM [NewGLJE Log_List_New];"


With cnt
    .ConnectionString = _
    "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=0;RetrieveIds=Yes;DATABASE=http://staging.gl.firstam.net/sites/IFSC/GL/;LIST={71D20BD2-393D-4055-AFC7-476BB8776DE3};"
    .Open
End With

rst.Open mySQL, cnt, adOpenDynamic, adLockOptimistic

rst.AddNew
    rst.Fields("JE/Batch Name") = "JE1234Test"
    rst.Fields("Division") = "DBS"
    rst.Fields("Description") = "TEST"
    rst.Fields("Control Total") = "10000"
rst.Update

If CBool(rst.State And adStateOpen) = True Then rst.Close
Set rst = Nothing
If CBool(cnt.State And adStateOpen) = True Then cnt.Close
Set cnt = Nothing

End Sub

我尝试编辑sql语句以包括子文件夹，但是这会产生语法错误。

任何人都可以帮助我如何更新子文件夹中的列表。

谢谢

VBA更新文件夹内的共享点列表

0 个答案: