Вопрос по запросу к БД

[Алексей К.]

Код: Выделить всё

запрос = "SELECT * FROM файлы where папка=" + """" + старое_имя + """" + ";"
Set rs = db.OpenRecordset(запрос) 'запрос по папке
записей = rs.RecordCount
Do Until rs.EOF
    записей = rs.RecordCount
    rs.Edit
    rs.Fields("папка") = новое_имя
    rs.Update
    rs.MoveNext
Loop

Выполняю запрос по условию, я точно знаю что записей отбирается больше чем 1. почему когда делаю точку останова на строках:
записей = rs.RecordCount
Только после того как цикл два раза пройдет - переменная "записей" показывает правильное кол-во записей. А сначала показывает - значение 1. Почему так?

[Konst_One]

нужен клиентский курсор:

Код: Выделить всё

rs.CursorLocation = adUseClient

[Konst_One]

извини, я думал у тебя ADO, а ты с DAO работаешь.
вот это тебе поможет:

Код: Выделить всё

rs.MoveLast
rs.MoveFirst

debug.Print rs.RecorCount

[Алексей К.]

Оно самое! Спасибочки

[alibek]

Либо открывай курсор, как Dynaset, тогда не надо будет репозиционировать курсор.

[Алексей К.]

Возник попутный вопрос. Таблица "Каталоги". Поля "Имя", "Ключ" -уникальный .
Помогите с текстом запроса: Показать список "имен" которые встречаются в поле "имя" более чем 1 раз (парные). Этот код вроде должен работать на mysql. Написал запрос в аце, но при его запуске запрашиваются почемуто для ввода значения полей "имя" и "ключ".

Код: Выделить всё

SELECT каталоги.имя, каталоги.ключ
FROM каталоги AS A, каталоги AS B
WHERE A.имя=B.имя And A.ключ<>B.ключ;

[alibek]

Значит "ключ" это не имя поля, а его Caption. Смотри в конструкторе, как поле называется.
Для отбора неуникальных имен советую использовать GROUP BY (с предложением HAVING).

[Алексей К.]

"ключ" имя поля точно. Может в аце не проходят такие дела как (создаю два обьекта)?
FROM каталоги AS A, каталоги AS B
Можно пример кода под ац для твоего варианта (group by&having)

[alibek]

Код: Выделить всё

select count(*)
from каталоги as A
where ...
group by [A].[имя]
having count(*) > 1


[Алексей К.]

Догнал сам. Короче получилось таким способом:

Код: Выделить всё

SELECT DISTINCT *
FROM каталоги AS A, каталоги AS B
WHERE A.имя=B.имя And A.ключ<>B.ключ;

А первый вариант получается неправильный.

Код: Выделить всё

SELECT каталоги.имя, каталоги.ключ
FROM каталоги AS A, каталоги AS B
WHERE A.имя=B.имя And A.ключ<>B.ключ;

Хотя имена полей правильные, в конструкторе смотрел.

[Andrey Fedorov]

Значит "ключ" это не имя поля, а его Caption. Смотри в конструкторе, как поле называется.
Для отбора неуникальных имен советую использовать GROUP BY (с предложением HAVING).

Вроде в Access-e имена с буклвкой "ч" надо заключать в квадратные скобки. То есть запрос должен выглядеть примерно так:

Код: Выделить всё

SELECT имя, COUNT(*) AS КолВо
FROM каталоги
GROUP BY имя
HAVING COUNT(*)>1

А вообще, в Access-e при нажатии на конпочку "Создать" окна базы данных есть возможность создать подобный запрос - можно и им воспользоваться, на крайний случай...

[Andrey Fedorov]

Хм. в моем ответе нет слова с ключ, поэтому и квадратные скобки не понадобились

[Алексей К.]

А чтобы неправильный код заработал нужно всего-то поправить:
SELECT каталоги.имя, каталоги.ключ
на
SELECT А.имя, А.ключ

[Andrey Fedorov]

А чтобы неправильный код заработал нужно всего-то поправить:
SELECT каталоги.имя, каталоги.ключ
на
SELECT А.имя, А.ключ

Но от этого сам запрос менее кривым не станет...

[Алексей К.]

Но от этого сам запрос менее кривым не станет...

В каком смысле???