| Вопрос: Как в Runtime изменить Default поля через ADODB | Добавлено: 11.04.06 10:21 |
Автор вопроса:  Inna
|
| Как в Runtime изменить Default поля через ADODB или любую другую Property отдельно взятого поля в таблице (например Caption). Может такое быть что ADODB не поддерживает это? |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #1 | Добавлено: 11.04.06 11:18 |
| Не совсем понял, что значит Default поля. Технология подключения ADO, а ADODB - одна из библиотек ADO. Так вот, в ADO есть ещё библиотека ADOX, вот с помощью неё нужного тебе как раз можно добиться. Подключи Project-Refrences... Microsoft ADO Ext. 2.5 (msadox.dll) и исследуй её. | ||
|
Номер ответа: 2 Автор ответа: Inna Вопросов: 9 Ответов: 3 |
Профиль | | #2 | Добавлено: 11.04.06 14:09 |
|
Dim tbl As New ADOX.Table Dim cat As New ADOX.Catalog Dim cnn As New ADODB.Connection cnn.Open "Provider=MSDASQL.1;Extended Properties="  BQ=E:\My Documents\db1.mdbriver={Microsoft ACCess Driver (*.mdb)}riverId=281;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;"
Set cat.ActiveConnection = cnn Set tbl = cat.Tables("Table1" 
tbl.Columns("SomeField" .Properties("efault Value" = 0
Все равно не получается. После подключения к ADOX, на последней строке когда Default Value поля присваиваю 0 - вываливается такое сообщение: Run-time error '3265': Item cannot be found in the collection corresponding to the requested name or ordinal. Такое же сообщение я получала когда работала через ADODB. Спасибо за помощь. |
||
|
Номер ответа: 3 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #3 | Добавлено: 11.04.06 22:45 |
|
2 mc
>Не совсем понял, что значит Default поля Криво сформулировано, но наверно имеет ввиду значения поля по умолчанию 
2 Inna 1) im oCat As ADOX.Catalog
im oTable As New Table
Set oCat = New ADOX.Catalog oCat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0 ata Source=" & _
ataBasePath$ & ";" & IIf(Trim$(Password) <> "", "Jet OLEDB:Database Password=" & _
Trim$(Password$) & ";", ""
т.е. пересмотри строку подключения... ненравится она мне
2) может так?
tbl.Columns("SomeField" .Properties("efault".Value = ...
? |
||
Страница: 1 |