Список таблиц в базе

[Mario]

Используя ADODC. DAO не катит.

Нужно узнать сколько таблиц и с какими они именами в произвольной базе данных. Причем вывести их нужно без системных!
Помогите пожалуйста.

[alibek]

OpenSchema.
А ADODC лучше выкинь.

[Mario]

Как я понял это вот так должно быть.
не работает.
msgbox вообще не появляется

Код: Выделить всё

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim fn As String
Dim count As Integer
 
CommonDialog1.ShowOpen
fn = CommonDialog1.FileName
 
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset

With conn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & fn
.Mode = adModeReadWrite
.CursorLocation = adUseClient
.Open
End With

Set rs = conn.OpenSchema(adSchemaTables)
count = 0

While Not rs.EOF
    count = count + 1
    If rs.Fields("TABLE_TYPE") = "VIEW" Then
      'Combo1.AddItem rs.Fields("TABLE_NAME"), count
      MsgBox rs!TABLE_NAME
      End If
    rs.MoveNext
Wend

[alibek]

Так ты не VIEW ищи, а TABLE.

[Mario]

А если быть точнее то так работает, но записываются и системные и скрытые таблицы! А мне нужно что бы их не было.
кто нибуть знает как быть!

Код: Выделить всё

While Not rs.EOF
    'If rs!TABLE_TYPE = VIEW Then
      Combo1.AddItem (rs!TABLE_NAME)
      Debug.Print rs!TABLE_NAME
     'End If
    rs.MoveNext

[alibek]

Почитай в MSDN.
Там указано, какие столбцы доступны и что они означают.

[Mario]

Так ты не VIEW ищи, а TABLE.

спасибо огромное

вот рабочий

Код: Выделить всё

While Not rs.EOF
    If rs!TABLE_TYPE = "TABLE" Then
      Combo1.AddItem (rs!TABLE_NAME)
      Debug.Print rs!TABLE_NAME
     End If
    rs.MoveNext

[Mario]

Еще вопросик возник...
про динамическое обновление

как сделать его

вот такой вот у меня код

Код: Выделить всё

Dim fn As String
Dim conn As Adodb.Connection
Dim rs As Adodb.Recordset

'************************************************************************
 
Private Sub closeDB()
conn.Close
End Sub

 
Private Sub openDB()
Set conn = New Adodb.Connection
Set rs = New Adodb.Recordset

With conn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & fn
.Mode = adModeReadWrite
.CursorLocation = adUseClient
.Open
End With

Set rs = conn.OpenSchema(adSchemaTables)
While Not rs.EOF
    If rs!TABLE_TYPE = "TABLE" Then
      Combo1.AddItem (rs!TABLE_NAME)
      'Debug.Print rs!TABLE_NAME
     End If
    rs.MoveNext
Wend

End Sub




'************************************************************************************

Private Sub Command1_Click()
CommonDialog1.ShowOpen
fn = CommonDialog1.FileName

openDB

End Sub

Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
closeDB
conn.Open
With rs
.ActiveConnection = conn
.Source = Combo1.Text
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open , , , , adCmdTableDirect
End With
'MsgBox Combo1.Text & "asd"
Set TDBGrid1.DataSource = rs
Else
On Error Resume Next
End If

End Sub

[alibek]

Непонятно, что ты хочешь.

[Mario]

Динамическое формирование набора колонок таблицы просмотра/редактирования данных.

[alibek]

Понятнее не стало.

[Mario]

Например базу открывают два пользователя и каждый по очереди что то меняет!
Нужно что бы это все обновлялось!
типа того как у adodc есть refresh
но у меня без использования adodc.

может как вариант по таймеру отключаться и сразу подключаться к базе с запоминанием положения курсора.

[alibek]

У ADODB.Recordset тоже есть Refresh. И у грида тоже есть Refresh.

[Mario]

Буду пробовать! Спасибо Alibek!

[Mario]

Мне вот интересно. Возможно создать подключение к БД с помощью API?

[alibek]

Это и есть API. Если ты не знаешь, как расшифровывается API, то посмотри в словаре.

[Mario]

Извиняюсь за глупость свою!

[Mario]

А кто нибудь знает можно ли таблицу заполнить данными без использования datacontrol'a?

[SLIM]

А кто нибудь знает можно ли таблицу заполнить данными без использования datacontrol'a?

Можно.

[Mario]

А как это сделать подскажите?

[SLIM]

Данные откуда будут браться? Сам вводить будешь, с текстового файла, с Exel-го, с небес? откуда?

[Mario]

Днные будут браться с БД Access

[SLIM]

А помещать ты их будешь куда?

[Mario]

В trueDB grid

[SLIM]

Если честно не пользовался этим контролом (да и вообще не пользовался контролами для вывода данных из БД и работы с ними). Вообще из БД можно вытянуть в виде любой структуры с помощью ADO (да и DAO тоже, причем помоему быстрее будет). Можно даже в TreeView, в ListBox, в ListView....да хоть куда в любом виде. Также можно даже в TextBox-ы все выносить (присабачить кнопочку для перехода по записям).
Вопрос в другом. Раз я не знаю этот контрол - там скорее всего есть либо адреса ячеек, либо семейство ячеек, либо семейство строк и столбцов (даже понятия не имею). Зная это можно с легкостью выдать данные с помощью ADO

[Andrey Fedorov]

OpenSchema.
А ADODC лучше выкинь.

А лучше использовть Tables collection [ADOX] ...

[alibek]

Так это ADOX подключать надо, лишняя зависимость.

[Mario]

А если adodb и любой грид! как не использовать datasource