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

  • Programação & Desenvolvimento
    • ASP
    • PHP
    • .NET
    • Java
    • C, C++
    • Delphi, Kylix
    • Lógica de Programação
    • Mobile
    • Visual Basic
    • Outras Linguagens de Programação
  • WEB
    • HTML, XHTML, CSS
    • Ajax, JavaScript, XML, DOM
    • Editores
  • Arte & Design
    • Corel Draw
    • Fireworks
    • Flash & ActionScript
    • Photoshop
    • Outros Programas de Arte e Design
  • Sistemas Operacionais
    • Microsoft Windows
    • GNU/Linux
    • Outros Sistemas Operacionais
  • Softwares, Hardwares e Redes
    • Microsoft Office
    • Softwares Livres
    • Outros Softwares
    • Hardware
    • Redes
  • Banco de Dados
    • Access
    • MySQL
    • PostgreSQL
    • SQL Server
    • Demais Bancos
  • Segurança e Malwares
    • Segurança
    • Remoção De Malwares
  • Empregos
    • Vagas Efetivas
    • Vagas para Estágios
    • Oportunidades para Freelances
  • Negócios & Oportunidades
    • Classificados & Serviços
    • Eventos
  • Geral
    • Avaliações de Trabalhos
    • Links
    • Outros Assuntos
    • Entretenimento
  • Script Brasil
    • Novidades e Anúncios Script Brasil
    • Mercado Livre / Mercado Sócios
    • Sugestões e Críticas
    • Apresentações

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests

Found 39 results

  1. Olá a todos! Este é meu primeiro tópico, li as regras e acredito que eu esteja fazendo certo publicando este tópico. Primeiro é importante saber que não sou programador. Sou um entusiasta e sei algumas coisas entre as linguagens mais comuns. Há algum tempo aprendi a usar VBA para me ajudar em certos procedimentos da faculdade e depois comecei com VB e .NET para automatizar alguns processos no trabalho. O que me leva a esta postagem. Tenho uma pastas com diversas subpastas e dentro destas vários arquivos XML. Destes há alguns que necessito periodicamente mudar algumas poucas linhas. Minha ideia é criar uma GUI que me permita agilizar esse processo. Então no APP eu teria os campos onde irei introduzir o novo texto para o trecho específico e salvaria o XML com a atualização. O código do XML é sempre o mesmo, mudando apenas esses trechos específicos. Creio que o legal seria ter na base de dados do próprio APP o texto dos XMLs. Eu escolheria o XML que vou mudar, na interface nos campos específicos introduzo o novo texto e exporto. Sei criar a interface gráfica, a função para exportar o novo arquivo (até mesmo exportar dentro da subpasta específica) dentro outras funções que irei implementar. Mas a parte de mudar um trecho específico do XML eu estou com dúvidas. Segue um esquema do que preciso: Na interface escolho o modelo de XML nº2 -> Abre uma nova interface e nela as TextBox para introduzir o novo conjunto de Strings que será armazenado no trecho específico do modelo XML -> Digito o texto e seleciono o botão salvar. Feito isto o sistema irá solicitar onde quero salvar o arquivo mas ao salvar quero que seja criada junto uma estrutura de diretórios : Exemplo: Pasta Avó\Pasta Mãe\Pasta Filha\Pasta Neta\Arquivo XML Onde o nomes das pastas seria digitadas em TextBoxs na mesma interface onde digito as Strings do XML. Não quero um código pronto para isso, na verdade gostaria de instruções claras e objetivas que pudessem me guiar na programação desse APP. Sou bastante autodidata e neste momento que leem este tópico estou pesquisando soluções para este meu projeto. Desde já agradeço a compreensão e colaboração de todos. Segue o código de um dos modelos de XML que preciso mudar. Na imagem está destacado as únicas duas linhas que irei mudar. Nos outros XMLs também serão isso, 2 ou 3 linhas. Mas são muitos para ficar abrindo um por um. <?xml version="1.0" encoding="UTF-8"?> <activity id="765" moduleid="938" modulename="lti" contextid="1242"> <lti id="765"> <name>Conjuntos numéricos</name> <intro></intro> <introformat>1</introformat> <timecreated>1541636307</timecreated> <timemodified>1541636307</timemodified> <typeid>0</typeid> <toolurl>https://sagahcm.sagah.com.br/sagahcm/lti/launch.php?ua=2220</toolurl> <securetoolurl></securetoolurl> <launchcontainer>1</launchcontainer> <instructorchoicesendname>1</instructorchoicesendname> <instructorchoicesendemailaddr>1</instructorchoicesendemailaddr> <instructorchoiceacceptgrades>1</instructorchoiceacceptgrades> <instructorchoiceallowroster>[email protected]@$</instructorchoiceallowroster> <instructorchoiceallowsetting>[email protected]@$</instructorchoiceallowsetting> <grade>100</grade> <instructorcustomparameters></instructorcustomparameters> <debuglaunch>0</debuglaunch> <showtitlelaunch>1</showtitlelaunch> <showdescriptionlaunch>0</showdescriptionlaunch> <icon></icon> <secureicon></secureicon> <resourcekey encrypted="true">0vBE3AN+y43rsRkh1GdOG9IfnNQVWm6zOfPOla79rwg6iv+IAnNgbmIpyVcmIEdHvv6fbK/iVqzuQ32If8Wj/g==</resourcekey> <password encrypted="true">j6xn8mJCYdvO/3QkEeuV4thhdWxzxBfet3clxprKc/xgjY4/XPg38uBqX0/+lVr8naQfnNG1eHRwDY3Uy+4HIQ==</password> <ltisubmissions> </ltisubmissions> <subplugin_ltiservice_gradebookservices_lti> <lineitems> </lineitems> </subplugin_ltiservice_gradebookservices_lti> </lti> </activity>
  2. Olá, Bom Dia! Sou novo por aqui mas entendo uma boa parte do VB. Queria que vocês me ajudassem nessa minha duvida. Estou desenvolvendo um Sistema de Controle Patrimonial no Visual Studio 2010 Ultimate em linguagem Visual Basic que é a mais básica e por isso entendo melhor. E estou tendo problemas na hora de gerar os relatórios de todos os bens patrimoniais. Pois no meu sistema à bens que foram dados baixa (bens que não estão disponíveis para uso devido a quebras ou por serem velhos.) e também bens que foram emprestados à outras organizações ou Centros de Custos. Por isso queria saber como fazer para quando eu for gerar um relatório geral, não aparecer nele os bens que não estão mais disponíveis (baixas, doações e emprestados), e só aparecer os que estão ativos ainda, sabe. Se poderem me ajudar eu agradeço! E se tiver alguém que entende bem de Visual Basic ou Visual Studio e poder me ajudar, favor entre em contato, pois como sou novo nessa linguagem eu não entendo muito. Obrigado e Até mais!
  3. Bom dia pessoal, estou com uma dúvida na criação de uma formula no VB. A | B | C | vSaldoFinal 0 | 13 | 129,5 | 116,5 = C + A - B 0 | 13 | 129.5 | 103,5 ( Para calcular este campo, necessito do resultado do campo acima) = vSaldoFinal + A - C FÓRMULA: Somente no primeiro campo deve ser: C + A - B Nos próximos campos: vSaldoFinal + A - C vSaldoFinal + A - C vSaldoFinal + A - C vSaldoFinal + A - C Etc A fórmula que tenho aqui é: WhilePrintingRecords; CurrencyVar vSaldoFinal; if {tabela.MOV_CH_SITUACAO}<>'C' then vSaldoFinal := ({@campoC} + {tabela.campoA}) - {tabela.campoB}; vSaldoFinal; Poderiam me ajudar por favor?
  4. Pessoal, tenho um form com uma picturebox que contem um gif de loading. Estou tentando fazer com que antes de executar um método ele exiba essa imagem de carregando e feche quando terminar. ele até funciona mas em determinado momento conforme o uso ele me retorna o erro: An unhandled exception of type 'System.Threading.ThreadAbortException' occurred in System.Drawing.dll Additional information: O thread estava sendo anulado. Public Class clsModoCarregando Dim FrmLoading As New Loading Dim trdelegate As New ThreadStart(AddressOf carregarFormLoading) Dim trd As New Thread(trdelegate) Private Sub carregarFormLoading() Try FrmLoading.ShowDialog() Catch ex As ThreadAbortException Thread.ResetAbort() End Try End Sub Public Sub ExibirLoad() If Not trd.IsAlive Then trd.Name = "threadCarregando" trd.IsBackground = True trd.Start() End If End Sub Public Sub FecharLoad() If trd.IsAlive Then trd.Abort() trd.Join() End If End Sub End Class 'evento do botao pesquisar do form Private Sub btnPesquisar_Click(sender As Object, e As EventArgs) Handles btnPesquisar.Click Dim ModoCarregando As New Ambiente.clsModoCarregando If lstConsulta.Items.Count > 0 Then ModoCarregando.ExibirLoad() dtgPesquisa.DataSource = insPesquisa.pesquisar(lstConsulta, dtNomesPesquisa.Rows(0)("Tabela")) dtgPesquisa.DataMember = dtNomesPesquisa.Rows(0)("Tabela") ModoCarregando.FecharLoad() Else If txtValorPesquisa.Text = String.Empty Then MsgBox("informe o valor a ser pesquisado.", vbInformation) txtValorPesquisa.Focus() Else MsgBox("Adicione a consulta antes de pesquisar.", vbInformation) btnAdicionar.Focus() End If End If End Sub
  5. Bom eu preciso pegar os dados de duas text box e gravar em um arquivo, é o sistema de login de um jogo, porem, o meu código não pega os dados e grava a mesma coisa que esta escrita no code. Imports System Imports System.IO Imports System.Text Public Class Form0 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim path As String = "D:\MyTest.bat" ' Create or overwrite the file. Dim fs As FileStream = File.Create(path) ' Add text to the file. Dim info As Byte() = New UTF8Encoding(True).GetBytes("MixMaster.exe 3.855000 25.41.241.8 22005 0 TextBox1.Text TextBox2.Text 1 AURORA_BRA") fs.Write(info, 0, info.Length) fs.Close() Form1.Show() Me.Hide() End Sub End Class Esse é o código, ao invés de sair com os dados da text box, ele resulta em: MixMaster.exe 3.855000 25.41.241.8 22005 0 TextBox1.Text TextBox2.Text 1 AURORA_BRA ao invés de: MixMaster.exe 3.855000 25.41.241.8 22005 0 LOGIN-DIGITADO-NA-TEXT-BOX SENHA-DIGITA-NA-TEXT-BOX 1 AURORA_BRA Obrigado agradeço desde já <3
  6. Bom dia, Estou desenvolvendo um sistema biométrico utilizando o SDK da Digital Persona com VB. O sistema já está consultando e cadastrando, porém me deparei com um grande problema, o projeto não roda em segundo plano. Ou seja, só de desfocalizar o formulário, já para de capturar a digital. O sistema funciona da seguinte maneira, o formulário inicial fica esperando a digital ser colocada no leitor para fazer a consulta no banco, caso a digital já esteja cadastrada o sistema libera a catraca, caso contrário, habilita um botão para que o usuário possa acessar o formulário de cadastro. O que preciso é que o formulário inicial continue esperando a digital mesmo que esteja em segundo plano. Desde já, Obrigado
  7. bom dia, sou novo na area e estou fazendo um control de estoque. e na tentativa de tirar o ultimo registo de uma datagridview que lanca para o sql server. tenho este erro Erro "conversão do tipo dbnull para o tipo string não é válida quando faco o seguinte codigo Private Sub obterultimoregistro() Try conectar.Open() Dim comando As New SqlCommand comando.CommandText = "select Max (nfatura) from faturas" comando.CommandType = CommandType.Text comando.Connection = conectar adaptar.SelectCommand = comando conectar.Close() tabela.Clear() adaptar.Fill(tabela) Dim nfatura As String = tabela.Rows().Item(0).Item(0) Catch ex As Exception MsgBox(ex.Message) End Try peco ajuda de como poco fazer isto. obrigado atecipado
  8. 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 beleza, quando vou cadastrar o segundo, a primeira linha/primeiro registro fica em branco e assim todas as minhas consultas se perdem.
  9. Boa noite a todos. Estou tendo problemas para salvar em meu bando de dados acess as informações de cadastro de novos usuários. o que acontece é que quando clico em salvar, ele não salva as informações na tabela e também não executa o restante dos comandos para fechar a form de cadastro e voltar a form de inicio.... se puderem me dar uma ajuda... segue a baixo o código... agradeço desde já pela ajuda de todos... os objetos estão sendo importados form de login Imports System.Data.OleDb Public Class frnovousuario Private ds As Object Private dt As Object Private conexao As Object Private da As Object Private Sub Btn_limpar_Click(sender As Object, e As EventArgs) Handles Btn_limpar.Click Txt_nomeusuario.Text = "" Txt_senhausuario.Text = "" Cmb_classeusuario.Text = "" End Sub Private Sub Btn_cancelar_Click(sender As Object, e As EventArgs) Handles Btn_cancelar.Click Me.Hide() frinicio.Show() End Sub Private Sub Btn_salvar_Click(sender As Object, e As EventArgs) Handles Btn_salvar.Click If Txt_nomeusuario.Text = "" Then MsgBox("Informe o Nome de Usúario", vbInformation) : Txt_nomeusuario.Focus() ElseIf Txt_senhausuario.Text = "" Then MsgBox("Informe a Senha de Usúario", vbCritical) : Txt_senhausuario.Focus() ElseIf Cmb_classeusuario.Text = "" Then MsgBox("Informe a Classe de Usúario", vbInformation) : Cmb_classeusuario.Focus() ElseIf Txt_nomeusuario.Text = Txt_confirmasaosenha.Text Then conexao.open() ds.Tables.Add(dt) da.Fill(dt) Dim novo As DataRow = dt.NewRow With novo .Item("Usuario") = Txt_nomeusuario.Text .Item("Senha") = Txt_senhausuario.Text .Item("Tipo") = Cmb_classeusuario.Text End With dt.rows.Add(novo) Dim cb As New OleDbCommandBuilder(da) da.Update(dt) conexao.close() MsgBox("Novo Usuária Criado Com Sucesso") Me.Close() frinicio.Show() End If End Sub End Class
  10. Galera, bom dia! Sou abelhudo e metido em criar coisas no meu tempo livre, então caso voces possam ajudar gostaria de perguntar algo. Aqui aonde eu trabalho a galera vive pedindo para instalar scanner e impressora, quando muda de mesa, de micro, setor, etc. então estou criando um programa para que os mesmo consigam instalar de forma intuitiva sem necessidade ou intervencao do suporte técnico. já consegui fazer com que instalem impressoras com sucesso, tudo funcionando normalmente. o problema é em relação ao scanner. não consigo achar instruções que necessito, por exemplo, para adicionar um scanner ao computador do usuário pelo VB. quando digito scanner+ip so vem sobre criar ou baixar programas para scannear ips da rede, não consigo relacionar ip+scanner do sentido de instalar um scanner via ip assim como fazemos no windows fax/scan manager. voces poderiam me dar uma luz? não é por falta de procurar ou preguiça, realmente so estou empacado em como adicionar um scanner via ip no computador do usuario, e quando tento procurar fontes para sanar essa duvida so caio nos resultados malditos sobre ip scanning software. Obrigado a todos que deram uma atencao para a questao e principalmente a quem puder me indicar na direção certa.
  11. boa Tarde pessoal, quero fazer uns cálculos aqui usando VB com excel, por exemplo: tenho os valores nas colunas A, B e C, e quero um resultado na coluna D = A+B-C, sendo que vai da linha 2 ate 20. mas preciso que na hora que eu alterar qualquer valor dessas Campos, (A. B, C) já faça o calculo automaticamente na D, sem uso de botão tentei fazer assim mas fica dando loop infinito. Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Double For i = 2 To 20 Cells(i, "D").Value = Cells(i, "A").Value + Cells(i, "B").Value - Cells(i, "C").Value Next i End Sub
  12. Bom dia, sou novo no forum então se postei no lugar errado peço para que me mova ao lugar correto, assim poderão me ajudar. Criei um Launcher Auto Update pelo Visual Basic 2010-2008 porém tem um arquivo que é um pouco pesado e em alguns computadores na hora do launcher baixar esse arquivo ele para de funcionar. Procurei em vários lugares e todos falam de uma biblioteca porém eu n sei usar bibliotecas no visual basic então se alguém puder me ensinar ou ter alguma outra solução eu agradeço
  13. bom dia fiz esse código ele executado tudo mas quando digito a idade ele fecha gostaria de uma forcinha. Module Module1 Sub Main() Dim nome, endereco, telefone, cpf As String Dim idade As Integer Console.WriteLine("Seja bem Vindo....") Console.WriteLine("Para continuar escolha uma opção....") Console.WriteLine("1 - Para novo cadastro") Console.WriteLine("2 - Para Mensalidade") Console.WriteLine("3 - Para Sair") Dim opcao As Integer = Console.ReadLine() If opcao = 1 Then Console.WriteLine("Digite seu nome:") nome = Console.ReadLine() Console.Write("Digite seu cpf:") cpf = Console.ReadLine() Console.Write("Digite seu endereço:") endereco = Console.ReadLine() Console.Write("Digite seu telefone:") telefone = Console.ReadLine() Console.Write("Digite sua idade") idade = Console.ReadLine() Select Case idade Case 3 a 12 Console.WriteLine(nome + " Foi Cadastrado na modalidade Infantil, Sua taxa de inscrição para pagar e R$ 15,00 (quinze reais") Console.ReadKey() Case 13 a 17 Console.WriteLine(nome + " Foi Cadastrado na modalidade Juvenil, Sua taxa de inscrição para pagar e R$ 15,00 (quinze reais") Console.ReadKey() Case 18 a 100 Console.WriteLine(nome + " Foi Cadastrado na modalidade Adulto, Sua taxa de inscrição para pagar e R$ 15,00 (quinze reais") Console.ReadKey() End Select ElseIf opcao = 2 Then Console.WriteLine("Digite seu nome:") nome = Console.ReadLine() Console.Write("Digite seu cpf:") cpf = Console.ReadLine() Console.Write("O pagamento da mensalidade é de R$100.00 (cem reais) " + nome) Console.ReadKey() ElseIf opcao = 3 Then Console.WriteLine("Xau xau xau xau") Console.ReadKey() End If End Sub End Module
  14. Ola a todos, Gostaria de saber se tem como, saber a versão do office que esta instalado no PC? Tipo quero saber se e office 2010 - 2013 - 2016 - 2007 Estou fazendo um levantamento de equipamentos, pegando o Hostname, Usuário, Versão do Windows, Serial Number do PC e a versão do office e salvar em um txt em uma pasta na rede. Mas só esta faltando descobrir a versão do Office, se alguém souber eu posto depois o scripts completo.
  15. Boa noite, eu fiz um programa que "carrega " em varias teclas ao mesmo tempo porem ele só faz isso em apenas na aplicação que é a que está a aberta naquele momento. Eu queria saber se existia alguma maneira de o fazer executar em varias aplicações ao mesmo tempo.
  16. Boa tarde, Gostava de partilhar uma duvida, tenho andado a fazer um programa onde o usuario tem de fazer login para acessar ao conteudo do programa, ate tudo bem resolvi isso adcionando uma base de dados do access no VB e liguei-os sem problema atraves do seguinte codigo. Dim login = Me.LoginsTableAdapter1.login(username.Text, pass.Text) If login Is Nothing Then MsgBox("Dados incorretos") Else Form2.Show() Me.Hide() End If End Sub O problema apareceu quando tentei fazer um sistema de registro e me deparei com a situação que não sabia como fazer como que os dados de uma textbox fossem guardados na tabela do access e gostaria que alguém me diga como poderie fazer.
  17. Bom dia Pessoal, alguém teria um exemplo de login ou cadastro feito em Visual basic 2012 consultando / adiconando informações em tabalas do SQL Express ?
  18. Estou precisando resolver uma forma de conexão de um aplicativo que estou desenvolvendo aqui na empresa onde trabalho. É o seguinte: aqui na empresa onde trabalho temos 2 banco de dados (um para lojas de materiais de construção, e outro para as lojas agrícolas), mas ambas filiais utilizam o mesmo software com a mesma base de dados, somente as informações contidas (produtos, estoque, clientes,financeiro,etc) que são diferentes. Então atualmente tenho um aplicativo que desenvolvi,para gerar alguns relatórios personalizados que não temos no sistema atual por se tratar de ser de empresas terceirizadas, então por enquanto eu tenho 2 aplicativos iguais mas cada um configurado com uma base diferente, então quando preciso fazer alguma alteração tenho que fazer 2 vezes, alterando em cada aplicativo. Gostaria de saber como posso fazer para ter somente um aplicativo mas que possa conectar em bases diferentes. Atualmente tenho uma dataset parametrizada com um banco de dados especifico, e este dataset criou uma string de conexao chamada"NOMEDOBANCOConnectionString", mas essa string é somente leitura ai não consigo modificar o caminho do banco de dados. Aguardo por uma possivel solução. OBS: Lembrando que uso banco de dados SQL Server.
  19. Olá pessoal, Desenvolvo um software de Visual Basic e banco de dados SQL Server (2012), e sempre utilizei o Crystal Reports 10 para a geração de relatórios. Recentemente, para acompanhar a evolução da ferramenta atualizei também a versão do Crystal Report para a 2013, após essa atualização estou enfrentando alguns problemas. Contexto: Gero um relatório para exibição do fluxo de caixa, nesse fluxo de caixa é exibida a movimentação financeira das empresas, com possibilidade de filtrar data, empresa, conta corrente, dentre outros filtros, e esses dados são carregados com base em uma tabela (TB_FLUXO_CAIXA). Dentro do relatório, tenho um subReport que exibe o saldo atual da conta, esse subReport é gerado utilizando uma view (V_SALDO_CONTA_CC). Os vínculos entre tabela TB_FLUXO_CAIXA <-> V_SALDO_CONTA_CC são dois campos em comum COD_EMPRESA e COD_USUARIO. Problema: Tenho 5 empresas no mesmo banco de dados, gero o relatório realizando um filtro múltiplo para exibição dos dados da empresa 1, 2 e 3. O fluxo de caixa é exibido corretamente, com os dados das contas, porém os saldos, são exibidos somente da empresa 1. Obs.: O problema ocorreu após a atualização do Crystal Report da versão 10 para 2013. Na aplicação não teve nenhuma modificação.
  20. Olá pessoal, primeiramente quero parabenizar ao pessoal do fórum, está me ajudando muito a obter mais conhecimentos e a solucionar algumas dúvidas que vão surgindo!! Bom vamos ao que interessa... Estou desenvolvendo meu primeiro aplicativo em Visual Basic usando Microsoft Visual Studio com banco de dados em SQL, e já estou com 70% do projeto pronto, mas atualmente eu uso a opção de conexão com banco de dados oferecida pelo próprio assistente do Visual Studio - Menu Data - Add New Data Source, onde eu informo o nome do servidor de dados, usuário e senha e o banco na qual quero me conectar. Bom até ai tudo bem, pois como disse, meu projeto está em 70% e já estou conseguindo comunicar com banco: gravar, alterar e deletar registros. Mas me surgiu uma dúvida, quando for instalar futuramente este aplicativo em algum cliente por exemplo, provavelmente terá erros pois no próprio código do software eu estou apontando o banco de dados para um servidor especifico, e isso com certeza ira gerar algum tipo de transtorno. E analisando algumas informações, vi que alguns softwares usam um arquivo xxx.ini onde eles gravam as informações de conexão, e então o software cria sua conexão com o banco de dados a partir dele. Então realizei uma cópia do meu projeto e estou tentando implanta esta forma de conexão, inclusive já consegui fazer o meu software gravar e ler este arquivo xxx.ini que fica na mesma pasta de instalação do software, mas agora estou com dúvidas em como vou fazer o meu projeto ler as informações contidas neste arquivo e criar sua string de conexão com o banco. Então agora preciso da colaboração do forum para me ajudar a resolver esta dúvida, ou se for o caso, me sugerirem outo modo que achem viável para solucionar meu problema. RESUMINDO: preciso de alguma forma de conexão com banco de dados Sql prática para quando for instalar em um cliente, não precise entrar no codifo-fonte e alterar as informações de coenxao como banco de dados, de preferencia gostaria de usar o modo de leitura do arquivo xxx.ini. Att, Gleiterson.
  21. Estou com um problema em adicionar/editar/deletar novos itens na tabela, eu segui um tutorial e me levou ao código abaixo e funciona, ele lista os valores na combobox, mas ai eu clico em adicionar e abr e o form2 com dois textbox form1.vb: Imports System.Data Imports System.Data.OleDb Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load PPreenchaComboBox() End Sub Private Sub PPreenchaComboBox() Using con As OleDbConnection = GetConnection() Try con.Open() Dim sql As String = "SELECT Nome FROM servidores" Dim cmd As OleDbCommand = New OleDbCommand(sql, con) Dim da As OleDbDataAdapter = New OleDbDataAdapter Dim dt As DataTable = New DataTable da.SelectCommand = cmd da.Fill(dt) cmxNomeservidores.DisplayMember = "Nome" cmxNomeservidores.DataSource = dt Catch ex As Exception MsgBox(ex.Message) Finally con.Close() End Try End Using End Sub Private Sub PleDados() Dim dr As OleDbDataReader = Nothing Using con As OleDbConnection = GetConnection() Try con.Open() Dim sql As String = "SELECT IP FROM servidores WHERE nome='" & cmxNomeservidores.Text & "'" Dim cmd As OleDbCommand = New OleDbCommand(sql, con) dr = cmd.ExecuteReader(CommandBehavior.SingleRow) If dr.HasRows Then dr.Read() lbl_IP.Text = dr.Item("IP") Else MsgBox("Não foi encontrado") End If Catch ex As Exception MsgBox(ex.Message) Finally con.Close() End Try End Using End Sub Private Sub cmxNomeservidores_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmxNomeservidores.SelectedIndexChanged PleDados() End Sub Private Sub btn_addservidor_Click(sender As Object, e As EventArgs) Handles btn_addservidor.Click Form2.Show() End Sub End Class mdlAcesso.vb: Imports System.Data Imports System.Data.OleDb Module mdlAcesso Public Function GetConnection() As OleDbConnection Dim sql As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\bancoservidores.accdb" Return New OleDbConnection(sql) End Function End Module
  22. Galera estou fazendo um programa para controle de gastos, e ele esta seguindo uma rotina estranha e que eu não consigo resolver. O Problema é o seguinte: Existe uma TextBox na qual o usuário insere o valor do gasto/recebimento, está tudo funcionando direitinho até o momento em que o usuário deleta um numero dessa TextBox. Ao deletar, na tela do usuário o numero desaparece, mas quando ele insere um novo numero, o numero que foi deletado reaparece... Acredito que o problema esteja no modo que utilizei para colocar a ","(virgula) na segunda casa do numero, se souberem outro jeito de colocar a virgula ou então uma forma para fazer o backspace deletar de verdade por favor me ajude. Código Relacionado ao Problema: Variáveis Pré Declaradas: Dim LimparTextBoxValor As Boolean = True Dim LimparTextBoxDescrição As Boolean = True Dim LimparTextBoxDetalhes As Boolean = True Dim valorAtual As Double = 0 Dim ValorDepoisDoBackspace As Double = 0 Dim CursorNoFimDaLinhaAposPrimeiroClick As Boolean = True Private Sub TrataCaractereRecebido(sender As Object, ByVal UltimaTeclaApertada As System.Windows.Forms.KeyPressEventArgs) Handles ValorTextBox.KeyPress Dim caractereApertado As Char = UltimaTeclaApertada.KeyChar If (Char.IsDigit(caractereApertado)) Then AtualizarValor(caractereApertado) UltimaTeclaApertada.Handled = True ElseIf Char.IsControl(caractereApertado) Then Else MsgBox("Digite Apenas Numeros Por Favor") UltimaTeclaApertada.Handled = True End If ColocaCursorNaUltimaPosicao(ValorTextBox) End Sub Private Sub AtualizarValor(caractereDoDigito As Char) Dim valorDoDigito As Double = Convert.ToDouble(caractereDoDigito.ToString) valorAtual = valorAtual * 10 + valorDoDigito MostraNumeroNaTextBoxEmReais(valorAtual) 'chamada da função passando o parametro valorAtual End Sub Private Sub MostraNumeroNaTextBoxEmReais(numero As Double) ' declaração da função ValorTextBox.Clear() ValorTextBox.Text = " R$ " + ColocaDuasCasasDecimais(numero.ToString) End Sub Private Function ColocaDuasCasasDecimais(numeroEscrito As String) Dim numeroEscritoComDuasCasasDecimais As String = "" If numeroEscrito.Length = 1 Then numeroEscrito = "00" + numeroEscrito ElseIf numeroEscrito.Length = 2 Then numeroEscrito = "0" + numeroEscrito End If Dim parteDecimal As String = numeroEscrito.Substring(numeroEscrito.Length - 2, 2) Dim ParteDasCentenas As String = numeroEscrito.Substring(0, numeroEscrito.Length - 2) numeroEscritoComDuasCasasDecimais = ParteDasCentenas + "," + parteDecimal Return numeroEscritoComDuasCasasDecimais End Function
  23. Apresentação Olá, caro visitante, somos estudantes do Centro Universitário UNA cursando Sistema de Informações e estamos desenvolvendo um trabalho que tem por objetivo analisar a aceitação de funcionários da área no mercado de trabalho em determinadas especialidades dentre outros. Gostaríamos de lhes apresentar uma pesquisa em forma de questionário, com objetivo acadêmico, para reunirmos informações suficientes a respeito, e poder dar continuidade ao nosso projeto. Sua participação é essencial, e no mais, obrigado pela compreensão. http://tidiruna.zz.mu/responderEnquete.php?id=1
  24. Olá, eu to querendo criar um projeto que ele é o seguinte: No meu form principal, tem um webbrowser, dentro desse webbrowser abre um anúncio do adf.ly onde tem de esperar 5 seg. pra poder fechar o anúncio. E eu queria que quando o anúncio acabasse, abria um form secundário e o primeiro form fechava. É meio que ela precisa clicar no anúncio (ou esperar 2 minutos) pra liberar o outro form. Como eu faço isso? Abraços!
  25. Criei um aplicativo no Visual Studio Express 12 e ele está funcionando perfeitamente no meu computador, porém, quando fui testar no PC do meu pai, ele não funciona corretamente. O estranho é que ele não reporta um erro de funcionamento ou sei lá, ele me da um erro que eu mesmo escrevi. vou exemplificar. O aplicativo verifica se um diretório web (www.site.com/diretorio/arquivo.rar) existe, se ele existir, o programa retorna um erro, caso não exista, o programa faz o upload de um determinado arquivo para esse diretório. Na minha máquina isto está funcionando perfeitamente, mas no PC do meu pai, qualquer diretório que eu colocar, ele vai dizer que já existe, mesmo que não exista. Já verifiquei as versões do NET Framework, mas não fez diferença, já que o programa roda com o 4.5, que já está instalado na máquina do meu pai. Já criei o setup do programa pelo Debug > Publish do próprio VB, mas também não funcionou. Não sei o que posso fazer. Pensei que de repente eu deva incluir algum arquivo no instalador, a namespace Net talvez (imports System.NET) ou algum outro. Mas realmente não sei. Alguém pode me ajudar? Valeuuuu :) EDIT: Percebi qui no meu PC, se eu estiver com o wamp Server ligado, o programa apresenta o mesmo problema que o do meu pai. Seria isso alguma incompatibilidade?