Jump to content

Search the Community

Showing results for tags 'VB'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Q&A Desenvolvimento
    • Perguntas e respostas rápidas
  • Desenvolvimento e Banco de Dados
    • HTML e CSS
    • Java
    • Javascript
    • .NET
    • PHP
    • Python
    • Ruby
    • Mobile
    • Ambientes de Desenvolvimento
    • Arquitetura e Métodos Ágeis
    • Banco de Dados
    • DevOps
    • Desenvolvimento de Games
    • E-Commerce e Pagamentos Online
    • SEO e Otimizações
    • WordPress
    • Algoritmos & Outras Tecnologias
  • Design e Produto
    • Fotografia
    • Photoshop
    • Design de interfaces e UX
    • Edição/Produção de Vídeos
    • Marketing Online
    • Desenho, Ilustração e 3D
  • Entretenimento e uso pessoal
    • Geral
    • Segurança & Malwares
    • Gadgets e wearable
    • Softwares e Apps
    • Entretenimento

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Google+


Hangouts


Skype


Twitter


deviantART


Github


Flickr


LinkedIn


Pinterest


Facebook


Site Pessoal


Localização


Interesses

Found 24 results

  1. Bom dia, pessoal. A questão é que eu consigo acessar um endereço "dominio.com/modulo/id/titulo" e ele reescrever para "dominio.com/default.asp?link=artigo&id=123&titulo=teste", mas minha dúvida é se consigo fazer o processo reverso, ou seja, acessar "dominio.com/default.asp?link=artigo&id=123&titulo=teste" e ele alterar para "dominio.com/modulo/id/titulo". Códigos: WEB.CONFIG <?xml version="1.0" encoding="UTF-8"?> <system.webServer> <rewrite> <rules> <rule name="artigo" stopProcessing="true"> <match url="^artigo/?([a-zA-Z0-9_-]+)?/?([a-zA-Z0-9_-]+)?/?([a-zA-Z0-9_-]+)?$" /> <conditions> <add input="{REQUEST_FILENAME}" matchType="IsFile" negate="true" /> <add input="{REQUEST_FILENAME}" matchType="IsDirectory" negate="true" /> </conditions> <action type="Rewrite" url="default.asp?link={R:0}&id={R:1}&teste={R:2}" /> </rule> </rules> </rewrite> </system.webServer> ASP <!DOCTYPE html> <html lang="pt-br"> <head> <meta charset="utf-8"/> <title>Teste Isapi Rewrite</title> </head> <body> <p> Teste!<br> link: <%=request("link")%><br> id: <%=request("id")%><br> teste: <%=request("teste")%><br> </p> </body> </html> Desde já agradeço!
  2. Estou com o Visual Studio 2013 instalado sob o Windows 10. Quando tento abrir o primeiro projeto do livro supracitado, chamado Music Trivia, o Visual Studio 2013 montra na janela Solution Express a mensagem: > Solution 'Music Trivia' (0 projects) > Music Trivia (Windows 8.1 required) > This computer must be upgraded to Windows 8.1 to load this project. Como resolver isso e carregar esse e os outros projetos do livro? Desde já agradeço qualquer ajuda.
  3. felipegon02

    Comparar horário pra marcar consulta

    Gostaria da ajuda de vocês membros, estou fazendo um projeto que é pro meu TCC utilizando o MYSQL e o Visual Basic, neste projeto queria fazer agendamento de clientes, mas para isso, queria comparar o horário selecionado pelo cliente com o banco de dados, para ver se o horário está disponível mas não sei com fazer isso. Obrigado
  4. felipegon02

    Comparar horário pra marcar consulta

    Gostaria da ajuda de vocês membros, estou fazendo um projeto que é pro meu TCC utilizando o MYSQL e o Visual Basic, neste projeto queria fazer agendamento de clientes, mas para isso, queria comparar o horário selecionado pelo cliente com o banco de dados, para ver se o horário está disponível mas não sei com fazer isso. Obrigado
  5. Olá, pessoal! Tenho um banco de dados no excel com mais de 800 emails, e estou precisando desenvolver um programa ou página web que pegue todos esses emails e eu possa enviar uma mesma mensagem para todos... imagino que posso fazer isso com php (no caso de uma página web), mas não tenho certeza como. Me ajudem por favor, tenho até dia 8 desse mês pra resolver isso Obrigado a todos!!
  6. Olá amigos, boa noite Estava eu querendo fazer um app para meu "trampo" de formatação de pc's, só para que quando a pessoa dona do pc o ligasse um app aparecesse em sua tela automaticamente junto com o windows, e depois de fechado ele seria apagado ou apenas ignorado, mas não sei como fazer para ele iniciar uma única vez com o pc e após fechado n se abrir mais, pq é chato o cliente ligar o pc e toda hora aparecer aquilo: se fosse possível ainda criar um timer que após determinada vez que o pc iniciasse ele entrava com o app e depois de fechado ele sumia. Sei que pode parecer difícl kkkkkk mas me ajudaria mto se alguém pudesse disponibilizar sua inteligência cmg, Obrigado
  7. Nelson Pereira

    For Each Row com o uso de variaveis

    Bom dia pessoal, estou necessitado de ajuda.Estou usando um relatório no meu sistema que está vinculado a um dataset. No meu relatório tenho 3 campos que passo a explicar: "PreçoGrupo" ; "PreçoTotal" ; "PercTotal".O "PreçoGrupo" é alimentado por um valor do meu dataset (PRECstRp), que no relatório já está configurado para ir buscar o custo dos produtos por Grupo. e o campo "PreçoTotal" também é alimentado pelo (PRECstRp) que por sua vez está configurado no relatório para ser a soma de todos os grupos.... até aqui tudo bem..o meu problema vem a segui, com o campo "PercTotal'', que tem de ser alimentado com a seguinte formula ( "PreçoGrupo" / "PreçoTotal" ) * 100...isto para cada linha do relatório, pois cada linha corresponde a um grupo diferente de produtos.Porém os valores de "PercTotal'' não estão batendo certo.Alguém me pode ajudar a ver se estou alimentado as variavies de forma correta?Estou usando o segiinte: Dim CustoGrupo As Double Dim CustoTotal As Double For Each row As DataRow In ds.Tables("Dados2").Rows row("TotalGrupo") = CDbl(row("PRECstRp")) row("TotalGeral") = CDbl(row("PRECstRp")) CustoGrupo += CDbl(row("TotalGrupo")) CustoTotal += CDbl(row("TotalGeral")) If CustoGrupo > 0 Then row("PercTotal") = (CustoGrupo / CustoTotal) * 100 Else row("PercTotal") = 0 End If Next Return ds
  8. Estou tentando colocar pra rodar uma macro com a função SUM + CASE, mas está dando erro. A ideia é que apareça na célula C6 da Plan5 a soma das horas da empregada Adriana referentes ao mês de janeiro que estão cadastradas na Plan4. Na Plan4 tem dados de várias pessoas juntos, o CASE seria para encontrar aqueles da Adriana e os que foram cadastrados com alguma data do mês de janeiro. A partir disso somar as horas referentes aos dados encontrados. Deixei a linha do jeito mais fácil pra vocês entenderem o que quero: Sub relatorio() Plan5.Range("C6").ClearContents ultimaLinha = Plan4.Cells(Rows.Count, "A").End(xlUp).Row For i = 3 To ultimaLinha Plan5.Range("C6").Formula = SUM(CASE WHEN Plan4.Cells(i, 1) = "ADRIANA" And Month(Plan4.Cells(i, 2)) = 1 THEN SUM(Plan4.Cells(i, 5)) END) Next End Sub Eu até tentei usar o somases, mas como a planilha estará vazia e será preenchida ao longo do ano, não sei qual o conjunto de células colocar na fórmula. Por isso achei melhor fazer a macro pesquisar qual a última linha preenchida e fazer o cálculo só dessas linhas. Alguém pode me ajudar?!?!?!?!
  9. Boa Noite, tenho uma planilha com informações completas de clientes por estado (Abas Diferentes) e a quantidade de compras feitas. Queria uma macro que gerasse na aba RESUMO, um resumo dos daods dos clientes e a estado de onde foi a compra. Lembrando que a macro deve ignorar as linhas em branco e também ignorar os clientes que não fizeram nenhuma compra. O resultado esperado está na aba RESUMO. Lembrando que uma linha em branco deve separar os estados. Planilha Exemplo
  10. estou querendo trabalhar com a tabela grid porem eu quero uma ajuda pois nao estou conseguindo fazer ela mostrar dados por codigos e eu preciso que seja por codigo, se alguem puder ajudar me falando como escrever um codigo para fazer a tabela aparecer me ajudara muito. OBS: eu uso o DATA do VB6 porem preciso parar de usa-lo para fazer uma alteracao nos filtros da tabela.
  11. eu ja fiz um local de login e senha e depois abre uma janela para cadastrar exercicios eu queria que ele pegasse o usuario usado para abrir o sistema e marcar nos cadastros como na imagem
  12. Boa tarde caros, estou com um problema tenho uma aplicação que roda em Visual Basic, estou utilizando o visual studio 2013 para a construção e o SQL como banco de dados, a questão é a seguinte tenho uma tabela de produtos com os seguintes campos ProdutoCodigo int not null identity primary key, ProdutoCodBarras varchar ProdutoDescri varchar ProdutoValor Decimal ProdutoQTD int ProdutoDataCad date Marca_cod int chave estrangeira, Marca_nome varchar. o Que acontece é o seguinte cadastro um produto blz, quando vou cadastrar o segundo, a primeira linha/primeiro registro fica em branco e assim todas as minhas consultas se perdem.
  13. rafa-martin

    Criar pacote DTS no VB

    estou referenciando Microsoft DTSPackage Object Library. Só que quando executo, está informando que a variável está bloqueadou não está setada. Só que está. vejam Private PackageOld As New DTS.Package Private Package As DTS.Package2 Set Package = PackageOld
  14. mayconsilvaa

    Dúvidas Visual Basic + MySql

    Fala pessoal, blz ? Sou iniciante em VB e por isso estou com algumas dificuldades. Criei um sistema com 3 forms. form1 - Ele imprimir os resultados form2 - Cadastra os usuários form3 - Faz acesso a área principal ( que no caso é o form1 ). form2 - Está cadastrando corretamente. form3 - Está acessando corretamente com os dados que foi cadastrado no form2. O problema é no form1, eu criei uma Label que gostaria que ela imprimisse um resultado que encontra-se no BD... vamos entender. Form2 - Possui 3 campos ( É possível perceber que no cadastro ele insere 3 informações no bd ) Form3 - Acessa a área principal (Já após o cadastro é solicitado apenas "usuário e senha" ). Form 1 - É neste que desejo o resultado BD - Resumindo.. Eu gostaria que após logar no sistema e fosse aberto o form1, o sistema automaticamente detectaria qual o usuário logou e que fosse impresso o campo "nome" deste usuário cadastrado na Label citada acima, que no caso é Label inserida no form1. Agradeço a quem puder ajudar hehehe. Abraços.
  15. alrai

    Erro 80020009

    Olá, estou criando uma rotina de cadastro simples, apos incluir uma verificação se o usuário existe no banco de dados , começou apresentar um erro error '80020009' na linha " if Cadastrar_CodEmpresa = verificar("Usuario") Then" . o erro apresenta quando o campo "verificar("Usuario")" está sem informações, ele deveria seguir adiante e executar o comando para gravar correto? Gostaria de uma luz, pois sou novo em asp..net e VB a rotina para verificar se existe um usuário Cadastrado: set verificar = conexao.execute ("select Usuario from empresas") while not verificar.eof verificar.movenext if Cadastrar_CodEmpresa = verificar("Usuario") Then response.Redirect("index.asp?pagina=login") if not verificar.eof Then verificar.movenext End if set cadastrar_cadastro = conexao.execute("insert into Empresas (Usuario,Telefone) Values ('" & Cadastrar_CodEmpresa & "' , '" & Cadastrar_Telefone & "')") End if Wend Codigo Completo if request.Form("commentForm") = "sim" then Cadastrar_CodEmpresa = request.Form("CodEmpresa") Cadastrar_Segmento = request.Form("Segmento") Cadastrar_Endereco = request.Form("Endereco") Cadastrar_Bairro = request.Form("Bairro") Cadastrar_Cidade = request.Form("Cidade") Cadastrar_CEP = request.Form("CEP") Cadastrar_Pais = request.Form("Pais") Cadastrar_Contato = request.Form("Contato") Cadastrar_Telefone = request.Form("Telefone") Cadastrar_Email = request.Form("email") set verificar = conexao.execute ("select Usuario from empresas") while not verificar.eof verificar.movenext if Cadastrar_CodEmpresa = verificar("Usuario") Then response.Redirect("index.asp?pagina=login") if not verificar.eof Then verificar.movenext End if set cadastrar_cadastro = conexao.execute("insert into Empresas (Usuario,Telefone) Values ('" & Cadastrar_CodEmpresa & "' , '" & Cadastrar_Telefone & "')") End if Wend
  16. Olá, não sou desenvolvedor Delphi e na empresa que trabalho temos componente em Visual Basic para realizar autenticação do usuário. Temos um sistema em Delphi feito por um cliente que precisa consumir nossa dll e o analista está com dificuldades. Alguém poderia me ajudar a converter esse código para Delphi? Desde já agradeço. Dim obj as Object Dim codigoRetornoLogin As Integer Dim mensagemLogin As String 'Instanciar objeto COM Set obj = CreateObject("DB_Seguranca.GER_SEG") 'Preencher Módulo, login e senha obj.modulo = "CONTRAT" obj.usuario.User_ID = txtLogin.Text obj.usuario.Senha = txtSenha.Text 'Validar login codigoRetornoLogin = obj.Valida_acesso() 'Se retorno for <> 0, significa login é inválido If (codigoRetornoLogin <> 0) Then 'Obtém a mensagem de erro para exibição ao usuário mensagemLogin = obj.ObterMensagemLogin(codigoRetornoLogin) 'Mata objeto COM da memória Set obj = Nothing 'Exibe mensagem de negócio ao usuário MsgBox mensagemLogin Exit Sub End If Set obj = Nothing 'Usuario autenticado com sucesso 'Segue a vida...
  17. gelopes

    Comparar arquivos

    Olá pessoal, tudo bem? Sou novo por aqui e novo no VB hehe Tenho um trabalho para entregar no curso e não faço ideia de como fazer. É uma aplicação bem simples, podem me ajudar? Tenho dois arquivos TXT com uma lista de nomes. Um nome por linha. Preciso de uma aplicação que "abra o arquivo 01", "abra o arquivo 02" e que ao clicar em um botão, ele gere um terceiro aquivo TXT somente com os nomes que não estão repetidos, ou seja, somente com os nomes que não se repetem nos dois arquivos. E eu possa selecionar onde salvar esse terceiro arquivo. Exemplo do layout: http://prntscr.com/d9hbqg Obrigado desde já pela atenção pessoal. Um abraço!
  18. rafalbino

    url amigavel para vb asp.net

    Fala galera, estou tentando tornar minha url amigável. Tenho uma página chamada /contato.aspx e gostaria de torná-la apenas /contato/ Os exemplos que encontrei não funcionaram.
  19. Breno Riot

    Consulta dentro de outra consulta

    E ai galerinha, vim aqui pedir uma ajuda porque estou a um tempo nisso e até agora não achei uma luz para o meu problema. o seguinte, to querendo fazer uma consulta na tabela e nessa consulta ele trás todos os times da tabela, ordena por pontos maior e cria uma outra coluna com posição Select a.Usuario, a.Nome, Pontos, @rownum :=@rownum+1 posicao from times a, (Select @rownum:=0) r order by Pontos Desc; esse código acima me trás a consulta da imagem abaixo http://prntscr.com/c9ecob o que eu não sei, é fazer outra consulta dentro dessa consulta, pra trazer por exemplo, tal usuário "127", ai essa outra consulta me traria só os dados desse usuario ("127") no caso Usuario: 127 Nome: Wolverinex Pontos: 5798800 Posição: 4 Eu quero essa consulta porque assim eu posso dizer em uma label, qual a posição do usuário logado no sistema.
  20. Olá amigos, estou desenvolvendo um projeto no qual, possuo uma tabela com nome de Proprietarios no banco e preciso passar dois valores para duas colunas dessa tabela, que possuem nome Placa1 e Placa2, fiz o código no sql e ocorreu tudo da forma que eu esperava, segue o código que usei abaixo. Quando fiz a programação em VB, criei as seguintes variáveis: Após criar as váriaveis criei o update, no botão de salvar: Ele executa o sistema porém não altera nenhum valor da o seguinte erro: Porém não consigo solucionar o erro, aguardo ajuda de alguém, valeu pela atenção pessoal!
  21. Olá eu uso o seguinte codigo para abrtir um programa externo Dim procInfo = New System.Diagnostics.ProcessStartInfo(strCaminho) procInfo.WorkingDirectory = System.IO.Path.GetDirectoryName(strCaminho) Dim _childp As Process Dim _appWin As IntPtr _childp = System.Diagnostics.Process.Start(procInfo) _childp.WaitForInputIdle() a variavel strCaminho por exemplo vem assim: C:\Tela.exe porem para que o usuario nao va no sistema e execute externamente nos mudamos o Tela.exe para Tela.acb mas com esse Tela.acb o Process.Start nao executa, ele abre a opção de selecionar um programa padrão. eu preciso utilziar o Process pois armazeno as telas abertas em um List(of) por isso nao poderia usar o comando Shell (que neste caso idependente da extenção executa meu programa) alguma solução ? para usar o Star, com a extenção alterada.
  22. Jhonatan Jorge de Lima

    Abrir exe dentro de um window WPF

    Tenho um window, (formulário) feito em WPF, preciso abrir a calculadora, dentro deste formulário, porem não é só abrir o processo ele deve estar atrelado, ao programa que estou executando, como se fosse um formulário filho do formulário em wpf. No geral a duvida é, como abrir um exe dentro do wpf, fazendo com que esse exe seja parte do programa, que a janela fique aberta dentro do espaço do programa, ao fechar a tela principal o exe feche junto, se minimizar minimize junto, como se eu usasse o SetParent.
  23. Vinnyy

    usar variavel em string

    Olá, estou tentando fazer um codigo de shutdown mas ele não está funcionando se eu colocar uma variavel, por exemplo. System.Diagnostics.Process.Start("shutdown.exe", "-s -t 300") este codigo acima funciona, porem o 300 é variavel, ja tentei: System.Diagnostics.Process.Start("shutdown.exe", "-s -t \\" & complemento) a variavel complemento é passado por um outro sistema (sim, ela retorna um valor numerico referente aos segundos, ja testei.) Como posso fazer isso funcionar?
  24. Olá! Gostária a ajuda de vocês para salvar dados em um arquivo (TXT). Até o momento consegui fazer para salvar o arquivo, mas o que quero fazer é isto: Pegar um texto em uma textbox Fazer com que este texto seja "colado" em uma txt seguido de algo que o separe de um conjunto de numeros que seram dados de um loop, por exemplo Nome;001 Nome:002 Nome:... Nome:999 Sendo que deve ser delimitado o For tipo quero que sejam colocados 100 numeros, no caso de 0 a 99 Esperam que tenham entendido o que quiz dizer! Até o momento fiz um sistema para salvar e não consegui fazer o loop que salve os dados que quero, estou bem perdido e obviamente sou iniciante em VB! Vlw a atenção de todos! Imports System.IO Public Class Form1 Dim contador As Integer Dim arquivo As System.IO.File Dim escArquivo As System.IO.StreamWriter Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim separador As String = ";" Dim texto As String email = TextBox1.Text For contador As Integer = 0 To 999999 WriteLine(texto + separador + contador) Next Dim salvarArquivo As SaveFileDialog = New SaveFileDialog() Dim caminho As DialogResult Dim fluxoTexto As IO.StreamWriter Dim arquivo As String salvarArquivo.CheckFileExists = False salvarArquivo.Title = "Arquivo Texto |*.txt |" caminho = salvarArquivo.ShowDialog arquivo = salvarArquivo.FileName If arquivo = Nothing Then MessageBox.Show("Arquivo Inválido", "Salvar Como", MessageBoxButtons.OK) Else fluxoTexto = New IO.StreamWriter(arquivo) fluxoTexto.Write(txtLinhas.Text) fluxoTexto.Close() End If End Sub Private Function txtLinhas() As Object Throw New NotImplementedException End Function
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.