powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / [игнор отключен] [закрыт для гостей] / не работает экспорт mdb в 1c v7.7
7 сообщений из 7, страница 1 из 1
не работает экспорт mdb в 1c v7.7
    #37577100
Xellosslol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Уже 3 дня мучаюсь не получается по коду справочника вывести все данные из бд access
пишет ошибку Все плохо:ADODB.Connection: Операция не допускается, если объект открыт.
Код: plsql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
  Процедура Кнопка()   
	 	var id;
       Акцесс = СоздатьОбъект("ADODB.CONNECTION");     
	      ТабЗнач.НоваяКолонка("примечание");  
 Спр=СоздатьОбъект("Справочник.Сотрудники");
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент() = 1 Цикл
   id=Спр.ТабельныйНомер;
    Попытка
        СтрокаПодключения="Driver={Microsoft Access Driver (*.mdb)};Dbq=g:\К.mdb;Uid=Admin;Pwd=";
        Акцесс.Open(СтрокаПодключения);
    Исключение
        Сообщить("Все плохо:"+ОписаниеОшибки());
        Возврат;
    КонецПопытки;
    Команда = СоздатьОбъект("ADODB.Command");
    Команда.ActiveConnection=Акцесс;          
    ТекстСелект = ("SELECT * FROM К ");
    НаборЗаписей = СоздатьОбъект("ADODB.RecordSet");
    Команда.CommandText=ТекстСелект;
    Попытка
        НаборЗаписей=Команда.Execute;
    Исключение
        Сообщить("Неудача:"+ОписаниеОшибки());
    КонецПопытки;
    Попытка
        НаборЗаписей.MoveFirst();
    Исключение //нет записей в рекордсете
        НаборЗаписей.Close();
        Возврат;
	КонецПопытки; 
    Пока НаборЗаписей.EOF()=0 Цикл  
		q1= НаборЗаписей.Fields("self__id").Value; 
		if q1=id  then         ////////////////////////Если вместе id подставить число то выведет
       ИНН = НаборЗаписей.Fields("self__id").Value;
	   ТабЗнач.НоваяСтрока();
	   ТабЗнач.Примечание = ИНН;
	           endif ;
        НаборЗаписей.MoveNext();
	КонецЦикла; 
   НаборЗаписей.Close();   
enddo;       
 	 	КонецПРоцедуры
    
...
Рейтинг: 0 / 0
не работает экспорт mdb в 1c v7.7
    #37577138
Zerro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Xellosslol,

Сообщить("Все плохо:"+ОписаниеОшибки()); тут?
попробуй из одбс подключится к акцессу -я так проверяю себя
...
Рейтинг: 0 / 0
не работает экспорт mdb в 1c v7.7
    #37577157
rigus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вынесите подключение к акцесу за цикл или закрывайте подключение.
...
Рейтинг: 0 / 0
не работает экспорт mdb в 1c v7.7
    #37577172
Zerro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
rigusВынесите подключение к акцесу за цикл или закрывайте подключение.
и это тоже...не заметил
...
Рейтинг: 0 / 0
не работает экспорт mdb в 1c v7.7
    #37577231
Xellosslol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
вы правы
сам когда тему создал увидел кстати((
...
Рейтинг: 0 / 0
не работает экспорт mdb в 1c v7.7
    #37578226
Xellosslol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Еще вопросик
мне нужно кинуть информацию с бд_mdb в подчиненный справочник но не могу понять где хранится вся информации справочника.
...
Рейтинг: 0 / 0
не работает экспорт mdb в 1c v7.7
    #37578328
tvm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: vbnet
1.
2.
подчинсправочник = создатьобъект("Справочник._КАКОЙВАМНУЖЕН_");
подчинсправочник.использоватьвладельца(Спр.ТекущийЭлемент());


и заполняете все что нужно
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / [игнор отключен] [закрыт для гостей] / не работает экспорт mdb в 1c v7.7
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]