set recordset.activeconnection = currentproject.activeconnection / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / set recordset.activeconnection = currentproject.activeconnection

10 сообщений из 10, страница 1 из 1

set recordset.activeconnection = currentproject.activeconnection

#32880172

funddd

Участник

Откуда: Алма-Ата, Казахстан

Сообщения: 1 389

Рейтинг: 0 / 0

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.

Private Sub КнопкаУх_Click()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
cnn.Open "Driver={Microsoft Excel Driver (*.xls)};DBQ=Мойэксельныйфайл.xls"
rs.Open "select * from [Лист]", cnn
Set rs.ActiveConnection = CurrentProject.Connection
...
Set rs = Nothing

...

Рейтинг:

0 / 0

24.01.2005, 14:36:31

| Ответить | Цитировать | Написать

set recordset.activeconnection = currentproject.activeconnection

#32880179

ЛП

Участник

Сообщения: 3 925

Рейтинг: 0 / 0

Это mdb или adp?

...

Рейтинг:

0 / 0

24.01.2005, 14:38:42

| Ответить | Цитировать | Написать

set recordset.activeconnection = currentproject.activeconnection

#32880185

funddd

Участник

Откуда: Алма-Ата, Казахстан

Сообщения: 1 389

Рейтинг: 0 / 0

mdb

...

Рейтинг:

0 / 0

24.01.2005, 14:39:41

| Ответить | Цитировать | Написать

set recordset.activeconnection = currentproject.activeconnection

#32880186

funddd

Участник

Откуда: Алма-Ата, Казахстан

Сообщения: 1 389

Рейтинг: 0 / 0

Access XP
SP3

...

Рейтинг:

0 / 0

24.01.2005, 14:40:02

| Ответить | Цитировать | Написать

set recordset.activeconnection = currentproject.activeconnection

#32880202

Alexey Sh

Участник

Откуда: SPB

Сообщения: 1 940

Рейтинг: 0 / 0

Что-то здесь лишнее

Код: plaintext

1.
2.

rs.Open "select * from [Лист]", cnn
Set rs.ActiveConnection = CurrentProject.Connection

На каком коннекшне рекордсет открываетя? Накойхер(с) вторая строка?

...

Рейтинг:

0 / 0

24.01.2005, 14:48:27

| Ответить | Цитировать | Написать

set recordset.activeconnection = currentproject.activeconnection

#32880212

ЛП

Участник

Сообщения: 3 925

Рейтинг: 0 / 0

2 funddd
Может сделать проще?

Код: plaintext

Insert Into TemporaryTable
From [Лист] In "Мойэксельныйфайл.xls" "Excel"

...

Рейтинг:

0 / 0

24.01.2005, 14:49:59

| Ответить | Цитировать | Написать

set recordset.activeconnection = currentproject.activeconnection

#32880224

ктоnothing?

Гость

funddd

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.

Private Sub КнопкаУх_Click()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
cnn.Open "Driver={Microsoft Excel Driver (*.xls)};DBQ=Мойэксельныйфайл.xls"
rs.Open "select * from [Лист]", cnn
Set rs.ActiveConnection = CurrentProject.Connection
...
Set rs = Nothing

И вот на этом ругаисся, что, дескать, объект закрыт.

Вообще-то задача стоит так:
эксельный файл открыть, прочитать, сохранить в базу.

не знаю, почему, но TransferSpreadSheet отказывается видеть файл по тому пути, по которому он находится. Пошел вкружным путем, до конца не уверен, что он правильный, одно радует — коннекшн открываетс, рекордсет заполняется.
А вот что дальше, черт его знает.

Сам не пробовал. Но вдруг?

попробуй
после
Set cnn = New ADODB.Connection
сказать
1) cnn.cursorLocation= adUseClient

после
rs.Open "select * from [Лист]", cnn
сказать
set rs.ActiveConnection=Nothing

а потом
сказать
Set rs.ActiveConnection = CurrentProject.Connection

при этом у тебя должна быть табла [Лист]
а потом нужно что-то типа UpdateBatch сказать

все это может не сработать, т.к. статусы у читанных записей локальных не изменились.
Так что (может оказаться) либо сначала модифицировать в цикле, а потом апдейтбатч., либо попытаться задействовать стрим - типа отперсистить первоначальный рекордсет в стрим, а в новый , открытый на
CurrentProject.Connection добавить из этого стрима.

...

Рейтинг:

0 / 0

24.01.2005, 14:53:40

| Ответить | Цитировать | Написать

set recordset.activeconnection = currentproject.activeconnection

#32880230

ктоnothing?

Гость

ЛП рулит, как всегда
:)

...

Рейтинг:

0 / 0

24.01.2005, 14:55:23

| Ответить | Цитировать | Написать

set recordset.activeconnection = currentproject.activeconnection

#32880236

funddd

Участник

Откуда: Алма-Ата, Казахстан

Сообщения: 1 389

Рейтинг: 0 / 0

2 Alexey Sh:
Да хрен его, вопщем-то знает. Почитал форум, решил сделать "отсоединенный рекордсет", который типа присоединить к другому коннекшну.

2 ЛП:
Вот будешь смеятся, но именно так он у меня не находит файлю Файл тот создается какой-то дурацкой софтиной, и даже при открытии в Excel, сильно ругается на ошибку доступа. Формат видимо, ваще какой-то левенький. Ну, это я так думаю...

...

Рейтинг:

0 / 0

24.01.2005, 14:57:07

| Ответить | Цитировать | Написать

set recordset.activeconnection = currentproject.activeconnection

#32880335

funddd

Участник

Откуда: Алма-Ата, Казахстан

Сообщения: 1 389

Рейтинг: 0 / 0

п...ц
мистика

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

хм...

...

Рейтинг:

0 / 0

24.01.2005, 15:24:24

| Ответить | Цитировать | Написать

10 сообщений из 10, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / set recordset.activeconnection = currentproject.activeconnection

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&msg=32880230&tid=1669099]:	0ms
get settings:	7ms
get forum list:	10ms
check forum access:	2ms
check topic access:	2ms
track hit:	34ms
get topic data:	6ms
get forum data:	2ms
get page messages:	32ms
get tp. blocked users:	1ms
others:	210ms

total:	306ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы