Jump to content


vinicius.mendes's Content

There have been 11 items by vinicius.mendes (Search limited from 30/03/2023)


Ordernar por                Order  

#903585 [Resolvido] Select Com Top5, Inner Join, Having E Max

Posted by vinicius.mendes on 17/03/2008, 15:29 in ASP

myselCoz= "select top 5 nomeLoc from Local inner join Categoria on Local.catLoc = Categoria.nomeCat where catLoc="&request("nomeCat")&" group by ntComida Having Max(ntComida)"

faltou um & antes do group by



#901761 Calculo De Data

Posted by vinicius.mendes on 06/03/2008, 11:43 in ASP

vc pode usar a função datediff()

funciona assim:

[codebox]
Função: DateDiff ( )

devolve um numero de intervalo entre duas datas.
DiffADate = "A partir de hoje : " & DateDiff("d", Now, "10-12-2002")
As diferenças possiveis a fazer estão restritas pelas seguintes hipóteses :
yyyy -> Ano
q -> Quarto
m -> Mês
y -> Dia do Ano
d -> Dia
w -> Dia da semana
ww -> Semana do ano
h -> Hora
n -> Minuto
s -> Segundo
[/codebox]

retirado do site

http://www.supertraf...traqueado</sup>

abraços



#901570 Select Para Gerar Um Grafico

Posted by vinicius.mendes on 05/03/2008, 15:56 in Componentes relacionados a ASP

resolvi o problema.

vou colocar o código para eventuais duvidas e ajudar a quem precisar.

[codebox]
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open "SELECT status, count(*) as total from candidatos where status in (a,b,c) group by status order by total asc", conn

'Instância o Objeto ChartDirectorSet
set cd = CreateObject("ChartDirector.API")
'------------------------------------------
if not rs.EOF then
do while not rs.EOF
data = data&","&rs("total")
labels = labels &","& rs("status")
rs.MoveNext
loop
end if

'Split Devolve um array com um numero especificado de substrings.
'a função right(data,len(data)-1) server para pegar tudo da var Data a partir do lado direito ignorando o 1 caracter
'pq o 1 caracter é uma ',' e só atrapalha.
Arraydata = Split(right(data,len(data)-1), ",",-1,1)
Arraylabels = Split(right(labels,len(labels)-1), ",",-1,1)

'Informa os dados para o gráfico
data = Array(Arraydata(0),Arraydata(1),Arraydata(2))
'Informa os rótulos do gráfico
labels = Array(Arraylabels(0),Arraylabels(1),Arraylabels(2))
[/codebox]

agora sempre q eu pedir a exibição do gráfico ele utiliza os dados do MySQL e atualiza meu gráfico, sem eu precisar atualizar ele na unha toda vez q queria ver o gráfico atualizado.

espero q isso ajude mais alguém...

abraços.



#900443 Select Para Gerar Um Grafico

Posted by vinicius.mendes on 28/02/2008, 14:03 in Componentes relacionados a ASP

eu tirei o chr(9) e continuou dando erro, ainda não consegui descobrir o q esta travando =//



#898391 Select Para Gerar Um Grafico

Posted by vinicius.mendes on 19/02/2008, 09:53 in Componentes relacionados a ASP

valeu pela resposta Diego.

agora gerou um erro.

ChartDirector error '800a8000'

Error converting argument 1 to type class DoubleArray

line 86

linha 86 --> Call c.setData(data, labels)

é a linha onde pega os valores montados no array =//



#897272 Select Para Gerar Um Grafico

Posted by vinicius.mendes on 13/02/2008, 13:18 in Componentes relacionados a ASP

boa tarde pessoal, ando meio sumido do fórum e hj estou precisando novamente de ajuda.

tenho a seguinte instrução SQL

[codebox]SELECT `status`, count(*) as total from candidatos group by `status`;[/codebox]

eu estou usando o mySQL e gerencio ele através do MySQL Query Browser, enfim, eu digitei essa instrução no gerenciador e me retorna certinho as informações q eu gostaria

status | total
null 100
vazio 20
aprovado 1000
reprovados 300

só q eu qro montar um gráfico e alimenta-lo com as informações vinda do bd, só q no meu código do gráfico eu nao consigo encaixar essa instrução

[codebox]<%
'Instância o Objeto ChartDirector
Set cd = CreateObject("ChartDirector.API")

'Informa os dados para o gráfico
data = Array("1323","657","139","462")

'Informa os rótulos do gráfico
labels = Array("Aprovado", "Reprovado", "2 Chance", "Em aberto")

'Ajusta as cores das fatias
colors = Array(&H333300, &HFF3300, &H3333FF, &HFFFF00)

'Cria uma imagem no tamanho de 360 x 280 pixels
Set c = cd.PieChart(360, 280)

'Ajusta localização do gráfico (180, 100) e o tamanho a ser exibido em 100 pixels
Call c.setPieSize(180, 100, 100)

'Adiciona um título ao gráfico com a fonte Arial Bold Italic
Call c.addTitle2(cd.Bottom, "Status dos candidatos!", "arialbi.ttf")

'Exibe o gráfico em 3D
Call c.set3D()

'Adiciona legenda ajustando os valores left e top para 10 e 180 respectivamente
Call c.addLegend(10, 180)

'Ajusta as cores das fatias para as cores indicadas no array colors
Call c.setColors2(cd.DataColor, colors)

'Ajusta os dados e rótulos do gráfico
Call c.setData(data, labels)

'Separa a fatia em destaque
Call c.setExplode(5)

'Exibe gráfico no browser
Response.ContentType = "image/png"
Response.BinaryWrite c.makeChart2(cd.PNG)

'Destrói o objeto c
Set c = nothing

'Destrói o Objeto ChartDirector
Set cd = nothing

%> [/codebox]

percebam onde esta o DATA = ARRAY..... eu alimento o gráfico "na unha" mudando os valores de hora de hora, gostaria de encaixar meu select e colocar o resultado direto nesse array...

agradeço a ajuda de todos.

obrigado.



#842251 Gravar Info Arquivo Txt

Posted by vinicius.mendes on 17/04/2007, 16:16 in ASP

obrigado sk15, era isso q eu estava procurando desde o começo, só q eu não conhecia esse comando e tb nas procuras q eu fiz na net nao achei nenhuma referência a isso...

na realidade vc resolveu 2 duvidas minha, pq eu tinha achado o valor ascii do tab (é o 9) só q nao sabia como usar ele no código.

respondendo sobre o "& tab &"

eu fiz o seguinte.... configurei a variavel tab = " ", ai eu inseri ela entre as outras variaveis, mas eu sabia q nao era a melhor e/ou a forma correta, apenas foi o jeito q eu tinha conseguido resolver meu problema.

[]´s



#841847 Gravar Info Arquivo Txt

Posted by vinicius.mendes on 16/04/2007, 11:49 in ASP

obrigado a todos q responderam...

eu consegui fazer do seguinte jeito... configurei no dreamweaver a tabulação para 8 espaços, na string de gravar as variáveis no txt eu dei um tab entre elas.....

GRAVAR.WriteLine (ID & tab & nome & tab & email & tab & estado & tab & "\N" & tab & "\N" & tab & ques & tab & "\N" & tab & ip & tab & "\N" & tab & dataMySql & tab & hora_entrada & tab & "\N")

até o momento está suprindo minhas necessidades, nao sei se é o melhor jeito e/ou o correto, mas deu certo.

Humberto... vou dar uma lida sobre XML para aprender a usa-lo, mas como meu uso é pouco, no momento não é necessário replicar os registros em um segundo bd....
esse txt é só para acompanhar a movimentação diaria... coisa de 40 a 50 registros.... mais fácil eu ver um arquivo de 3, 4kb de dados do q mexer no sistema com mbs de informações.....

abraços



#841392 Erro Na Inserção De Dados

Posted by vinicius.mendes on 13/04/2007, 15:23 in ASP

experimente retirar o SET antes do sql



#841390 Gravar Info Arquivo Txt

Posted by vinicius.mendes on 13/04/2007, 15:17 in ASP

ok, até tinha pensado no split, mas oq está me "segurando" é como informar q oq eu qro trocar no lugar do espaço, ;, /, ou qualquer outra coisa é o tab



#841274 Gravar Info Arquivo Txt

Posted by vinicius.mendes on 13/04/2007, 10:18 in ASP

e ai galera, blz ?

meu prob é o seguinte... fiz um arquivo txt de backup do meu bd....
a pessoa entra, cadastra as informações, é gravado no bd(acess) e eu tb jogo em um arquivo txt usando o FSO, porém a separação dos campos precisaria ser com a tecla TAB e eu não sei como colocar isso... eu to separando as info por um espaço simples.

se alguém puder me ajudar...

ps: eu descobri q o TAB é equivalente a 9 na tabela ASCII, mas nao sei como utilizar essa informação para separar meus campos.

obrigado...




IPB Skin By Virteq