Не работает OpenRecordset / Microsoft Access

ReSQL.ru

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

Гость

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

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Не работает OpenRecordset

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

Не работает OpenRecordset

#32484976

marvel

Участник

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

Рейтинг: 0 / 0

Попытка открыть OpenRecordset таблицы из MSQL Server не получается

Dim Crdb As Database, rst As Recordset

'If CheckCotalugeCod = 0 Then
Set Crdb = CurrentDb

Dim TableName As String
TableName = "T_Sys_Cotalogue_Num_" & Catalogue
Set rst = Crdb.OpenRecordset(TableName, dbOpenDynamic)
rst.AddNew
rst![QQQ] = order
RegOrderLR = rst![QQQ1]
rst.Update
rst.Close
Set Crdb = Nothing

...

Рейтинг:

0 / 0

16.04.2004, 18:30

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

Не работает OpenRecordset

#32484981

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 863

Рейтинг: 1 / 0

Какая ошибка и на какой строке - не имеет значения?

...

Рейтинг:

0 / 0

16.04.2004, 18:34

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

Не работает OpenRecordset

#32484989

marvel

Участник

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

Рейтинг: 0 / 0

Ошибка: Invalid argument
После строки 'Set rst = Crdb.OpenRecordset(TableName, dbOpenDynamic) '
в обработчике ошибок сразу перескакивает на 'Set Crdb = Nothing'.

...

Рейтинг:

0 / 0

16.04.2004, 18:41

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

Не работает OpenRecordset

#32485004

Alexander Popov

Участник

Сообщения: 643

Рейтинг: 0 / 0

Может лучше через CurrentProject подключаться если к SQL.

...

Рейтинг:

0 / 0

16.04.2004, 18:57

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

Не работает OpenRecordset

#32485011

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 863

Рейтинг: 1 / 0

dbOpenDynaset

...

Рейтинг:

0 / 0

16.04.2004, 19:00

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

Не работает OpenRecordset

#32485018

marvel

Участник

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

Рейтинг: 0 / 0

Аналогичная ошибка

...

Рейтинг:

0 / 0

16.04.2004, 19:05

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

Не работает OpenRecordset

#32485026

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 863

Рейтинг: 1 / 0

А если так:
Set rst = Crdb.OpenRecordset(TableName, dbOpenDynaset, dbSeeChanges)

...

Рейтинг:

0 / 0

16.04.2004, 19:11

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

Не работает OpenRecordset

#32485027

marvel

Участник

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

Рейтинг: 0 / 0

Со слезами радости ...
Спасибо!

...

Рейтинг:

0 / 0

16.04.2004, 19:14

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

Не работает OpenRecordset

#32485043

marvel

Участник

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

Рейтинг: 0 / 0

Это еще не конец!
RegOrderLR=0 при условии, что order имеет значение.
Соответственно со строки RegOrderLR = rst![QQQ1] сразу скачек на Set Crdb = Nothing.

Если таблица аксесовская то все нормально, а SQL ?

...

Рейтинг:

0 / 0

16.04.2004, 19:28

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

Не работает OpenRecordset

#32485050

marvel

Участник

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

Рейтинг: 0 / 0

Здесь поле QQQ! счетчик

...

Рейтинг:

0 / 0

16.04.2004, 19:34

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

Не работает OpenRecordset

#32485056

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 863

Рейтинг: 1 / 0

Не знаю, поможет ли вот это:\r
\r
/topic/42244&pg=6#633102

...

Рейтинг:

0 / 0

16.04.2004, 19:46

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

Не работает OpenRecordset

#32485057

marvel

Участник

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

Рейтинг: 0 / 0

Получается что через OpenRecordset нельзя добавить запись.

...

Рейтинг:

0 / 0

16.04.2004, 19:49

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

Не работает OpenRecordset

#32485060

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 863

Рейтинг: 1 / 0

Почему? Оно ведь на AddNew не валится.

...

Рейтинг:

0 / 0

16.04.2004, 19:51

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

Не работает OpenRecordset

#32485071

marvel

Участник

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

Рейтинг: 0 / 0

так AddNew без Update ничто.
Тут такая ситуация order это некое число, которое присваивается полю QQQ. Мне надо вытащить соответствующее значение из поля QQQ1. А в обработчике показывается, что rst![QQQ1] = 0, соответственно ничего не присваивается.

...

Рейтинг:

0 / 0

16.04.2004, 20:09

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

Не работает OpenRecordset

#32485076

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 863

Рейтинг: 1 / 0

А оно валится на Update?

...

Рейтинг:

0 / 0

16.04.2004, 20:13

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

Не работает OpenRecordset

#32485098

Shuhard

Участник

Сообщения: 4 676

Рейтинг: 0 / 0

Код: plaintext

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.

‘ выдрано из рабочей телефонной  базы mdb-Acc97 + Sql2000’
‘ODBC подключенные таблички с SQL сервера’
‘ база – tel ‘
‘ odbc(dsn) – tango ‘
‘ табличка  - Tcorp’

Dim MyODBC As Workspace
Dim MyConn As Connection
Dim TestTable As Recordset
Conn_Str  =  "ODBC;DATABASE=tel;UID=sa;PWD=;DSN=tango" 
 Set MyODBC = CreateWorkspace( "", " admin ", "  ", dbUseODBC)
  Set MyConn = MyODBC.OpenConnection("  ", , , Conn_Str)
    Set TestTable = MyConn.OpenRecordset(" Tcorp ", dbOpenDynaset, 0 , dbPessimistic)
    With TestTable
       .AddNew
       ![Corp_Name] = "Новая корпорация"
       .Update
    End With
  TestTable.Close
  MyConn.Close
  MyODBC.Close

...

Рейтинг:

0 / 0

16.04.2004, 20:47

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

Не работает OpenRecordset

#32485214

aleks2

Участник

Сообщения: 12 453

Рейтинг: 0 / 0

Вот так попробуй:

rst.AddNew
rst![QQQ] = order

rst.Update
rst.Refresh
RegOrderLR = rst![QQQ1]

rst.Close
--------------
ибо ежели rst![QQQ1] - счетчик, то откуда ж он возмется в рекордсете до Update?

...

Рейтинг:

0 / 0

17.04.2004, 06:53

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

Не работает OpenRecordset

#32485307

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 863

Рейтинг: 1 / 0

После Update, если я не вру, теряется текущая запись.

...

Рейтинг:

0 / 0

17.04.2004, 13:41

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

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

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Не работает OpenRecordset

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

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

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

start [/forum/topic.php?fid=45&msg=32485026&tid=1675252]:	0ms
get settings:	8ms
get forum list:	21ms
check forum access:	4ms
check topic access:	4ms
track hit:	190ms
get topic data:	12ms
get forum data:	3ms
get page messages:	59ms
get tp. blocked users:	1ms
others:	229ms

total:	531ms

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