0 голосов
спросил от в категории VB6
Ваш код не имеет смысла: вы назначаете a1 из rs , закрываете набор записей, снова открываете его с помощью нового запроса, но никогда не используйте данные из этого запроса.

Я бы ожидал чего-то вроде
'rs.Close rs.Open "Select * from Table1 where NameofTest='" + Label26.Caption + "'", con, adOpenDynamic, adLockPessimistic If Not rs.EOF     a1 = rs.nameoftest     ' ... End If ' ... ' EDIT: Close here rs.Close
Если NameofTest не уникален , вместо этого вы должны использовать цикл:
While Not rs.EOF     a1 = rs.nameoftest     ' ...     rs.MoveNext End While
[EDIT]
Зачем вы открываете набор записей?
Закройте его, когда не используете это больше. Поскольку код вызван пользовательским событием (щелчок), вы не можете использовать его в других функциях, где вы не знаете состояние.
[EDIT]

Пожалуйста, войдите или зарегистрируйтесь чтобы ответить на этот вопрос.

Категории

Добро пожаловать на сайт DraftingCode Q&A, где вы можете задавать вопросы и получать ответы от других членов сообщества.

Связанных вопросов не найдено

...