Glauco

UFAAAAAAAAAAAAA!!!!!!!!!!!!!!!! BOM DIA A TODOS, PRINCIPALMENTE AOS QUE ME AJUDARAM, SOU MUITO GRATO. COM RELAÇÃO AO ERRO DESCRITO NESSE POST, CONSEGUI ENCONTRAR O ERRO. O PROBLEMA ESTAVA NA MINHA CONEXÃO ESTAVA FALTANDO ALGUMAS COISAS. O erro reportado dizia que o driver não suportava o dispositivo, então mudei a conexão e funcionou!!!!! Conexão correta: Um abraço a todos!!!!!!

Obrigado!!!!

Se quiser posso enviar o código fonte, com alguns comentários para seu email!!!!

Mas com essa variavel você só está chamando a coluna dados, certo??? []'s Victor Teoricamente sim, Pois dado é uma propriedade da minha função. Ele pode assumir vários valores, dependendo de cada chamada da função. pode assumir o seguntes valores: altura peso saltoDist arre (para arremesso) impVert (para impulsão vertical) todos esses valores são campos, ou colunas, da minha tabela TB_TESTE. Vamos por parte!!!!! Entedeu agora??????

na realidade "dado" é uma propriedade da minha função, que é responsavel por formar o nome da tabela do meu BD. digamos que a variável dado armazena o valo "altura" Exemplo: Nesse caso minha tabela chama-se TB_teste, e a variavel "dado" corresponde a um campo da minha tabela. Então terei, segundo o código acima, atribuido a variável "tabela" o valor "TB_teste.altura" Como desejo a média do campo altura, meu código SQL é o seguinte: Onde eu peço a média atraves do comando AVG, do SQL, da variável "tabela" (tb_teste.altura, montado no 1º código acima) a qual eu atribuio o nome armazenado na variável "dado" (altura), por meio do "AS" do código SQL. Depurando o código da minha página percebi que até a execução do código SQL ela não apresenta problemas. Então deveira ter um RescorSet com a seguinte característica: Só vai dar problema quanto atribuo o valor do RecordSet a uma variável qualquer onde "dado", nesse caso ainda é o campo, do RecordSet RsMedia, que eu quero, ou seja, "dado" nesse caso é a "altura". Ainda está meio confuso, mas por favor tente entender!!!!! Dúvidas me avise!!!!!!!!!!

Sim!!! media = rsMedia(""&dado&"") rsMédia é o Recordset dado é o nome da Coluna!!! Estou ficando desesperado!!!!

Sim o mesmo Erro!!!!;)

Engano meu não funcionou nada!!!!!!

Bom dia pessoal!!!! Com relação ao Erro retornado na média, usando o comando AVG do SQL, que todos tiveram a maior pasciência comigo, e me ajudarm muito. Agradeço pela força. Consegui encontrar o erro.... Confome orientações de vocês, desinstalei meu PWS e quando instalei novamente ele deu um erro de MTS, achei aqui um endereço que me ajudou a regularizar o erro. http://www.construindoseusite.com.br/pws/pws.shtm depois disso reintalei o PWS e ele funcionou perfeitamente, rodando tb minha função de média. Só tenho a agrececer a todos, pela boa vontade e pasciencia... BRIADUUUUUUUUU!!!!!!!

poderia por favor me enviar uma dica de onde acho uma boa literatura sobre a configuração do PWS??? Obrigado amigo!!!! T+

Não tenho site, isso vai rodar em intranet, o meu computador é o servidor WEB com o PWS, tudo roda nele!!!!!!! Desde já agrdeço a todos a atenção para o meu problema!!!!!!

Estou trabalhando off line, embora esteja conectado na net, meu computador está rodando o PWS, então todo o desenvolvimento é feito off line. O que eu fiz... Abri o Access da minha máquina, abri uma consulta e inseri o código SQL que estamos discutindo. Aí funcionou belezinha, retornou a média conforme eu necessito. Quando passei o código SQL para minha pagina ASP, estabelecia uma conexão com o banco de dados, e mandei executar o codio SQL (aquele código que passei anteriormente), aí não funcionou, o ASP retorna o erro que já enviei. Será que consegui explicar????? hehehehehehe

O codigo SQL funcionou no Access!!!! Na minha página não!!!!!!

SELECT avg(lixo.num) AS Num1 FROM lixo avg - comando SQL para extrair a média do campo selecionado lixo.num - campo num da tabela lixo (o nome do campo é num) As Num1 - atribui um nome ao resultado do comando AVG FROM lixo - pegas os dados da tabela lixo Primeiro fiz essa consulta no Access e pegeui o código SQL coloquei na minha página. Se eu tirar o AVG desse comando SQL não dá problema nenhum!!!! o código funciona perfeitamente.

Me ensinaram que isso é um Recordset, como sou meio novo nisso,não sei direito. mas o que eu quero fazer com isso é que execute esse SELECT no meu BD. Antes disso já estabeleci a conexão como BD, através do seguinte código:

Agora estou passando todos os parametros, e o erro persiste!!!! dá uma olhadinha nesse código, ele é básicamente o que quero fazer. Comigo esse código está dando o mesmo erro que minha função. Por favor teste esse código para ver se errei em alguma coisa. eu criei uma tabela no meu BD chamada lixo, com 1 único campo chamado NUM, coloquei alguns valores para ele e mandei executar o código abaixo.. O mesmo erro aconteceu. ----------------------------------------------------- Mensagen de erro: Microsoft OLE DB Provider for ODBC Drivers error '80040e21' Erros /EF/teste.asp, line 176 ------------------------------------------------------

Pode ser esse problema!?!?!?!?! não sabia que poderia dar problema. dos atributos da função média pelo um valor não é passado. entre idade e ano. idade e ano, são duas caixas de texto, no formulario anterior, quando preencho idade, quero dizer que procuro alunos com x anos completos até a data de hoje, e quando preencho o ano, quero os alunos nascidos no ano y. será que pode ser por esse o problema?

O erro não está acontecendo no Response.write, o erro acontece justamente quando estou atribuindo a consulta do SQL à função, ou a qualquer outra variável. Nessa linha:

O erro não está acontecendo no Response.write, o erro acontece justamente quando estou atribuindo a consulta do SQL à função, ou a qualquer outra variável. Nessa linha:

?Pois, o response.Write serve apenas para escrever na tela alguma coisa. A sintaxe que você colocou está errada mesmo, por isso o erro! O que é aquele media fora do parêntese? E o restante o que é? Tudo variavel? Explica aí, ok? Olá, primeiramente obrigado pela ajuda!!!! não postei o código inteiro, só postei a função que estou usando para montar minha SQL de consulta e a chamada da função. O que estou tentando fazer é o seguinte: response.write media("altura",sexo,serie,escola,anobase,idade,ano) Aqui estou tentando disparar uma chamada à função media, onde passo esses atributos, os quais recupero de um formulário da minha pagina anterior. * Altura - vai, na função, juntar-se ao nome da minha tabela no BD, por exemplo TB_teste.altura. * as outras variáveis são recuperadas de um formulário anterior e serão utilizadas, na função, para as condições da minha consulta (WHERE) SQL. * o Objetivo é o seguinte, por exemplo, no caso dessa chamada de função, estou passando o atributo altura, pois desejo extrair a média da altura dos alunos da rede municipal de ensino, com base nas condições pedidas (todos os aluno do sexo masculino com idade de 9 anos), depois eu quero escrever isso na tela, por isso o response.write. Não sei se consegui ser mais claro!!!! qualquer dúvida por favor me avise!!! Obrigado!!!!!!!

Por favor me ajudem!!!! Estou com o seguinte problema: Preciso retornar a média dos campos de uma tabela, estou usando o comando AVG do SQL, uso tb uma função para montar o comando SQL que preciso. Depois de tudo mondato, mando esxecutar o SQL que é executado sem problemas, mas quando atribua a função ao resultado do RcordSet, ou mando escrever atravaes de um Response.write é retornado o seguinte erro: Microsoft OLE DB Provider for ODBC Drivers error '80040e21' Erros /ef/resposta_cons.asp, line 97 Já coloque o SQL no Access e ele retorna a média perfeitamente, não consigo achar o problema, por favor me ajudem... o código da função é o seguinte: --------------------------------------------------------------------------------------- function media(dado,sexo,serie,escola,anobase,idade,ano) dim SQL, procura, anoAtual, anoNasc, Inicio, Fim, rsMedia, cont, tabela, med tabela = "tb_teste."&dado if len(idade) <>0 then AnoAtual = year(date) anoNasc = anoatual - idade Inicio = "01/01/"&anonasc fim = left(date,6)&anonasc end if procura = "Where" 'linha 49 SQL = "SELECT avg("&tabela&") AS "&dado&" " _ & "FROM TB_escolas INNER JOIN ((TB_aluno INNER JOIN TB_teste ON TB_aluno.codAluno = TB_teste.codAluno) " _ & "INNER JOIN TB_escolaridade ON TB_aluno.codAluno = TB_escolaridade.codAluno) " _ & "ON TB_escolas.codEscola = TB_escolaridade.codEscola" if sexo <> 0 then if Instr(1,SQL,procura,1) <> 0 then SQL = SQL & " AND ((TB_aluno.sexo)="& sexo &")" else SQL = SQL & " WHERE ((TB_aluno.sexo)="& sexo &")" end if end if if serie <> 0 then if Instr(1,SQL,procura,1) <> 0 then SQL = SQL & " AND ((TB_escolaridade.serie)="& serie &")" else SQL = SQL & " WHERE ((TB_escolaridade.serie)="& serie &")" end if end if if escola <> 0 then if Instr(1,SQL,procura,1) <> 0 then SQL = SQL & " AND ((TB_escolas.codEscola)="& escola &")" else SQL = SQL & " WHERE ((TB_escolas.codEscola)="& escola &")" end if end if if anobase <> 0 then if Instr(1,SQL,procura,1) <> 0 then SQL = SQL & " AND ((TB_teste.Anobase)="& anobase &")" else SQL = SQL & " WHERE ((TB_teste.Anobase)="& anobase &")" end if end if 'linha 81 if len(idade) <> 0 then if Instr(1,SQL,procura,1) <> 0 then SQL = SQL & " AND (((TB_aluno.Nascimento)>=#"&inicio&"#) AND ((TB_aluno.Nascimento)<=#"&fim&"#))" else SQL = SQL & " WHERE (((TB_aluno.Nascimento)>=#"&inicio&"#) AND ((TB_aluno.Nascimento)<=#"&fim&"#))" end if end if if len(ano) <> 0 then if Instr(1,SQL,procura,1) <> 0 then SQL = SQL & " AND year(TB_aluno.Nascimento)="& ano &"" else SQL = SQL & " WHERE year(TB_aluno.Nascimento)="& ano &"" end if end if 'linha 95 set rsMedia = conDBef.execute(""&SQL&"") media = rsMedia(""&dado&"") end function ------------------------------------------------------------------------------------- O código de chamada é seguinte: ------------------------------------------------------------------------------------- response.write media("altura",sexo,serie,escola,anobase,idade,ano) ------------------------------------------------------------------------------------- Desde já agradeço!!!!! OBrigado!!!!!!