ник: Explorer
кривое ТЗ неохота возиться... тем более 42 поля непонятного типа и неизвестной длины... слишком много неясностей -
на таком количестве записей как много может быть дублирующихся значений в первом поле?
какой длины может получиться результат?
через какой разделитель соединять подхваченные из таблицы значения?
что делать с пропущенными значениями (Null)?
и самое главное - что потом со всем этим делать? :)
копаться для того, чтобы выяснить что ты сам не знаешь чего хотел? уже сейчас поменялась формулировка и суть задачи...
в общем случае ГетСтринг тебе в руки
Function GetAsString(GroupBy As String) As String
Dim rst As New ADODB.Recordset
Dim strSQL As String
strSQL = "Select * From MSysObjects where Type = " & GroupBy & ";"
rst.Open strSQL, CurrentProject.Connection
GetAsString = rst.GetString
rst.Close
Set rst = Nothing
End Function
|