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

ReSQL.ru

2.0.61

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

Гость

Войти | Профиль | Очистить

Нов. | Гор. | Избр.

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

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

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

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

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

Действия ...

Доб. в избранное
Игнор. тему
Прикреп. тему
Пометить прочит. / непрочит.
Фильтр:
Сообщения автора темы
Сообщение содержит вложения
Сообщение содержит картинки
Сообщение содержит видеоклипы
Сообщение содержит аудиоклипы
Сообщение содержит картинки или видео 18+

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

16.04.2004, 18:30

#32484976

marvel

Участник

Сообщения: 1 066
Рейтинг: 0 / 0

Не работает OpenRecordset

Попытка открыть 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:34

#32484981

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

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

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)
Сообщения: 40 863
Рейтинг: 1 / 0

Не работает OpenRecordset

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

...

Рейтинг:

0 / 0

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

16.04.2004, 18:41

#32484989

marvel

Участник

Сообщения: 1 066
Рейтинг: 0 / 0

Не работает OpenRecordset

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

...

Рейтинг:

0 / 0

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

16.04.2004, 18:57

#32485004

Alexander Popov

Участник

Сообщения: 643
Рейтинг: 0 / 0

Не работает OpenRecordset

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

...

Рейтинг:

0 / 0

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

16.04.2004, 19:00

#32485011

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

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

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)
Сообщения: 40 863
Рейтинг: 1 / 0

Не работает OpenRecordset

dbOpenDynaset

...

Рейтинг:

0 / 0

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

16.04.2004, 19:05

#32485018

marvel

Участник

Сообщения: 1 066
Рейтинг: 0 / 0

Не работает OpenRecordset

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

...

Рейтинг:

0 / 0

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

16.04.2004, 19:11

#32485026

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

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

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)
Сообщения: 40 863
Рейтинг: 1 / 0

Не работает OpenRecordset

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

...

Рейтинг:

0 / 0

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

16.04.2004, 19:14

#32485027

marvel

Участник

Сообщения: 1 066
Рейтинг: 0 / 0

Не работает OpenRecordset

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

...

Рейтинг:

0 / 0

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

16.04.2004, 19:28

#32485043

marvel

Участник

Сообщения: 1 066
Рейтинг: 0 / 0

Не работает OpenRecordset

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

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

...

Рейтинг:

0 / 0

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

16.04.2004, 19:34

#32485050

marvel

Участник

Сообщения: 1 066
Рейтинг: 0 / 0

Не работает OpenRecordset

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

...

Рейтинг:

0 / 0

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

16.04.2004, 19:46

#32485056

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

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

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)
Сообщения: 40 863
Рейтинг: 1 / 0

Не работает OpenRecordset

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

...

Рейтинг:

0 / 0

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

16.04.2004, 19:49

#32485057

marvel

Участник

Сообщения: 1 066
Рейтинг: 0 / 0

Не работает OpenRecordset

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

...

Рейтинг:

0 / 0

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

16.04.2004, 19:51

#32485060

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

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

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)
Сообщения: 40 863
Рейтинг: 1 / 0

Не работает OpenRecordset

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

...

Рейтинг:

0 / 0

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

16.04.2004, 20:09

#32485071

marvel

Участник

Сообщения: 1 066
Рейтинг: 0 / 0

Не работает OpenRecordset

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

...

Рейтинг:

0 / 0

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

16.04.2004, 20:13

#32485076

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

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

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)
Сообщения: 40 863
Рейтинг: 1 / 0

Не работает OpenRecordset

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

...

Рейтинг:

0 / 0

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

16.04.2004, 20:47

#32485098

Shuhard

Участник

Сообщения: 4 676
Рейтинг: 0 / 0

Не работает OpenRecordset

Код: 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

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

17.04.2004, 06:53

#32485214

aleks2

Участник

Сообщения: 12 453
Рейтинг: 0 / 0

Не работает OpenRecordset

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

rst.AddNew
rst![QQQ] = order

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

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

...

Рейтинг:

0 / 0

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

17.04.2004, 13:41

#32485307

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

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

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)
Сообщения: 40 863
Рейтинг: 1 / 0

Не работает OpenRecordset

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

...

Рейтинг:

0 / 0

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

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

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

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

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

start [/forum/topic.php?fid=45&mobile=1&tid=1675252]:	0ms
get settings:	8ms
get forum list:	10ms
check forum access:	2ms
check topic access:	2ms
track hit:	150ms
get topic data:	8ms
get forum data:	2ms
get page messages:	38ms
get tp. blocked users:	1ms
others:	213ms

total:	434ms

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