xursinix

Galera tem como conectar em 2 ou mais bancos de dados conforme variável exportarda por um formulário???

Eu tentei fazer mas não deu certo, eu queria fazer algo desse tipo.

<%
Dim v_mes

v_mes=request.QueryString("mes") - variável exportada pelo formulário

Sub abre_conexao
Set conexao = Server.CreateObject("ADODB.Connection")

'### Access
cnnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\CTDespesa\dados\"v_mes".mdb;"

   conexao.Open cnnString

End sub

  
Sub fecha_conexao
     Conexao.close
     Set Conexao = nothing
End sub
 
%>

E eu queria que essa variável permanecesse a mesma em todos as outras páginas em que eu uso o Include dessa conexão. Tentei fazer um If dizendo que se a variável fosse Janeiro conectasse a Janeiro.mdb, se fosse Fevereiro conectasse e Fevereiro.mdb, não deu erro mas quando eu atualizava os dados ele atualiza o valor em todos os bancos.

Edit: Também gostaria de saber como se faz para evitar que alguém copie o link e cole. Tipo se ele copiar e colar o link redirecionar para página inicial.

Estou com problema para fazer UPDATE, na verdade o UPDATE está sendo feito só que quando eu jogo valores de até 3 números ele faz numa boa mas se eu jogar acima disso ele só vai 3 casas.

Exemplo: Se eu digitar 389 no formulário ele atualiza legal.
Se eu digitar 129924 ele atualiza 130.

Não sei o que pode estar acontecendo.

Eu gostaria de saber se dá para exportar o conteúdo apresentado na tela para Excel (XLS) ou para Acrobat (PDF) e qual é a programação para fazer.

Obrigado.

E aí galera esse é o meu primeiro tópico. Estou com problema em uma soma de valores e gostaria que alguém me ajudasse, vamos lá.

Tenho um banco com dois campos (Campo1 e Campo2). O que eu quero fazer é somar 3 linhas do Campo2 mas com a condição do Campo1.
Exemplo:
Campo1 Campo2
1 10
2 15
3 20
4 25

O que eu queria era somar 1, 3 e 4 mas os valores do Campo2 e o resultado seria 55.

Vou colocar o código que estou usando:

strSQLCampo2 = "SELECT COUNT * FROM tabela Campo1=1 AND Campo1=3 AND Campo1=4"

Set rsSQLCampo1=Conexao.Execute(strSQLCampo1)
if not rsSQLCampo1.eof then
v_Campo1=rsSQLCampo1("Campo2")
end if

response.write v_campo1

O que eu quero é que a variável v_Campo1 receba o valor de 55 o IF é para o caso dos valores serem "zero".

Valeu Galera.

Edit: Galera eu queria resolver este problema sem ter que jogar os valores em variáveis para depois somar.