erro chato

[LUIZ PAULO MONTEIRO 0]

Tipo de erro:

ADODB.Recordset (0x800A0BB9)

Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.

/infopara/consulta.asp, line 102

 

A linha 102 é a última por favor se alguém poder me ajudar ficarei feliz pacas

 

----------------------------------------------------------

<%@ Language="VBScript"%>

<!-- #INCLUDE file="adovbs.Inc" -->

<%

'Declaração das variáveis

Dim ConnString 'texto de conexão com o banco de dados

Dim conSofts 'Conexão com o banco de dados

Dim rsDados 'Resultado da consulta

Dim strConsulta 'Nome da consulta'#Função que tira todos os acentos das palavras

 

 

function TiraAcento(StrAcento)

for i = 1 to len(StrAcento)

Letra = mid(StrAcento, i, 1)

Select Case Letra

Case "á","Á","à","À","ã","Ã","â","Â","â","ä","Ä"

Letra = "A"

Case "é","É","ê","Ê","Ë","ë","È","è"

Letra = "E"

Case "í","Í","ï","Ï","Ì","ì"

Letra = "I"

Case "ó","Ó","ô","Ô","õ","Õ","ö","Ö","ò","Ò"

Letra = "O"

Case "ú","Ú","Ù","ù","ú","û","ü","Ü","Û"

Letra = "U"

Case "ç","Ç"

Letra = "C"

Case "ñ"

Letra = "N"

End Select

texto = texto & Letra

next

TiraAcento = texto

end function

Dim strSQL 'Instrução SQL

Dim intPageSize 'Tamanho da página de dados em nº de registros

Dim intPageCount 'Numero de páginas disponiveis

Dim intPageCurrent 'Pagina atual

 

'Define os objetos a serem criados

Set conSofts = Server.CreateObject("ADODB.Connection")

Set rsDados = Server.CreateObject("ADODB.Recordset")

 

'Verifica se foram passadas as variaveis das combos da página principal

If request("cboQuant") <> "" Then Session("cboQuant") = request("cboQuant")

'If request("cboConsulta") <> "" Then Session("cboConsulta") = request("cboConsulta")

If request("cboCategoria") <> "" Then Session("cboCategoria") = request("cboCategoria")

 

'Define o conteudo das demais variáveis

ConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("infopara.mdb")

strConsulta = Session("cboConsulta")

strCategoria = Session("cboCategoria")

 

strconsulta = "1"

If (Request.QueryString("cboConsulta") <> "") Then

strconsulta = Request.QueryString("cboConsulta")

End If

 

Dim rsBusca_palavrachave

Dim rsBusca_palavrachave_numRows

 

cboConsulta = Replace(cboConsulta, "'", "''")

Palavras = SPLIT(cboConsulta," ")

 

if strConsulta <> "" then

if strCategoria <> "" and subcat = "" then

STRSQL = "SELECT * FROM pesquisa WHERE categoria = '"&strCategoria&"' and ( "

FOR I = LBOUND(Palavras) TO UBOUND(Palavras)

STRSQL = STRSQL & "nome like '%"& Palavras(I) &"%' or descricao like '%"& Palavras(I) &"%' or chave like '%"& Palavras(I) &"%'" 'order by tipo"

IF I <> UBOUND(Palavras) THEN

STRSQL = STRSQL & " OR "

END IF

NEXT

STRSQL = STRSQL & ") ORDER BY TIPO ASC"

end if

end if

if strCategoria = "Todos" then

strSQL = "Select * from pesquisa WHERE ( "

FOR I = LBOUND(Palavras) TO UBOUND(Palavras)

strSQL = strSQL & " nome LIKE '%" & Palavras(I) & "%' or descricao like '%"& Palavras(I) &"%' or chave like '%"& Palavras(I) &"%'" 'order by tipo"

IF I <> UBOUND(Palavras) THEN

STRSQL = STRSQL & " OR "

END IF

NEXT

STRSQL = STRSQL & ") ORDER BY TIPO ASC"

end if

 

intPageSize = Session("cboQuant")

 

'Verifica se foi passado o numero da pagina atual

If Request("pagina") = "" Then

intPageCurrent = 1

Else

intPageCurrent = CInt(Request("pagina"))

End If

 

'Define o tamanho da pagina em quantidade de registros

rsDados.Source = STRSQL

rsDados.CursorLocation = adUseClient

'rsDados.PageSize = CInt(intPageSize)

 

'Abre a conexao e a consulta selecionada

conSofts.Open ConnString, 1, 3

rsDados.Open strSQL, conSofts, adOpenStatic, adLockReadOnly, adCmdText

[LUIZ PAULO MONTEIRO 0]

Vi em um manual que a solução deste erro é a instrução abaixo, mas mesmo assim não consegui ajeitar, HELP!!!

 

 

Variável do banco de dados não confere

Solução: Verificar o nome da variável de manipulação de banco de dados que é utilizada na programação.

 

Set banco=server.createobject("adodb.connection")

…

rstab.open "select * from tabela_dvd order by dvd_titulo",bdanco,1,3

 bdanco não foi a variável criada para manipular o banco de dados. Nas declarações a variável criada se chamava banco.

 

Tipo de erro:

ADODB.Recordset (0x800A0BB9)

Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.

/aqui_vai_o_nome_da_sua_pasta/lista.asp, line 33

[jrcardozo 4]

poste a string montada do sql fazendo isso antes de abrir o recordsetresponse.write(strsql)response.end()

[LUIZ PAULO MONTEIRO 0]

Consegui!!! coloquei o response.end() no final e arrumei a rotina , está abaixo para quem tiver o mesmo problema, valeu jonathandj pela ajuda

 

ROTINA BUSCA POR PALAVRAS EM CATEGORIAS OU TODOS

EX: SE PESQUISAR POR LUIZ PAULO

ACHA TANTO REGISTRO COM: LUIZ E REGISTROS COM PAULO

 

'Verifica se foram passadas as variaveis das combos da página principal

If request("cboQuant") <> "" Then Session("cboQuant") = request("cboQuant")

If request("cboConsulta") <> "" Then Session("cboConsulta") = request("cboConsulta")

If request("cboCategoria") <> "" Then Session("cboCategoria") = request("cboCategoria")

 

'Define o conteudo das demais variáveis

ConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("iteste.mdb")

strConsulta = Session("cboConsulta")

strCategoria = Session("cboCategoria")

Palavras = SPLIT(strConsulta," ")

 

 

if strConsulta <> "" then

if strCategoria <> "" and subcat = "" then

STRSQL = "SELECT * FROM pesquisa WHERE categoria = '"&strCategoria&"' and ( "

FOR I = LBOUND(Palavras) TO UBOUND(Palavras)

STRSQL = STRSQL & "nome like '%" & Palavras(I) & "%' or descricao like '%"& Palavras(I) &"%' or chave like '%"& Palavras(I) &"%'"

IF I <> UBOUND(Palavras) THEN

STRSQL = STRSQL & " OR "

END IF

NEXT

STRSQL = STRSQL & ") ORDER BY TIPO ASC"

end if

end if

if strCategoria = "Todos" then

strSQL = "Select * from pesquisa WHERE ( "

FOR I = LBOUND(Palavras) TO UBOUND(Palavras)

strSQL = strSQL & " nome LIKE '%" & Palavras(I) & "%' or descricao like '%"& Palavras(I) &"%' or chave like '%"& Palavras(I) &"%'" 'order by tipo"

IF I <> UBOUND(Palavras) THEN

STRSQL = STRSQL & " OR "

END IF

NEXT

STRSQL = STRSQL & ") ORDER BY TIPO ASC"

end if