Jump to content


cacfs

Member Since 30/08/2004
Offline Last Active 07/10/2005, 16:15
-----

Topics I've Started

Fotos De Escritórios/agências De Web Site E Design

28/05/2005, 14:28

Boa tarde,

estou querendo saber onde consigo fotos de escritórios e agências de design e desenvolvimento de sites, com mesas bem modernas, aqueles ambientes bem diferentes.

Quem souber posta ai por ai favor.

Autenticação Segura Em Asp.net

11/04/2005, 17:11

Estou tentando fazer a autenticação segura em ASP.Net, seguindo o tutorial do Tiago Colombo (Tutorial), mas quando tento rodar na minha intranet, tanto que eu desenvolvi quanto o que baixei do artigo dele está dando o seguinte erro:

Security Exception
Description: The application attempted to perform an operation not allowed by the security policy. To grant this application the required permission please contact your system administrator or change the application's trust level in the configuration file.


Alguém sabe me dizer o que pode ser isso?

Problema Com Funções

04/04/2005, 11:24

Venho pedir ajuda novamente.

Quando tento fazer uma função, que acessa o banco de dados, e no final dessa funcção ela chama uma outra função que també m acessa o banco de dados, dá erro dizendo que a conexão já está aberta, ou que já existe um data reader para essa conexao. Me ajudem por favor, segue o código:

'carrega as respostas com o resultado
    Public Sub carrega_resultado(ByVal intCodPerg As Integer)
        Dim strRespostas As String
        Dim cmdRespostas As OleDbCommand
        Dim intResultPerg As Integer
        'recupera o total de vezes que a pergunta foi respondida
        intResultPerg = resultado_pergunta(Convert.ToInt32(cbPerguntas.SelectedValue))
        Try
            'abre conexao
            objConnP.Open()
            'monta o SELECT para recuperar as respostas
            strRespostas = "SELECT r.cod_resposta, " & _
                           "r.desc_resposta " & _
                           "FROM respostas AS r " & _
                           "WHERE r.cod_pergunta = " & intCodPerg
            cmdRespostas = New OleDbCommand(strRespostas, objConnP)
            'executa o comando e preenche o datareader das respostas
            drRespostas = cmdRespostas.ExecuteReader
        Catch erro As Exception
            MsgBox("Erro (039): " & erro.Message, MsgBoxStyle.Critical)
        
        End Try
        'criando objetos para criar o resultado
        Dim dtResultado As New DataTable("Resultado")
        Dim dtcResultado As DataColumn
        Dim dtrResultado As DataRow
        'criando as colunas da tabela
        'codigo resposta
        dtcResultado = New DataColumn()
        dtcResultado.DataType = Type.GetType("System.Int32")
        dtcResultado.ColumnName = "Codigo"
        dtcResultado.ReadOnly = True
        dtcResultado.Unique = True
        dtResultado.Columns.Add(dtcResultado)
        'resposta
        dtcResultado = New DataColumn()
        dtcResultado.DataType = Type.GetType("System.String")
        dtcResultado.ColumnName = "Resposta"
        dtcResultado.ReadOnly = False
        dtcResultado.Unique = False
        dtResultado.Columns.Add(dtcResultado)
        'resultado
        dtcResultado = New DataColumn()
        dtcResultado.DataType = Type.GetType("System.Int32")
        dtcResultado.ColumnName = "Resultado"
        dtcResultado.ReadOnly = False
        dtcResultado.Unique = False
        dtResultado.Columns.Add(dtcResultado)
        Try
            'enquanto tiverem respostas
            While drRespostas.Read
                dtrResultado = dtResultado.NewRow
                dtrResultado("Codigo") = drRespostas.GetInt32(0)
                dtrResultado("Resposta") = drRespostas.GetString(1)
                dtrResultado("Resultado") = Convert.ToBoolean(resultado_resposta(drRespostas.GetInt32(0)) / intResultPerg)
                dtResultado.Rows.Add(dtrResultado)
            End While
            'preenche o datagrid
            dgResultado.DataSource = dtResultado
        Catch erro As Exception
            MsgBox("Erro (040): " & erro.Message, MsgBoxStyle.Critical)
        Finally
            'fecha conexao
            objConnP.Close()
        End Try
    End Sub

'retorna o numero de vezes que uma resposta foi citada
    Public Function resultado_resposta(ByVal intCodResp As Integer) As Integer
        Dim strResultado As String
        Dim cmdResultado As OleDbCommand
        Dim drResultado As OleDbDataReader
        Try
            'abre conexao
            objConnP.Open()
            'monta SELECT para contar os resultados das respostas
            strResultado = "SELECT COUNT(rp.cod_resposta_pergunta) AS totalResp " & _
                           "FROM  resposta_pergunta AS rp " & _
                           "WHERE rp.cod_resposta = " & intCodResp
            cmdResultado = New OleDbCommand(strResultado, objConnP)
            'executa o comando e preenche o datareader
            drresultado = cmdResultado.ExecuteReader
            'se tiver dados
            If drResultado.Read Then
                'retorna a quantidade de vezes que uma resposta foi citada
                Return drResultado.GetInt32(0)
            End If
        Catch erro As Exception
            MsgBox("Erro (042): " & erro.Message, MsgBoxStyle.Critical)
        Finally
            'fecha conexao
            objConnP.Close()
        End Try
    End Function

Como Faço Para Gerar Um Gráfico De Barras E Imprim

31/03/2005, 17:41

Preciso gerar um gráfico de barras, pode ser simples, a partir de dados recuperados de um banco de dados, e depois preciso imprimir esse gráfico. No VB.Net

A parte de recuperar os dados é tranquilo, eu sei legal, mas os gráficos e a impressão que estão pegando, quem puder me ajudar, agradeco.

Valeu pessoal.

Hd Não Deixa Copiar Arquivos

22/03/2005, 14:50

Boa tarde pessoal,

seguinte, tenho uma máquina com Win XP e que tinha um HD slave só para backup, com partição NTFS. A máquina apresentou alguns problemas, ai o pessoal da garantia teve aqui e atualizou a Bios dela. Não adiantou, ai levaram pra formatar.
Eu tirei o HD de backup e quando tento instalar ele em outra máquina com Win XP, colocando ele como slave, eu consigo ver os arquivos no explorer, mas não consigo abrir nem copiar. Da a seguinte mensagem: "não foi possível acessar o caminho..........."
Se eu copiar um novo arquivo para esse HD eu consigo abrir, copiar de novo, normal, mas os que já estavam não consigo. São 10 Gb de arquivos.

Como faço para recuperar os dados?

valeus pessoal

IPB Skin By Virteq