Объект adodb.Поля ошибка' 800a0cc1 ' элемент не может быть найден в коллекции

мне нужно создать поле выбора с данными запроса из моей базы данных, используя метод запроса, который я делал это успешно много раз. Однако сегодня, когда я создал новое поле выбора, страница продолжает говорить мне, что есть ошибка "ADODB.Поля ошибка' 800a0cc1 ' элемент не может быть найден в коллекции ....".

сначала я думал, что это был мой SQL-запрос, который сделал эту ошибку, однако я проверил это на ACCES, он может произвести вывод, как я ожидал. Так что теперь я застрял.. я не знаю, что случилось с моей программой.

поэтому, пожалуйста, помогите мне в этом.. спасибо. ниже приведен мой код

user_id = 1
client_id = 7
response.Write "user_id = " & user_id

Dim rsClient
set rsClient = Server.CreateObject("ADODB.Recordset")
rsClient.ActiveConnection = Conn_string
rsClient.Source ="SELECT tbl_asgnClient.* , tbl_client.* FROM tbl_asgnClient INNER JOIN tbl_client ON tbl_asgnClient.client_id = tbl_client.client_id WHERE tbl_asgnClient.user_id =" & user_id & ""
rsClient.CursorType = 0
rsClient.CursorLocation = 3
rsClient.LockType = 3
rsClient.Open()
rsClient.PageSize = 20
%>
<html>
<body>
<select name = "client_id" onChange="showActivity(this.value)">
    <option selected>select client</option>
<%
        if rsClient.eof then 
            call displayNotFoundRecord
        Else
            Do Until  rsClient.Eof
%>                                                          
        <option  value="<%=rsClient.fields.item("client_id")%>"><%=rsClient.fields.item("client_id")%></option>                                                          
<%      
                rsClient.movenext
                Loop
        End if                                              
%>
  </select>

Я могу гарантировать, что нет ничего, кроме SQL, который может сделать эту ошибку.. потому что я попытался изменить его SQL с помощью запросов ниже, и он работает нормально.

rsClient.Source ="SELECT tbl_asgnClient.* FROM tbl_asgnClient WHERE tbl_asgnClient.user_id =" & user_id & " "

или этот ...

rsClient.Source ="SELECT tbl_client.* FROM tbl_client  "

Я также гарантирую, что один раз, который я в настоящее время использовал, сможет произвести вывод в MS ACCESS. Поэтому, пожалуйста, помогите мне..

6

1 ответов

ваш SQL имеет два столбца с одинаковым именем - в то время как значения будут одинаковыми, ADO не знает, какое поле вы хотите

9