Ссылка на ячейку на VBA с использованием ADO и SQL - PullRequest
Новая
       31

Ссылка на ячейку на VBA с использованием ADO и SQL

0 голосов
/ 11 июля 2020

Приведенный ниже код используется для подключения к списку sharepoint и удаления строк. ГДЕ значения «Столбца кода» соответствуют «VALUE», могу ли я изменить «VALUE» в приведенном ниже коде на ссылку на ячейку, например [A1]? как?

Источник видео кода: https://www.youtube.com/watch?v=UWrVLdFaapQ&list=PLo0aMPtFIFDrcPiWbqJGb3qt3rkOmjDbN&index=5

Sub allTst_SharePoint()


Dim mySQL As String
Dim cnt As ADODB.Connection
Dim rst As ADODB.Recordset
Dim xuser As String
Dim xactivity As String
Dim xtimesince As Date


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


mySQL = "Delete * FROM [mylist] WHERE [Code] = 'VALUE' ;" 


With cnt
    .ConnectionString = _
    "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=0;RetrieveIds=Yes;DATABASE=mySPsite;LIST={myguid};"
    .Open
End With

cnt.Execute mySQL, , adCmdText
    
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

1 Ответ

1 голос
/ 11 июля 2020

Попробуйте 

Dim myValue As String
myValue = Range("a1")
mySQL = "Delete * FROM [mylist] WHERE [Code] = '" & myValue & "' ;"
...