- Fórum WMO
- → vinicius.mendes's Content
vinicius.mendes's Content
There have been 11 items by vinicius.mendes (Search limited from 17/04/2023)
#903585 [Resolvido] Select Com Top5, Inner Join, Having E Max
Posted by vinicius.mendes on 17/03/2008, 15:29 in ASP
faltou um & antes do group by
#901761 Calculo De Data
Posted by vinicius.mendes on 06/03/2008, 11:43 in ASP
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
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
#898391 Select Para Gerar Um Grafico
Posted by vinicius.mendes on 19/02/2008, 09:53 in Componentes relacionados a ASP
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
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
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
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
#841390 Gravar Info Arquivo Txt
Posted by vinicius.mendes on 13/04/2007, 15:17 in ASP
#841274 Gravar Info Arquivo Txt
Posted by vinicius.mendes on 13/04/2007, 10:18 in ASP
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...
- Fórum WMO
- → vinicius.mendes's Content
- Privacy Policy
- Regras ·