Модификация полей ADODB.Recordset / Visual Basic

ReSQL.ru

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

Гость

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

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Модификация полей ADODB.Recordset

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

Модификация полей ADODB.Recordset

#33583583

pr0teus

Гость

Есть программа для работы с базой данных Visual Fox Pro. В определенный момент необходимо модифицировать записи из выборки, делается это у меня так

Код: 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.
26.
27.
28.
29.

' выборка
If (l_objRecordSetSecond.State = adStateOpen) Then l_objRecordSetSecond.Close
l_objRecordSetSecond.Open "SELECT act, state, owncenterid, date FROM " & ConnectionParam.strTJL & _
                                      " WHERE tableid=" & l_TableID & _
                                      " .AND. dbid=" & l_DBID & _
                                      " .AND. recid=" & l_RECID & _
                                      " .AND. act<>'P'" & _
                                      " .AND. state>=0" & _
                                      " .AND. owncenterid<>" & l_DBIDinPackage, _
                                      l_objDBCConnection, adOpenDynamic, adLockOptimistic

' ...
' другой код
' ...

' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
' тут почему-то происходило зацыкливание  !!!!!!
' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Do Until l_objRecordSetSecond.EOF
       l_objRecordSetSecond.Fields("state").Value = - 1 
       l_objRecordSetSecond.Update
       If (Err <>  0 ) Then
              l_objLog.m_WriteLine "Ошибка. е удалось модифицировать запись в журнале. " & Err.Description
              l_flagWasError = True
              Err.Clear
              End If
              l_objRecordSetSecond.MoveNext
Loop

В последнем коде происходило зацикливание и из-за чего это было не понятно ?(

Но после того как исправил выбоку, всего лишь добавив еще одно поле для вывода ( SELECT act, state, owncenterid, date, centerid ), все стало нормально работать. Это глюк чтоли или я что-то неверно делаю?

Код: 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.
26.
27.
28.
29.

' выборка
If (l_objRecordSetSecond.State = adStateOpen) Then l_objRecordSetSecond.Close
l_objRecordSetSecond.Open "SELECT act, state, owncenterid, date, centerid FROM " & ConnectionParam.strTJL & _
                                      " WHERE tableid=" & l_TableID & _
                                      " .AND. dbid=" & l_DBID & _
                                      " .AND. recid=" & l_RECID & _
                                      " .AND. act<>'P'" & _
                                      " .AND. state>=0" & _
                                      " .AND. owncenterid<>" & l_DBIDinPackage, _
                                      l_objDBCConnection, adOpenDynamic, adLockOptimistic

' ...
' другой код
' ...

' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
' теперь все ОК
' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Do Until l_objRecordSetSecond.EOF
       l_objRecordSetSecond.Fields("state").Value = - 1 
       l_objRecordSetSecond.Update
       If (Err <>  0 ) Then
              l_objLog.m_WriteLine "Ошибка. е удалось модифицировать запись в журнале. " & Err.Description
              l_flagWasError = True
              Err.Clear
              End If
              l_objRecordSetSecond.MoveNext
Loop

Человеки, поможите, что это может быть, ведь ничего не изменилось по сути.

...

Рейтинг:

0 / 0

06.03.2006, 11:51:21

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

Модификация полей ADODB.Recordset

#33583754

TIKO

Гость

почему бы не использовать запрос с выборкой Update в SQL
и не мучить рекордсет
попробуй убери Update и прогони еще раз
или попррбуй использовать save вместо Update-а
хотя вряд ли получиться в рекорсете сформированном чере выборку изменит запись

...

Рейтинг:

0 / 0

06.03.2006, 12:31:26

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

Модификация полей ADODB.Recordset

#33584097

ВasiС

Гость

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

Код: plaintext

1.
2.
3.
4.
5.
6.

' выборка
l_objDBCConnection.Execute "UPDATE " & ConnectionParam.strTJL & " SET state=FALSE WHERE tableid=" & l_TableID & _
                                      " .AND. dbid=" & l_DBID & _
                                      " .AND. recid=" & l_RECID & _
                                      " .AND. act<>'P'" & _
                                      " .AND. state>=0" & _
                                      " .AND. owncenterid<>" & l_DBIDinPackage

И быстрее и красивше =))

...

Рейтинг:

0 / 0

06.03.2006, 13:54:46

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

Модификация полей ADODB.Recordset

#33584644

pr0teus

Гость

ВasiСИ быстрее и красивше =))

Вопрос в общем-то заключался в том, что у меня непроходили изменения почему-то в первом случае, а во втором варианте кода прошли, хотя я добавил только centerid. Таким образом мне просто не понятно из-за чего была ошибка.

А по поводу быстроты, ну не знаю. Что Execute с Update запрсом выполнется быстрее нежели мой цикл, хотя может быть. Только вот выборка у меня почти всегда равна очень малому числу записей от 1 до 10.

...

Рейтинг:

0 / 0

06.03.2006, 16:11:28

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

Модификация полей ADODB.Recordset

#33584743

TIKO

Гость

pr0teus ВasiСИ быстрее и красивше =))

Вопрос в общем-то заключался в том, что у меня непроходили изменения почему-то в первом случае, а во втором варианте кода прошли, хотя я добавил только centerid. Таким образом мне просто не понятно из-за чего была ошибка.

А по поводу быстроты, ну не знаю. Что Execute с Update запрсом выполнется быстрее нежели мой цикл, хотя может быть. Только вот выборка у меня почти всегда равна очень малому числу записей от 1 до 10.

решайся, решайся на Update)))))))))))
скорость и без ошибок
конечно код у тебя красивее, но не эффективнее

...

Рейтинг:

0 / 0

06.03.2006, 16:35:31

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

Модификация полей ADODB.Recordset

#33585246

ВasiС

Гость

Как показывает моя практика работа с Access, крайне нежелательно использовать имена полей схожие с названиями таблиц или с названиями других полей, например
owncenterid похоже на centerid
возможно, название таблицы у тебя: centerider

Может грабли там, а может и нет. Попробуй поменять названия полей, чтобы они были более различимы. Например таблица Centers, поле
CenterOwn и CenterId. Если нет, то только полный код поможет увидеть причину. (хотя я не знаю, будет ли у кого желание разбираться)

...

Рейтинг:

0 / 0

06.03.2006, 19:27:40

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

Модификация полей ADODB.Recordset

#33585505

pr0teus

Гость

Спасибо всем. Попробую повторить сей эффект у себя и поискать эти грабли 8) А то это не дело, когда прога зацыкливается по неизвестным причинам.

...

Рейтинг:

0 / 0

06.03.2006, 22:51:19

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

Модификация полей ADODB.Recordset

#33585812

pr0teus

Гость

А вот и грабли Query-based update failed because the row to update could not be found.

Может ли быть такое, что команда l_objRecordSetSecond.Update является асинхронной и последовательность команд при следующей итерации цикла

l_objRecordSetSecond.Fields("state").Value = -1
l_objRecordSetSecond.Update

вызовет ошибку, т.к. предыдущая еще выполняется, и как следствие получается зацыкливание при данном коде

Код: plaintext

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

Do Until l_objRecordSetSecond.EOF
     l_objRecordSetSecond.Fields("state").Value = - 1 
     l_objRecordSetSecond.Update
     If (Err <>  0 ) Then
          l_objLog.m_WriteLine "Ошибка. Не удалось модифицировать запись. " & Err.Description
          l_flagWasError = True
          Err.Clear
     End If
     l_objRecordSetSecond.MoveNext
Loop

...

Рейтинг:

0 / 0

07.03.2006, 08:47:53

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

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

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Модификация полей ADODB.Recordset

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

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

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

start [/forum/topic.php?fid=60&msg=33585505&tid=2166259]:	0ms
get settings:	7ms
get forum list:	14ms
check forum access:	3ms
check topic access:	3ms
track hit:	179ms
get topic data:	8ms
get forum data:	2ms
get page messages:	36ms
get tp. blocked users:	1ms
others:	234ms

total:	487ms

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