erro: 800a01a8 - Object required: ''

[marciolvs 1]

Já virei os códigos de ponta cabeça e não achei o que está errado.

 

linha comando 76:

strSQL = "SELECT TOP 1 * FROM tbl_imovel " & strWHERE & " (ProxCobranca = '" & MesHoje & "/" & AnoHoje & "' OR ProxCobranca = '00/0000') AND id_Cliente > 0;"

Response:

SELECT TOP 1 * FROM tbl_imovel WHERE ( Transacao = 'Mensal' OR Transacao = 'Semestral' OR Transacao = 'Anual' ) AND (ProxCobranca = '06/2013' OR ProxCobranca = '00/0000') AND id_Cliente > 0;

erro:

Microsoft VBScript runtime error '800a01a8'
Object required: ''
/admin/frame_pagamento_cobranca.asp, line 76

 

* o campo "ProxCobranca" no banco está como texto e já possui vários cadastros.

[xanburzum 169]

a variavel MesHojedá onde esta vindo os dados da mesma, e se esta como texto dá um CStr

[marciolvs 1]

a variavel MesHojedá onde esta vindo os dados da mesma, e se esta como texto dá um CStr

 

 

segue

MesHoje = adZero(Month(Now()), 2)
AnoHoje = Year(Now())

[xanburzum 169]

deste jeito ela esta com Date, converte ela com o CStr

[Gilberto Jr 26]

Pra converter basta fazer dessa forma

CSTr(MesHoje) = adZero(Month(Now()), 2)
CSTr(AnoHoje) = Year(Now())

Att;

[xanburzum 169]

porqur vc não quer trabalhar com o formato de hora no bd. muitas vezes fica melhor de gereciar

[marciolvs 1]

Pra converter basta fazer dessa forma

CSTr(MesHoje) = adZero(Month(Now()), 2)
CSTr(AnoHoje) = Year(Now())

Att;

 

 

deu erro Gilberto.

 

Microsoft VBScript runtime error '800a000d'
Type mismatch: 'CSTr'

 

 

porqur vc não quer trabalhar com o formato de hora no bd. muitas vezes fica melhor de gereciar

 

 

o sistema já estava pronto, se eu mudar não pode dar dor de cabeça futuramente ?

e quando mudei ele veio como dd/mm/aaa e tem de ser apenas mm/aaaa

[Gilberto Jr 26]

Veja se agora da certo

CStr(MesHoje)

[marciolvs 1]

 

Veja se agora da certo

CStr(MesHoje)

mas ai eu vou ter que tirar

 

(Month(Now()), 2)

Year(Now())

ai ele não vai buscar os campos em local algum

[Gilberto Jr 26]

Então, eu fiz o teste aqui e funcionou.

<%
response.Write(CStr(Month(Now()))&"<br>"&CStr(Year(Now())))
%>

Lembrando que Month vai trazer somente o do mês atual e o Year vai trazer o ano atual. Você pode fazer um select para trazer todo desse mês ou do ano.

select * from nametable where data=Month(Now())
'Now() é usado direto no SQL ou no MYSQL. Se for no ASP voce deve usar Month(Date())

Att

[marciolvs 1]

Então, eu fiz o teste aqui e funcionou.

<%
response.Write(CStr(Month(Now()))&"<br>"&CStr(Year(Now())))
%>

Lembrando que Month vai trazer somente o do mês atual e o Year vai trazer o ano atual. Você pode fazer um select para trazer todo desse mês ou do ano.

select * from nametable where data=Month(Now())
'Now() é usado direto no SQL ou no MYSQL. Se for no ASP voce deve usar Month(Date())

Att

 

Se eu usar desta forma ele não trata o "0" assim me gerando erro

 

Mudei alinha para pegar o valor direto

 

 

strSQL = "SELECT TOP 1 * FROM tbl_imovel WHERE ProxCobranca = '06/2013' AND id_Cliente > 0"

 

 

mesmo assim o erro permanece

 

 

SELECT TOP 1 * FROM tbl_imovel WHERE ProxCobranca = '06/2013' AND id_Cliente > 0
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/admin/frame_pagamento_cobranca.asp, line 79

 

 

linhas:

 

77: strSQL = "SELECT TOP 1 * FROM tbl_imovel WHERE ProxCobranca = '06/2013' AND id_Cliente > 0"
78: response.Write(strSQL)
79: Set Rs = Conexao.Execute("strSQL")