Re: Verificar Email

    Rui Carlos
    By Rui Carlos,

    Uma forma básica de fazer isso, embora não 100% fiável (no caso de pedidos concorrentes), resume-se a antes de inserires o valor na base de dados verificares se o valor já existe.  Isto é um algoritmo extremamente simples, pelo que se não sabias fazer sequer isto, era capaz de ser boa ideia abandonares a programação web por uns tempos, e focares-te em aprender o básico de algoritmos.

    Voltando à questão do tópico, a forma mais fiável de resolveres o teu problema é impedires a introdução de emails duplicados directamente na base de dados, através da restrição UNIQUE, suportada pela generalidade das bases de dados.

    • 3 replies

    Re: Webmail

    M6
    By M6,

    kalex, não percebo se pretendes ajuda para criares o teu sistema de registo e login ou se queres usar um open source em detrimento do teu...

    Tens de ser claro e concreto nas tuas dúvidas...

    • 1 reply

    Re: Problema com base de dados

    M6
    By M6,

    João, tens de colocar as tuas questões de forma clara e concreta.
    O titulo é um problema com base de dados, depois só descreves (e mal) a interação do teu site em páginas php e por fim ninguém consegue sequer adivinhar qual o problema porque dizes que querias que só guardasse o utilizador que preencheu (o que raio isso queira dizer)...

    Tens de ser claro e concreto, caso contrário ninguém vai conseguir perceber muito menos ajudar.

    Explica lá isso direito, com informação útil e código que possa ajuda a compreender o teu problema.

    • 1 reply

    Re: Calcular média coluna existente em todas as tabelas

    M6
    By M6,

    Boas,
    Quando vejo querys que vão ao catálogo para obter valores de negócio fico sempre com um arrepio na espinha, cheira-me a borregada da grossa...
    Arrepios à parte, tens a função AGV que te dá a média. Podes ver como se usa aqui: http://www.w3schools.com/sql/sql_func_avg.asp

    • 1 reply

    Re: Deadlock em UPDATE TABLE

    M6
    By M6,

    Porreiro.

    No entanto, uma vez que já descobriste qual o conflito, aconselho-te a usares transações em ambos, desta forma garantes que não haverá dead locks quando ambos os comandos tentarem guardar a mesma linha simultaneamente.quais o

    • 7 replies

    Re: Verificar Email

    Joao Domingues
    By Joao Domingues,

    Não porque eu não sei fazer isso, foi por isso que procurei ajuda.

    • 3 replies

    Executar uma macro quando duas células se alteram

    bonou2
    By bonou2,

    Oi pessoal, tenho um problema que achei que seria fácil de resolver, mas deparei-me com um tremendo problema, pretendia copiar dados de uma coluna (A3:A50) para a coluna (B3:B50) e consequentemente. Sabendo que temos na celula (A1) a opção "sim" ou a opção "não" e na célula (A2) temos um temporizador automatico que corre um cronometro ao segundo. Pretende-se que se a Célula (A1) for igual a "sim" e a (A2) seja igual a (B2), copie a informação do intervalo (A3:A50) , para o intervalo (B3:B50) mas com a formação de copiar só valores, (copiar só valores, porque a coluna (A3:A50) está a receber informação directa de um site e muda de valores ao segundo).

    se a Célula (A1) for igual a "sim" e a (A2) seja igual a (C2), copie a informação do intervalo (A3:A50) , para o intervalo (C3:C50) mas com a formação de copiar só valores, e por aí fora até que a celula (A1) seja igual "não" , interrompendo assim o ciclo de cópia . gerando por exemplo uma base de dados (B3:EF50) . Depois do "não" da celula A1 ter interrompido o ciclo de cópia, pretende-se criar uma folha nova "folha 2" e copiar a informação do intervalo (B3: até ser activado o "não" ) e colar só valores na "folha 2" depois de copiados retorna á "folha 1" limpando o intervalo(B3:até ter sido activado o "não"dei como exemplo a coluna EF) e recomeça o ciclo anterior com o mesmo procedimento e depois criar a "folha 3" e colar e depois a "folha 4" talvez até á "folha 50". Pensei criar esta recolha de informação com formulas em cada celula com a função SE(), só que não consigo usar a ordem copiar-colar só valores  dentro de funções.

    Agradeço se puderem ajudar.

    P.S. Informo que os dados  na coluna A da "folha 1" são fornecidos diretamente de um site da net com alterações ao segundo e pretendo fazer este trabalho de forma automática, em que simplesmente dou inicio e fim ao processo. 

    • 0 replies

    Re: Calcular média coluna existente em todas as tabelas

    DanielFernandes87
    By DanielFernandes87,

    Boas,

    Tenho andado aqui a procura de uma maneira de obter uma media de todos os valores de determinada coluna.
    Estes são os meus primeiros passos no SQL.

    por exemplo:
    Tenho 10 tabelas e em todas elas existe uma coluna chamada profundidade.
    o que preciso é de pesquisar em que tabela existe a coluna profundidade e depois calcular a média dessa coluna para cada uma das tabelas.

    SELECT 
        T.name AS Tabela, 
        C.name AS Coluna
        FROM 
        sys.sysobjects    AS T (NOLOCK) 
        INNER JOIN sys.all_columns AS C (NOLOCK) ON T.id = C.object_id AND T.XTYPE = 'U'
    WHERE 
        C.NAME LIKE 'MEAN DEPTH'
    ORDER BY 
        T.name ASC
    

    Com este código já consegui fazer a pesquisa e tenho o resultado de onde se encontra a coluna, só não estou a conseguir calcular a média.

     

    • 1 reply

    Re: Verificar Email

    Rui Carlos
    By Rui Carlos,

    Implementaste alguma validação para que não fosse possível criar contas com o mesmo email?

    • 3 replies

    Re: [Resolvido] Problema nas chamadas de formulário com VB.Net

    carlosfeju
    By carlosfeju,
    • 1 reply

    Verificar ficheiros na web

    HQuintas
    By HQuintas,

    Boas

    Como verificar a data ou a versão de ficheiro num servidor na web, que está dentro de uma pasta protegida?

    Já consegui fora da pasta, verificar a data.

     

    Dim client = New Http.HttpClient
    Dim msg = New Http.HttpRequestMessage(Http.HttpMethod.Head, "http://meusite.com/HQ/file.exe")
    Dim resp = client.SendAsync(msg).Result
    Dim lastMod = resp.Content.Headers.LastModified

     

    • 0 replies

    Re: AltGr no IPython

    António Oliveira
    By António Oliveira,

    Reparei que há um problema com o uso do IPython no Windows. Vou tentar deixar aqui o resumo do que me aconteceu. Fiz um pequeno programa para zipar ficheiros que envolvia invocar a seguinte função:

    def zip_to(paths, zippath):
      files = ' '.join(paths)
      files = ' ' + files
      cmd = '7z a ' + zippath + files
      (status, output) = subprocess.getstatusoutput(cmd)

    Se eu invocar o interpretador python directamente na linha de comandos do Windows, não há problema mas se eu correr o programa a partir do Git Bash ou do IPython, fazendo %run .... o status dá 1 porque algures os paths para os ficheiros são passados sem as barras (\). Reparei que se correr dentro do IPthon, por sua vez iniciado a partir do Git Bash, também funciona.

    Perdi imenso tempo com isto. Fica o aviso.

    • 6 replies

    Acesso sql server

    radias
    By radias,

    Boa tarde,

    Tenho uma aplicação desenvolvida em VB.NET com banco de dados em sql server,

    hoje atualizei o Windows 10 para a versão 1607, fiquei sem acesso as minhas bases de dados

    através da aplicação pois a nível de management studio acedo normalmente,

    o erro que dá é o seguinte "Operação aritmética resultou numa capacidade excedida."

    Entretanto desinstalei a atualização, ficou bom, voltei a instalar e voltou o erro.

    Alguém já passou pelo mesmo? terá sido alguma configuração danificada?

    Obrigado.

     

    • 0 replies

    Re: Problema com base de dados

    Joao Domingues
    By Joao Domingues,

    Boa tarde, tenho uma página (Conta.php) que só aparece no site se o utilizador entrar na conta que criou e outra página (Index.php) que o utilizador preenche um formulário e os dados que ele introduziu nesse formulário vão aparecer na página da Conta.php mas o meu problema é que ele esta a guardar os dados do formulário do Index.php em todas as contas. Queria que só guardasse no utilizador que a preencheu e não em todos os utilizadores.

    • 1 reply

    Re: Verificar Email

    Joao Domingues
    By Joao Domingues,

    Boa tarde, tenho um formulário de inscrição que tem o campo email mas ele deixa criar contas com o mesmo email e não devia deixar. Gostava que alguém me ajudasse.

    • 3 replies

    Re: Webmail

    kalex
    By kalex,

    Olá,
    Estou a fazer a PAP (Projeto de Aptidão Profissional) para o curso de Informática. Estou a pensar fazer um webmail deste género:http://www.cloneidea.com/scripts/afterlogic-webmail-lite#.V-6A5IgrLct
    Objetivo do Webmail:
    Ter uma página inicial de registo/login, possibilitando o utilizador de criar a sua conta pessoal e logar na mesma.
    Tendo logado, poderá enviar emails para outros endereços de email (emails simples ou em massa).
    Ter uma caixa de entrada, caixa de emails enviados e caixa de emails eliminados.

    Já tenho isto: http://projetopap.net16.net/p28279_MRMessage.php (a caixa de texto da esquerda é para inserir o corpo da mensagem e a caixa da direita é para inserir os endereços de email) mas ainda não tenho o sistema de registo/login nem as pastas de mails recebidos/enviados... mas consegue enviar emails em massa e para a inbox(a maioria dos mailers envia para a pasta de spam).

    Já ouvi falar do sistema de webmail Horde https://dev.horde.org/imap_client/ e da AdminLTEhttps://almsaeedstudio.com/themes/AdminLTE/pages/mailbox/mailbox.html , alguém já trabalhou ou tem conhecimento desses dois sistemas?

    Obrigado 

    • 1 reply

    Dividir em 2

    demyz0r
    By demyz0r,

    Boa tarde, tenho este código funcionável, no entanto queria-o dividir pelo menos em duas partes, ele corre as pastas de um caminho que lhe dou, e consoante os filtros ele insere certas pastas e ficheiros num zip.

    Desde já muito obrigado, tenho de melhorar e dividir melhor as funções, pois esta pode ser dividida em duas ou três diferentes.
    PS: Não liguem ao nome da função porque antes eu estava a pesquisar os ficheiros por extensão.

    Public Sub GetExtension()
        Dim objFSO, myFolder, mySubFolder, myFile, queue As Collection
        Dim myExtension, strZip, licensa As String
        Dim sngStart As Single
        Dim data As String
        Dim objShell, objZip, fso As Object
        
        Set objFSO = CreateObject("Scripting.FileSystemObject") 'Create an instance of the FileSystemObject
        Set queue = New Collection
        queue.Add objFSO.GetFolder(Application.LicomdatPath) 'Get and define the folder object
        Set myFolder = objFSO.GetFolder(Application.LicomdatPath)
        Set mySubFolder = myFolder.SubFolders
        
        'Zip file variables and creation
        licensa = (Application.License.GetCustomerName) 'Company name
        data = Date
    
        Set objShell = CreateObject("Shell.Application")
        strZip = "C:\hello\Backup_" & licensa & ".zip"
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set objZip = fso.CreateTextFile(strZip)
        objZip.WriteLine Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18, 0)
        objZip.Close
        
                Do While queue.Count > 0
                    Set myFolder = queue(queue.Count)
                    queue.Remove (queue.Count)
                    'loops through each file in the directory and prints their names and path
                    For Each mySubFolder In myFolder.SubFolders
                        If mySubFolder.Name Like "R*" Then
                                        objShell.Namespace("" & strZip).CopyHere mySubFolder.Path
                                        sngStart = Timer
                                        Do While Timer < sngStart + 2
                                            DoEvents
                                        Loop
                        Else
                        End If
                    queue.Add mySubFolder
                    Next mySubFolder
                    For Each myFile In myFolder.Files
                                         If myFile.Name Like "R*" Then
                                            objShell.Namespace("" & strZip).CopyHere myFile.Path
                                            sngStart = Timer
                                            Do While Timer < sngStart + 2
                                                DoEvents
                                            Loop
                                        Else
                                        End If
                    Next myFile
               Loop
                MsgBox "ola"
    End Sub

     

    • 0 replies

    Re: AJAX: URLs amigáveis

    nmoa
    By nmoa,

    ja conseguir resolver de outra forma

    acrescentei o nome mail na lista das url amigáveis e depois foi só abrir o ficheiro com o mesmo nome

    $paginas[] = "'detalhe_noticias','detalhe_eventos','detalhe_campanha','funcoes','search','searcheventos','mail'";

    depois no ajax

    .ajax({
            url:url+"/mail.php",
            data: dados,

    obrigado pelas dicas

    • 4 replies

    Re: [Resolvido] Problema nas chamadas de formulário com VB.Net

    carlosfeju
    By carlosfeju,

    Olá pessoal. O meu problema é que tenho inicialmente um form de login do sistema.

        Private Sub btnProsseguir_Click(sender As Object, e As EventArgs) Handles btnProsseguir.Click
    
            Dim form = New frmPrincipal
            Me.Hide()
            form.Show()
    
        End Sub

    Quando passo por ele tenho um form MDI com os menus do sistema onde seleciono um form de cadastro,

    Private Sub CadastroDeProcessoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CadastroDeProcessoToolStripMenuItem.Click
            Dim form = New frmListaProcessos
            form.MdiParent = Me
            form.Show()
        End Sub

     Neste eu mostro todos os registros em um DataGridView.

    Private Sub preencherGrid()
    
            'Variáveis para medir tempo
            Dim tInicio As DateTime
            Dim tFim As DateTime
            Dim tDiferenca As TimeSpan
    
            tInicio = Now
    
            With dgvListaProcessos
    
                'Carregar os dados
                .DataSource = Nothing
                .Rows.Clear()
                .Columns.Clear()
                carregaDadosLINQ()
    
                'Formatando o DataGridView
    
                'Coluna do código do Processo
                .Columns(0).HeaderText = "Código"
                .Columns(0).Width = 50
                .Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.BottomCenter
                .Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
                .Columns(0).Name = "Codigo"
    
                'Assunto do Processo
                .Columns(1).HeaderText = "Assunto"
                .Columns(1).Width = 585
                .Columns(1).Name = "Assunto"
    
                'Botão de manutenção
                Dim btn As New DataGridViewButtonColumn()
                .Columns.Add(btn)
                btn.HeaderText = "Manutenção"
                btn.Text = "Click aqui"
                btn.Name = "btn"
                btn.UseColumnTextForButtonValue = True
                'btn.Width = 30
    
            End With
    
            tFim = Now
            tDiferenca = tFim.Subtract(tInicio)
            lblTempoGasto.Text = "Tempo: " & tDiferenca.TotalSeconds.ToString("0.0") & " segundos"
    
        End Sub

     Quando o usuário clica em um dos registros, deveria abrir um outro form com todos os dados do registro selecionado, que são muitos, para fazer a manutenção, conforme rotina abaixo:

        Private Sub dgvListaProcessos_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvListaProcessos.CellContentDoubleClick
    
            Dim linha As Integer
            Dim nIdProcesso As Integer
    
            linha = dgvListaProcessos.CurrentRow.Index
            nIdProcesso = dgvListaProcessos.Rows(linha).Cells("Codigo").Value
    
            Dim form As New frmDadosProcesso(nIdProcesso)
            form.MdiParent = frmPrincipal
            form.Show()
    
        End Sub

    Mas o form não aparece. Pelo debug verifico que o form frmDadosProcesso é iniciado, mas não sei porque não aparece. Mas quando eu retiro o form de login, ou seja, início é pelo MDI eu consigo abrir o form frmDadosProcesso.

    Public Sub New(nIdProc As Integer)
    
            ' Esta chamada é requerida pelo designer.
            InitializeComponent()
    
            ' Adicione qualquer inicialização após a chamada InitializeComponent().
            nIdProcesso = nIdProc
            mostrarDados()
    
        End Sub

    O que eu posso fazer para resolver este problema?

    • 1 reply

    Re: Enviar valores para formulario em Angular

    nportugal
    By nportugal,
    1 hora atrás, Knitter disse:

    Isso é um pouco contrassenso. Além de estarmos a falar de um projeto de software livre, por definição aberto, como dizes processa-se no cliente que és tu, logo tens acesso a toda a lógica, validações e procedimentos que o cliente executa para poderes estudar e encontrar uma solução que se adapte ao que precisas. Fui ao portal das finanças e encontrei a aplicação completa (AngularJS) para a área de emissão de recibos, só tive de abrir as ferramentas de developer do Firefox :)

    405 é o resultado de executares um POST num recurso que pede GET, ou vice-versa. Estás a tentar executar um POST num URL que não responde ao POST; estás a usar o URL errado. Os URL para a área de recibos têm o formato /recibo/portal/<ação>, sendo que a ação varia conforme o que estás a fazer.

    Já criaste um recibo enquanto inspecionavas o pedido? É a forma mais simples de veres quais os recursos que são usados e quais os URL que estão a ser pedidos.

     
     

    Sim, tens razão, esqueci-me de informar que o post, de onde envio os dados é efectuado a partir de um outro servidor e executado noutro separador.

    Estou a fazer passo a passo o preenchimento de um recibo, com o firebug ligado a ver se apanho os url do javascript e fazer o envio por GET, e talvez em JSON que pelo que percebo o Angular até processa nativamente ou para o contornar e enviar os dados para a páginal final (ainda terei de efectuar todo o processo de emitir um recibo...).

    Obrigado pelas dicas. Estou a ver muito trabalho de "sapa" mas vou continuar a vasculhar no portal da A.T

    • 4 replies

  1. Load more activity
Portal by DevFuse · Based on IP.Board Portal by IPS