Выполнить оператор SQL, передав имена столбцов SQL в качестве аргументов через функцию - PullRequest
0 голосов
/ 07 января 2019
Public Function fetchUserInfo(columnnames As String)
    strsQL = "SELECT name,address FROM userInfo.csv"
end function

Если внутри функции fetchUserInfo, над оператором SQL, я прямо даю имена столбцов, например name, address, он получает результат.

При передаче имен столбцов параметров / аргументов в функции и использовании аргументов в выражении sql, эта ошибка показывает:

значение не указано для одного или нескольких параметров в макросе vba

Sub user()
Dim sqlColumnNames As String
sqlColumnNames = "name,address"
fetchUserInfo sqlColumnNames 
EndSub

Public Function fetchUserInfo(columnnames As String)
    strsQL = "SELECT  " & columnnames & " FROM userInfo.csv"
End Function

1 Ответ

0 голосов
/ 07 января 2019

Это то, что вы хотите?

Sub user()
Dim sqlColumnNames As String, strSQL As String

sqlColumnNames = "name,address"
strSQL = fetchUserInfo(sqlColumnNames)
MsgBox strSQL

End Sub

Public Function fetchUserInfo(columnnames As String) As String
    fetchUserInfo = "SELECT  " & columnnames & " FROM userInfo.csv"
End Function
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...