VBNet - Форум - Получение списка таблиц в ADO

Вопрос: Получение списка таблиц в ADO Добавлено: 01.08.03 11:40

Автор вопроса: VitaliySm | ICQ: 172279570

Народ подскажите плз, как узнать что таблица системная? Получаю вписок ВСЕХ таблиц базы данных, а мне нужно без системных
Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: VitaliySm ICQ: 172279570 Вопросов: 7 Ответов: 4	Профиль \| \| #1	Добавлено: 01.08.03 11:47
	Кстати, может кто знает как вывести список баз принадлежащих определенному tablespace Ответить

Номер ответа: 2
Автор ответа:

boevik

Хранитель чата

ICQ: 137392264

Вопросов: 8
Ответов: 557

Web-сайт: www.hypertech.ru
Профиль | | #2

Добавлено: 01.08.03 14:27

Какая база?

Есть два направления:

1. OpenSchema

Set rstSchema = cnn1.OpenSchema(adSchemaTables)

2. Если база SQL Server можно сделать select таблице sysobjects.

Ответить

Номер ответа: 3 Автор ответа: VitaliySm ICQ: 172279570 Вопросов: 7 Ответов: 4	Профиль \| \| #3	Добавлено: 01.08.03 14:53
	База данных DB2, мне нужно выбрать таблицы из определенной tablespace, но я не разобрался пока как это можно сделать, я пока только получаю список ВСЕХ (в т.ч. и системных) таблиц и их полей, но мне эти системные не нужны, если есть ссылки или знаете нужные книги, напишите плз... Ответить

Номер ответа: 4
Автор ответа:

Черный ворон

Разработчик

ICQ: 342881585

Вопросов: 32
Ответов: 256

Профиль | | #4

Добавлено: 18.09.03 08:38

Dim str As String = "Provider=Microsoft.jet.oledb.4.0

ata Source=c:\\northwind.mdb"
Dim conn As New OleDb.OleDbConnection()
conn.ConnectionString = str

' Open a connection
conn.Open()
Dim ca As Object

'Call GetOleDbSchemaTable
Dim schemaTable As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, _New Object() {Nothing, Nothing, Nothing, "TABLE"})

Dim tableList As New DataTable("Table")
Dim rowvals(0) As Object
Dim newdc As New DataColumn("Col")
tableList.Columns.Add(newdc)
Dim rowcoll As DataRowCollection = tableList.Rows
Dim counter As Integer

For counter = 0 To schemaTable.Rows.Count - 1
Dim rd As DataRow = schemaTable.Rows(counter)
If rd("TABLE_TYPE").ToString = "TABLE" Then
rowvals(0) = rd("TABLE_NAME").ToString
rowcoll.Add(rowvals)
End If
Next

' Attach data row to the grid and close the connection
DataGrid1.DataSource = tableList
conn.Close()

Ответить

Страница: 1 |