Erro: tipos imcompatíveis

[hudsonalves 0]

Preciso de ajuda, estou tentando trazer dados da coluna chamada DAT_NAME para uma lista suspensa que posteriormente será gravada na coluna DAT_SEASON.

 

 

Conexão:

<%
set rsTypesSEASON = Server.CreateObject("ADODB.Recordset")
rsTypesSEASON.ActiveConnection = MM_connDUportal_STRING
rsTypesSEASON.Source = "SELECT TOP 4 * FROM DATAS, CHANNELS, CATEGORIES WHERE CAT_CHANNEL = CHA_ID AND DAT_CATEGORY = CAT_ID AND DAT_CURRENT=1 AND CAT_ID = 297 AND DAT_CATEGORY = CAT_ID AND DAT_USER = '" & Session("MM_Username") & "' ORDER BY DAT_DATED DESC"
rsTypesSEASON.CursorType = 0
rsTypesSEASON.CursorLocation = 2
rsTypesSEASON.LockType = 3
rsTypesSEASON.Open()
rsTypesSEASON_numRows = 0
%>


<%
Dim HLoopernewsCampeonato__numRows
HLoopernewsCampeonato__numRows = -2
Dim HLoopernewsCampeonato__index
HLoopernewsCampeonato__index = 0
rsTypesSEASON_numRows = rsTypesSEASON_numRows + HLoopernewsCampeonato__numRows
%>
<%
startrw = 0
endrw = HLoopernewsCampeonato__index
numberColumns = 1
numrows = 4
while((numrows <> 0) AND (Not rsTypesSEASON.EOF))
startrw = endrw + 1
endrw = endrw + numberColumns
%>

Chamando o campo DAT NAME:

<% If Request.QueryString("nChannel") = "Campeonato" Then %>
<tr> 
<td colspan="3">TEMPORADA:</td>
<td colspan="2"> 
<select name="SEASON" type="text" class="input-text"  size="1">
<option value="<%=rsTypesSEASON("DAT_NAME")%>" selected><%=rsTypesSEASON("DAT_NAME")%></option>
</select> 
</td>
</tr>
<% Else %>
<input name="SEASON" type="hidden" value="0"> 
<% End If %>

Fechando conexão:

<%
While ((startrw <= endrw) AND (Not rsTypesSEASON.EOF))
%>
<%
startrw = startrw + 1
rsTypesSEASON.MoveNext()
Wend
%>
<%
numrows=numrows-1
Wend
%>
<%
rsTypesSEASON.Close()
%>

ERRO:

 [Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério./fut/includes/inc_submit.asp, linha 369

Linha do erro em questão: rsTypesSEASON.Open()

 

[xanburzum 169]

verifique se os tipos de dados são corretos,ex:

 

numérico com numérico, string com string

 

e dê um response.write na sua string SQL para ver o que esta sendo passada.

[Mário Monteiro 179]

rsTypesSEASON.Source = "SELECT TOP 4 * FROM DATAS, CHANNELS, CATEGORIES WHERE CAT_CHANNEL = CHA_ID AND DAT_CATEGORY = CAT_ID AND DAT_CURRENT=1 AND CAT_ID = 297 AND DAT_CATEGORY = CAT_ID AND DAT_USER = '" & Session("MM_Username") & "' ORDER BY DAT_DATED DESC"

 

De onde estão vindo estes valores que voce está pesquisando?

 

Faça o que foi pedido no post anterior e post aqui o resultado