Здравствуйте, gok, Вы писали:
Чистым SQL похоже что невозможно.
Public Function GetFieldNames(sTable As String) As String
Dim rs As DAO.Recordset
Dim n As Long
Dim sResult As String
If sTable = "" Then
Exit Function
End If
Set rs = CurrentDb.OpenRecordset(sTable)
With rs
For n = 0 To .Fields.Count - 1
sResult = sResult & .Fields(n).Name & vbCrLf
Next 'n
.Close
End With
Set rs = Nothing
InputBox "Result:" & vbCrLf & vbCrLf _
& "Copy this text (it looks jumbled, but it has one field on each line)", _
"FieldNames()", sResult
End Function
Здравствуйте, gok, Вы писали:
gok>В MS SQL есть такая возможность:
gok>select * from INFORMATION_SCHEMA.COLUMNS ...
gok>Возможно ли получить тот же лист в Аксеcе? Или это невозможно в принципе?
Здесь