Conexão a uma determinada tabela

[Hugo Eyer 0]

Caros amigos,

 

Estou precisando realizar uma conexao com uma base de dados SQL Server... Tenho tudo pronto...

Mas queria uma conexao direta com uma tabela...

 

Ex:

Provider=SQLOLEDB.1;SERVER=MEUSERVIDOR;DATABASE=NOMEDABASE;UID=NOMEDABASE;PWD=SENHA;

 

Eu queria saber se tem como eu colocar mais uma funcao para conectar diretamente a uma tabela...

 

Alguem saberia ?

[Ted k' 126]

só atraves do sql mesmo, mais qual é a sua necessidade real para isso, pq na minha visão não faz sentido!

[Hugo Eyer 0]

O codigo abaixo monta um grafico diretamente com uma conexao a uma base de dados em Access...

 

Mas queria fazer uma conexao com sql server com a mesma tabela e tudo mais... mas nao funciona... =/

 

A parte em negrito é a conexao com a base em access... preciso fazer uma conexao com sql server

 

<%@ language="vbscript" %>
<%
'Cria o Objeto Chart Director
Set cd = CreateObject("ChartDirector.API")
 
'armazena em uma variável o ano escolhido. Se for aberto inicialmente, o valor será em branco e ele adotará o valor 2001 como default
SelectedYear = Request("year")
if SelectedYear = "" Then SelectedYear = 2001
 
'String SQL que efetuará a consulta no banco de dados
SQL = "Select Month(TimeStamp) - 1 As ArrayIndex, " & _
"Software, Hardware, Services " & _
"From Revenue Where Year(TimeStamp)=" & SelectedYear
'response.Write(SQL)
'response.End()
 
'Conecta-se ao banco de dados, lê os dados da tabela e armazena-os dentro de um array
Set rs = CreateObject("ADODB.RecordSet")
Call rs.Open(SQL, "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\home\sistemasgt\dados\sample.mdb")
Set dbTable = cd.DBTable(rs, "ArrayIndex", 12)
rs.Close()
 
'Agora com os dados obtidos podemos inicir a construção de nosso gráfico
 
'Cria uma imagem no tamanho de 420 pixels x 240 pixels, with pale yellow
'(0xffffc0) background and 2 pixel 3D border
Set c = cd.XYChart(420, 240, &Hffffc0, &Hffffc0, 2)
 
'Ajusta área de exibição na posição (70, 50) no tamanho de 320 x 150 pixels.
Call c.setPlotArea(70, 50, 320, 150, &Hffffff, &Hffffff, &Hc0c0c0, &Hc0c0c0)
 
'Adiciona um título ao gráfico
Call c.addTitle("Locaweb - Estatisticas de " & SelectedYear, "timesbi.ttf" _
).setBackground(&Hffff00)
 
'Adiciona uma caixa de legenda no topo da área de exibição do gráfico
Call c.addLegend(70, 30, 0, "", 8).setBackground(cd.Transparent)
 
'Cria o gráfico com os dados resgatados anteriormente
Set layer = c.addBarLayer2(cd.Stack)
Call layer.addDataSet(dbTable.getCol(1), -1, "Software")
Call layer.addDataSet(dbTable.getCol(2), -1, "Hardware")
Call layer.addDataSet(dbTable.getCol(3), -1, "Serviços")
Call layer.setBorderColor(cd.Transparent, 1)
 
'ajusta os rótulos do eixo x. Neste exemplo, eles vão de janeiro a dezembro
labels = Array("Jan", "Fev", "Mar", "Abr", "Mai", "Jun", "Jul", "Ago", _
"Set", "Out", "Nov", "Dez")
Call c.xAxis().setLabels(labels)
 
'Ajusta largura do eixo x para 2 pixels
Call c.xAxis().setWidth(2)
 
'Ajusta o título do eixo Y
Call c.yAxis().setTitle("Crescimento")
 
'Ajusta largura do eixo Y para 2 pixels
Call c.yAxis().setWidth(2)
 
'Exibe o gráfico no browser
Response.ContentType = "image/png"
Response.BinaryWrite c.makeChart2(cd.PNG)
 
'Fecha e destrói o objeto rs
rs.close
Set rs = nothing
 
'Destrói o objeto c
Set c = nothing
 
'Destrói o Objeto ChartDirector
Set cd = nothing
%>