|
||
| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
30.09.2009, 17:40 | #1 | |
Как вставить в автокад с помощью VBA данные из базы данных?
Регистрация: 30.09.2009
Сообщений: 11
|
||
Просмотров: 5578
|
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,848
|
Формулировка заголовка, конечно...
Я так понимаю, что OpenDataBase, OpenTable и т.п. - некие высокоуровневые функции, так? В результате OpenTable ты же получаешь объект RecordSet. Вот и проходи по нему последовательно, добавляя поэлементно в ListBox.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 30.09.2009
Сообщений: 11
|
Кулик Алексей aka kpblc,я только начинаю осваивать вба, и не совсем понял как надо пройти по этому объекту, не мог бы ты написать простейший пример как это сделать? а я попробую разобраться
по поводу OpenDataBase, OpenTable не знаю высокоуровневые они или нет,в мануале небольшом нашел эти функции |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,848
|
Уже сто лет не писал на VB(A) код для работы с БД через ADO. Ну, примерно так:
Код:
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 30.09.2009
Сообщений: 11
|
Кулик Алексей aka kpblc, спасибо за помощь и уделенное время! все заработало,правда сначала автокад ругался на эту конструкцию
dbConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=<Путь к mdb>;" & _ "Persist Security Info=False", _ "ИмяПользователя" но после замены ее на dbConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & "путь" & ";" Стало норм все) |
|||
|
||||
Регистрация: 30.09.2009
Сообщений: 11
|
Как решить аналогичную проблему, только извлечь данные надо не из БД аксес, а из файла, созданного при помощи самого ВБА? Например, я создал файл a.txt следующим образом:
Open "C:\a.txt" For Output As #1 Print #1, "2"; Tab(1); "3"; Tab(1); "4" Пытаюсь из него вставить данные в комбобокс: Dim current_string Open "C:\a.txt" For Output As #1 Do While Not EOF(1) Line Input #1, current_string Здесь, видимо, нужно вставить конструкцию,с помощью которой будут добавляться записи в комбобокс, но не могу разобраться какую Loop Close #1 Подскажите пожалуйста, в правильном ли направлении начал составлять код и какую конструкцию нужно написать, чтобы добавить данные в комбобокс? п.с. можно ли при помощи вба создать файл (например содержащий таблицу) для более удобного хранения списка значений, чем текстовый файл ,но не экселевский,вордовский и т.д., а стандартный visual basic'овский? Последний раз редактировалось Kostia8_8, 13.10.2009 в 17:48. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,848
|
Попробуй ComboCox.Add
А "стандартного VBшного файла", по-моему, не существует.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Мониторы LCD CRT | Разное | 94 | 17.06.2008 10:51 | |
Как в Автокад вставить свою собственную панель инструментов? | АлександрМихайлович | AutoCAD | 10 | 05.03.2007 14:28 |
Как получить данные из диалога DCL. | mmax | Программирование | 4 | 11.02.2006 22:14 |
Как вставить в Автокад 2002RUS рисунок.gif? | dudin | AutoCAD | 5 | 26.07.2005 14:36 |
Создание базы данных стандартных изделий для Автокад | Владимир В | Прочее. Программное обеспечение | 4 | 23.03.2005 10:36 |