[Resolvido] Problemas na CONSULTA

[Eduardo Villa 2]

Olá galera, quanto tempo hen...

 

Estou com um problema em uma consulta.

ERRO:

Microsoft VBScript runtime error '800a01a8'

Object required: "

/compremax/extrato_pontos.asp, line 19

A LINHA 19 É ESSA:

rsPontos.Open SQL, Conexao

 

 

<!-- #include file="seguranca_fornecedores.asp" -->
<!-- #include file="adovbs.inc" -->
<!-- #include file="conexao.asp" -->

<tr class="celula_campo">
	<td>NOME</td>
    <td align="center">TRANSAÇÃO</td>
    <td align="center">DATA</td>
    <td align="center">VL. COMPRA</td>
    <td align="right">% DESC.</td>
    <td align="right">VL. DESC.</td>
    <td align="right">STATUS</td>
</tr>

<%
SQL = "SELECT TransacoesSMT.*, Pessoas."
SQL = SQL & "FROM TransacoesSMT"
SQL = SQL & "INNER JOIN Pessoas ON TransacoesSMT.PessoaID = Pessoas.PessoaID"
SQL = SQL & "WHERE TransacoesSMT.Datahora BETWEEN '" & data_i & "' AND '" & data_f & "'"
SQL = SQL & "AND Transacoes.PrestadorID = " & cod
SQL = SQL & "AND Transacoes.Status <> R"
SQL = SQL & "ORDER BY TransacoesSMT.Datahora"

rsPontos.Open SQL, Conexao ******LINHA ERRO******
WHILE NOT rsPontos.EOF
%>

Aguardo resposta.
Valew

<tr class="celula_campo">
	<td><%= rsPontos("Nome") %></td>
	<td align="center"></td>
	<td align="center"></td>
	<td align="center"></td>
	<td align="right"></td>
	<td align="right"></td>
	<td align="right"></td>
</tr>

<%   
rsPontos.MoveNext   
Wend
rsPontos.Close  
%> 

[webmind 5]

SQL = SQL & "AND Transacoes.PrestadorID = " & cod

 

 

deveria ser

 

SQL = SQL & "AND Transacoes.PrestadorID = " & cod & " "

[Eduardo Villa 2]

Webmind,

 

Fiz a alteração que você falou e ficou assim:

<%
SQL = "SELECT TransacoesSMT.*, Pessoas.*"
SQL = SQL & "FROM TransacoesSMT"
SQL = SQL & "INNER JOIN Pessoas ON TransacoesSMT.PessoaID = Pessoas.PessoaID"
SQL = SQL & "WHERE TransacoesSMT.Datahora BETWEEN '" & data_i & "' AND '" & data_f & "'"
SQL = SQL & "AND Transacoes.PrestadorID = " & cod & " " 
SQL = SQL & "AND Transacoes.Status <> 'R'"
SQL = SQL & "ORDER BY TransacoesSMT.Datahora"
rsPontos.Open SQL, Conexao [b]******LINHA ERRO******[/b]
WHILE NOT rsPontos.EOF
%>

Mesmo assim continua o erro,

ERRO:

Microsoft VBScript runtime error '800a01a8'

Object required: "

/compremax/extrato_pontos.asp, line 19

 

 

Aguardo resposta

Valew

[hargon 64]

Você tem que dar espaço antes de concatenar a variável SQL. Se der um response.write nela, verá que ficou tudo embolado.

 

Veja abaixo como deve ficar:

SQL = "SELECT TransacoesSMT.*, Pessoas.* "
SQL = SQL & " FROM TransacoesSMT"
SQL = SQL & " INNER JOIN Pessoas ON TransacoesSMT.PessoaID = Pessoas.PessoaID"
SQL = SQL & " WHERE TransacoesSMT.Datahora BETWEEN '" & data_i & "' AND '" & data_f & "'"
SQL = SQL & " AND Transacoes.PrestadorID = " & cod & " " 
SQL = SQL & " AND Transacoes.Status <> 'R'"
SQL = SQL & " ORDER BY TransacoesSMT.Datahora"

[Eduardo Villa 2]

Olá hargon,

Coloquei assim:

<%
SQL = "SELECT TransacoesSMT.*, Pessoas.*"
SQL = SQL & " FROM TransacoesSMT"
SQL = SQL & " INNER JOIN Pessoas ON TransacoesSMT.PessoaID = Pessoas.PessoaID"
SQL = SQL & " WHERE TransacoesSMT.Datahora BETWEEN '" & data_i & "' AND '" & data_f & "'"
SQL = SQL & " AND Transacoes.PrestadorID = " & cod & " "
SQL = SQL & " AND Transacoes.Status <> 'R'"
SQL = SQL & " ORDER BY TransacoesSMT.Datahora"
rsPontos.Open SQL, Conexao
While not rsPontos.EOF
%>

Mesmo assim continua o erro,

ERRO:

Microsoft VBScript runtime error '800a01a8'

Object required: "

/compremax/extrato_pontos.asp, line 19

 

Será que pode ser algum item do banco de dados?

[Patrique 0]

mano tenta assim

 

SQL = SQL & " WHERE TransacoesSMT.Datahora BETWEEN #" & data_i & "# AND #" & data_f & "#"

[Eduardo Villa 2]

Patrique,

 

Continua dando o mesmo erro com a alteração que você me pediu pra fazer...

 

 

Será que pode ser alguma coisa no banco de dados?

[hargon 64]

rsPontos foi criado onde? e conexao?

[Eduardo Villa 2]

Galera ja deu certo...

Não tinha criado o rsPontos mesmo Hargon

 

 

Obrigado a todos

Valew

[hargon 64]

Bacana Dudesigner. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif