If com data

[Gui 0]

Amigo, não estou entendendo mto bem o que você quer fazer. você quer filtrar os registros de acordo com o periodo (inverno e verão)? Se for isso, você não precisa de 2 tabelas. Basta apenas uma.

 

Explica detalhademente o que você precisa fazer e o que você já fez. Aí sim poderemos lhe ajudar. ;)

[marvazoler 0]

Amigos desculpem-me pelo mal entendido

 

vamos lá

 

Tenho 2 banco,

 

Inverno

Verão

 

Tenho uma tela de filtrar para horários de ônibus da minha empresa

 

no ano tudo eu uso banco inverno pois minha cidade está com o nº de passageiros normais

 

mas quando chega o verão a quantidade de passageiros altera para menos, ai que entrar a mundaça conexão automática de acordo com a data

 

o banco inverno tem mais registros que o verão.

iai o que pode ser feito?

[Ted k' 126]

se quer fazer comparação de datas, primeiro tem que colocar elas nos formatos iguais, e converter usando o CDate, e depois comparar, se a data está "30/07/2008" a função date tbm tem que estar!

[Jow Xavier 0]

Brother você usa um banco de dados com duas tabelas inverno e verão e você quer que mude de acordo com a data do computador né ?

 

Se for isso ... é mais ou menos isso

 

<%if date() = 'data' then
Set oRs1 = bd.Execute("SELECT * FROM inverno ")
else
end if

if date() = 'data' then
Set oRs1 = bd.Execute("SELECT * FROM verao ")
else
end if%>

você quer q mude o q de acordo com a data ??

[Jow Xavier 0]

se quer fazer comparação de datas, primeiro tem que colocar elas nos formatos iguais, e converter usando o CDate, e depois comparar, se a data está "30/07/2008" a função date tbm tem que estar!

Isso ae !!!

[Public2004 79]

Ainda tá meio bagunçado...

 

Se quer verificar se a data atual está no intervalo (imagino que a data do intervalo seja escrita direto no código) tenta assim:

<%
Dim dataAtual

dataAtual = now()

If dataAtual >= #1/7/2008# AND dataAtual <= #31/7/2008# Then
	Response.Write (dataAtual) &" - Estamos em Julho"
ElseIf dataAtual >= #1/8/2008# AND dataAtual <= #30/8/2008# Then
	Response.Write(dataAtual) &" - Estamos em Agosto"
End If
%>

Se não for isso, explica di novo...

 

Abs

[marvazoler 0]

galera não é um banco e duas tabelas

 

mas sim dois bancos

 

com a mesma estrutura porém o banco inverno tem registro a mais que verão

 

dentro do banco inverno e verão existe os bancos horários

 

olha isso

 

<%
Dim dataAtual

dataAtual = now()

If dataAtual >= #29/7/2008# AND dataAtual <= #31/7/2008# Then
sub abrir_conexao	
	localbd = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("\banco\inverno.mdb") 
   set bd=Server.CreateObject("ADODB.Connection")
   bd.open localbd
end sub

end if
 If dataAtual >= #1/8/2008# AND dataAtual <= #2/8/2008# Then
sub abrir_conexao	
	localbd = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("\banco\verao.mdb") 
   set bd=Server.CreateObject("ADODB.Connection")
   bd.open localbd
end sub
end if

sub fechar_conexao
	bd.close
	Set bd = nothing
end sub
%>

agora entenderam?

[Ted k' 126]

se ligue... tire como base e veja!

 

Function ConverterData(ConData)
	ConData = Right("0"&Day(ConData),2) &"/"& Right("0"&Month(ConData),2) &"/"& Year(ConData)
	ConverterData = ConData
End Function

If ConverterData(Date()) >= ConverterData("29/7/2008") Then
agora vai.....
End If

é essa base amigo!!

[marvazoler 0]

Amigão, não funcionou, está pegando a segunda opção de banco de acordo com a data

 

<%
Function ConverterData(ConData)
	ConData = Right("0"&Day(ConData),2) &"/"& Right("0"&Month(ConData),2) &"/"& Year(ConData)
	ConverterData = ConData
End Function

If ConverterData(Date()) = ConverterData("29/7/2008") Then
sub abrir_conexao	
	localbd = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("\banco\inverno.mdb") 
   set bd=Server.CreateObject("ADODB.Connection")
   bd.open localbd
end sub

end if
If ConverterData(Date()) = ConverterData("1/8/2008") Then
sub abrir_conexao	
	localbd = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("\banco\verao.mdb") 
   set bd=Server.CreateObject("ADODB.Connection")
   bd.open localbd
end sub
end if

sub fechar_conexao
	bd.close
	Set bd = nothing
end sub
%>

[Public2004 79]

Parece que as datas (intervalos) não vem do bd, está editada direto no código, então não precisa da função para converter.

<%
dataAtual = now()

Sub abrir_conexao
	Set bd=Server.CreateObject("ADODB.Connection")
	bd.open localbd

	If dataAtual >= #29/7/2008# AND dataAtual <= #31/7/2008# Then
		localbd = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("\banco\inverno.mdb")
	End if
	If dataAtual >= #1/8/2008# AND dataAtual <= #2/8/2008# Then
		localbd = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("\banco\verao.mdb")
	End if
End Sub

Sub fechar_conexao
	bd.close
	Set bd = nothing
End sub
%>

Abs.

[Ted k' 126]

aqui pegou, apareceu a palavra ok, veja como fiz!!

 

Function ConverterData(ConData)
ConData = Right("0"&Day(ConData),2) &"/"& Right("0"&Month(ConData),2) &"/"& Year(ConData)
ConverterData = ConData
End Function

If ConverterData(Date()) = ConverterData("29/7/2008") Then
RESPONSE.Write("entrou")
else
RESPONSE.Write("não entrou")
End If

[marvazoler 0]

Galera fiz alguns testes que vcs me passaram mas nada então me veio uma idéia

 

<%
'Criando variáveis
Dim localbd, bd,usuario
dim varbanco
varbanco = request.Form("varbanco")
if varbanco = "INVERNO" then
sub abrir_conexao	
	localbd = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("\banco\inverno.mdb") 
   set bd=Server.CreateObject("ADODB.Connection")
   bd.open localbd
end sub
response.Redirect("default.asp")
end if
if varbanco="VERAO" then
sub abrir_conexao	
	localbd = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("\banco\verao.mdb") 
   set bd=Server.CreateObject("ADODB.Connection")
   bd.open localbd
end sub
response.Redirect("default.asp")
end if

%>
<%
sub fechar_conexao
	bd.close
	Set bd = nothing
end sub

%>

o que está errado?

 

Desde já agradeço

[Public2004 79]

Amigo estou querendo ajudar então vou tentar mais uma vez...esquecendo por enquanto o que já está postado...

Por favor me responda:

1 - Você tem dois bancos e precisa acessar um ou outro de acordo com a data?

2 - Esta data (critério) você insere manualmente no código ou vem do banco?

3 - A condição que você está montado é apenas para acesso ao banco x ou y?

4 - Você testou os exemplos citados? Caso afirmativo o que ocorreu?

 

Abs.

[marvazoler 0]

Campeão, deixa eu te fala

 

Q 1 - Eu fiz um análise e não é por data, na verdade tenho uma tela de login que tem 3 campos

 

Digita a Login : Login

Digita a senha: Senha

Banco = Seleciona o banco = campo combo, caso tem as opções "INVERNO OU VERAO"

 

de acorco com o combo vai abrir a conexão do db

 

Considere o ultimo post, por favor

 

Obrigado pela atenção

[Public2004 79]

<%

varBanco = request.Form("varbanco")

 

If varbanco = "INVERNO" Then

localbd = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("\banco\inverno.mdb")

ElseIf varbanco="VERAO" Then

localbd = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("\banco\verao.mdb")

End If

 

Sub abrir_conexao

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

bd.Open localbd

End Sub

%>

 

<%

Sub fechar_conexao

bd.Close

Set bd = Nothing

End Sub

%>