Galera tenho o seguinte codigo que funcionava perfeitamente com banco de dados access .mdb
'recolhendo as datas do formulario
var_datai = trim(request.form("datai"))
var_dataf = trim(request.form("dataf"))
' Verifica Datai, se é válida
data_teste = trim(request.form("datai"))
ano = right(data_teste,4)'Seleciona Ano
mes = right(data_teste,7)'Seleciona mês e ano
mes = left(mes,2) 'seleciona mes
dia=left(data_teste,2) ' seleciona o dia
datai = ano&"/"&mes&"/"&dia
datai_brasileira = dia&"/"&mes&"/"&ano
if IsDate(datai) = False Then
Response.Write("<script language='JavaScript'>alert('Data inicial Inválida use o formato DD/MM/AAAA!');location.href='Atualizar_brasfels.asp';</script>")
else
'Verifica Dataf, se é válida
data_test = trim(request.form("dataf"))
ano = right(data_test,4)'Seleciona Ano
mes = right(data_test,7)'Seleciona mês e ano
mes = left(mes,2) 'seleciona mes
dia=left(data_test,2) ' seleciona o dia
dataf = ano&"/"&mes&"/"&dia
dataf_brasileira = dia&"/"&mes&"/"&ano
if IsDate(dataF) = False Then
Response.Write("<script language='JavaScript'>alert('Data Final Inválida use o formato DD/MM/AAAA!');location.href='Atualizar_brasfels.asp';</script>")
end if
end if
Function invertdata(data)
d=day(cdate(data))
m=month(cdate(data))
a=year(cdate(data))
invertdata = m & "/"& d & "/" & a
SESSION("Vdatai")=var_datai
SESSION("Vdataf")=var_dataf
end function
var_datai = invertdata(var_datai)
var_dataf = invertdata(var_dataf)
%>
<%
'realiza o select
vSql = "select * from tab_atualizar_brasfels where data between #"&var_datai&"# and #"&var_dataf&"# order BY codigo DESC"
set myrst = server.createObject("ADODB.Recordset")
myRst.Open vSql, conn, 3,3
%>
migrei para o mysql e agora qnd pesquiso aparece o seguinte erro:
Microsoft OLE DB Provider for ODBC Drivers erro '80040e21'
O driver ODBC não oferece suporte para as propriedades solicitadas.
/cyder/Atualizar_bf_consulta_data.asp, line 56
a linha 56 esta em negrito
'realiza o select
vSql = "select * from tab_atualizar_brasfels where data between #"&var_datai&"# and #"&var_dataf&"# order BY codigo DESC"
set myrst = server.createObject("ADODB.Recordset")
myRst.Open vSql, conn, 3,3