| Вопрос: Навание таблицы в БД | Добавлено: 16.05.05 23:42 |
Автор вопроса:  Mag | ICQ: 289414238 |
| Как узнать названия всех таблиц в БД |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #1 | Добавлено: 17.05.05 01:35 |
| SHOW TABLES FROM `dbname` | ||
|
Номер ответа: 2 Автор ответа: Mag ICQ: 289414238 Вопросов: 30 Ответов: 27 |
Профиль | | #2 | Добавлено: 18.05.05 00:07 |
|
А поподробнее можно.
А то ругается нехорошо и выделяет FROM |
||
|
Номер ответа: 3 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #3 | Добавлено: 18.05.05 01:16 |
| Если БД уже выбрана, то FROM не нужен, просто SHOW TABLES | ||
|
Номер ответа: 4 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #4 | Добавлено: 18.05.05 20:25 |
|
Project>References "Microsoft ADO Ext. for DLL and Security"
Public Sub GetListStolbec(DBAccess As String, DBTable As String, ArryList) '+ 'Возвращает списко таблиц Dim cn As New ADODB.Connection 'Use for the connection string Dim cmd As New ADODB.Command 'Use for the command for the DB Dim rs As New ADODB.Recordset 'Recordset return from the DB 'Set the connection string cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0  ata Source=" & DBAccess
'Open the connection cn.Open 'Check that the connection is open If cn.State = 0 Then cn.Open Set cmd.ActiveConnection = cn cmd.CommandText = DBTable cmd.CommandType = adCmdTable Set rs = cmd.Execute 'Count the number of fields or column MyFieldCount = rs.Fields.Count ReDim ArryList(MyFieldCount - 1) 'Заполняем массив столбцами которые есть в таблице For MyIndex = 0 To MyFieldCount - 1 ArryList(MyIndex) = rs.Fields(MyIndex).Name 'Write Title to a Cell Next End Sub |
||
Страница: 1 |