Sub GetFields()
Dim con As ADODB.Connection
Dim adoxCat As New ADOX.Catalog
Dim adoxTable As ADOX.Table
Dim adoxTableColumns As ADOX.Columns
Dim i As Integer
Dim l As Integer
Set con = Application.CurrentProject.Connection
Set adoxCat.ActiveConnection = con
Set adoxTable = adoxCat.Tables("dummy")
Set adoxTableColumns = adoxTable.Columns
l = adoxTableColumns.Count
For i = 0 To l - 1
Debug.Print adoxTableColumns(i).Name
Next i
End Sub
Как определить список всех столбцов в таблице Access
И еще - не потребуется ли менять такой запрос в случае если количество столбцов увеличится?
Цитата: ANNDRR
Как определить список всех столбцов в таблице Access?
И еще - не потребуется ли менять такой запрос в случае если количество столбцов увеличится?
И еще - не потребуется ли менять такой запрос в случае если количество столбцов увеличится?
Не потребуется.
SELECT * FROM Table1
А такой вопрос - если необходимо получить только список имен всех столбцов, за исключением двух столбцов А и Б
SELECT C,D,n FROM table1
Но заранее их имена могут быть не известны - проблема в том что в таблицу периодически будут добавлятся новые столбцы...
В MS SQL можно рискнуть реализовать такое, через системную таблицу. Но как это обстоит в Access, я не знаю.
Цитата: ANNDRR
Данный запрос подразумевает что мне известны имена столбцов С, D?
Но заранее их имена могут быть не известны - проблема в том что в таблицу периодически будут добавлятся новые столбцы...
Но заранее их имена могут быть не известны - проблема в том что в таблицу периодически будут добавлятся новые столбцы...
Немного не понятно, как все это у тебя будет происходить. Ну добавил кто-то в таблицу новый столбец. Но ты же всегда можешь посмотреть его имя тем же SELECT * FROM ... А потом сформируешь тот запрос, какой тебе нужен.
Цитата: ANNDRR
Спасибо!
А такой вопрос - если необходимо получить только список имен всех столбцов, за исключением двух столбцов А и Б
А такой вопрос - если необходимо получить только список имен всех столбцов, за исключением двух столбцов А и Б
А на чём пишется алгоритмическая часть? В VBA можно
Код:
Не забудь подключить в References Microsoft ActiveX Data Objects 2.8 Library и Microsoft ADO Ext. 2.8 for DDL and Security.
Ещё несколько ссылок:
http://www.c-gator.ru/articles/adox-mdb-csharp/
http://hiprog.com/index.php?option=com_content&task=view&id=251661555&Itemid=35
http://msdn2.microsoft.com/en-us/library/aa704826.aspx
http://msdn2.microsoft.com/en-us/library/ms681520.aspx
http://www.codeproject.com/books/186100558x_16.asp
Огромное спасибо! Это именно то что и нужно было!:)