По сути, мне удалось получить данные из базы данных в набор записей с помощью rs=db.openrecordset(sql). Как вставить данные в ячейку с помощью UDF? Кто-то предложил формулу массива. Тогда как мне изменить данные набора записей на массив? Я знаю, что могу использовать copyfromrecordset . Но он не работает в UDF.
Спасибо.
CopyFromRecordset должно работать нормально ... это то, что я всегда использую. Я чувствую, что здесь что-то упускаю. Вы хотите, чтобы разные запросы выполнялись в зависимости от того, в какую ячейку вы вставляете CSE функцию get_data()? 17.02.2014 .moveLast....moveFirst, чтобы получить количество записей, имеет смысл возвращать только первую запись. 17.02.2014 Это работает для меня с Excel 2003, ADO 2.8:
Function getArray(strSql As String) As Variant
Dim rs As ADODB.Recordset
Dim i As Integer
getArray = ""
Set rs = getRs(strSql)
With rs
.MoveFirst
Do
For i = 0 To .Fields.Count - 1
getArray = getArray & CStr(.Fields(i).Value) & " "
Next i
getArray = getArray & vbLf
.MoveNext
Loop Until .EOF = True
.Close
End With
Set rs = Nothing
End Function
Он перебирает все строки/поля набора записей и возвращает «массив» значений. Его можно использовать как функцию рабочей книги без CSE.
Вот как я подключаюсь к БД:
Function getRs(strSql As String) As ADODB.Recordset
Dim strCn As String
strCn = "Provider=sqloledb;Data Source=(local);Initial Catalog=AdventureWorks;Integrated Security=SSPI;"
Set getRs = New ADODB.Recordset
getRs.Open strSql, strCn, adOpenStatic, adLockReadOnly
End Function
И это пример того, как я могу получить некоторые данные, используя getArray(), на основе критериев из одной ячейки и вернуть результаты в другую (единственную) ячейку.
Function getEmpDataByLastName(strLastName As String) As Variant
Dim strSql As String
strSql = ""
strSql = strSql & "SELECT BusinessEntityID, PersonType, FirstName, COALESCE(MiddleName,'') AS MiddleName "
strSql = strSql & "FROM Person.Person "
strSql = strSql & "WHERE LastName = '" & strLastName & "' "
strSql = strSql & "ORDER BY FirstName "
getEmpDataByLastName = getArray(strSql)
End Function
