Showing results for tags 'Visual basic'. - Fórum iMasters
Everaldo Miceli d Avila posted a question in Perguntas e respostas rápidas
Estou iniciando no Visual Studio (VB) estou usando um banco de dados Access interligado com vários DBF., porém não consegui que o VS montasse a edição e gravação desta o VS dá uma mensagem de que tem erro com a grafia " Private Sub DBF_11ABindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles DBF_11ABindingNavigatorSaveItem.Click Me.Validate() Me.DBF_11ABindingSource.EndEdit() Me.TableAdapterManager.UpdateAll(Me.DatabaseSisdespDataSet) End Sub " alguém pode me ajudar?
banco de dados acsse
Otacildo posted a topic in Visual Basic
Estou desenvolvendo um sistema em vb.net 2010. A solução contém cinco projetos, um EXE (Principal) e quatro DLL (Cadastro, Financeiro, Jurídico e Biblioteca). A Biblioteca.dll contém uma classe Utils com funções para validar CPF, encriptar Senha e outras. Referenciei a Biblioteca.dll no projeto Principal.exe. Quando chamo fValidaCPF(txtCPF.text) do Projeto Principal.exe é apresentado um erro "Expressão não é um método". '---------------------------------------------------------------------- 'Projeto Principal.exe '---------------------------------------------------------------------- Imports Biblioteca Imports Biblioteca.Utils Imports System.Windows.Forms Public Class Principal Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click fValidaCPF(TextBox1.Text) End Sub End Class '---------------------------------------------------------------------- 'Projeto Biblioteca.dll 'Valida CPF '---------------------------------------------------------------------- Public Function FValidaCPF(ByVal CPF As String) As Boolean Dim i, x, n1, n2 As Integer CPF = CPF.Trim For i = 0 To dadosArray.Length - 1 If CPF.Length <> 14 Or dadosArray(i).Equals(CPF) Then Return False End If Next 'remove a maskara 'If Len(CPF) > 11 Then CPF = CPF.Substring(0, 3) + CPF.Substring(4, 3) + CPF.Substring(8, 3) + CPF.Substring(12) 'End If For x = 0 To 1 n1 = 0 For i = 0 To 8 + x n1 = n1 + Val(CPF.Substring(i, 1)) * (10 + x - i) Next n2 = 11 - (n1 - (Int(n1 / 11) * 11)) If n2 = 10 Or n2 = 11 Then n2 = 0 If n2 <> Val(CPF.Substring(9 + x, 1)) Then MsgBox("O CPF informado não é válido. Verifique se digitou corretamente.", _ MsgBoxStyle.Information, "GA .Net Consultoria") Return False End If Next MsgBox("O CPF informado é válido.", _ MsgBoxStyle.Information, "GA .Net Consultoria") Return True End Function
mpsouzaa posted a topic in Visual Basic
Fala galera, to com uma dúvida que tá me fazendo coçar a cabeça. Talvez seja muito simples de resolver. Eu fiz este código para que, ao selecionar uma linha na ListView1 ele adicione a palavra "PAGO" na linha selecionada na coluna "N" da planilha "DBPEDIDOS" e está funcionando certo, mas só funciona quando tenho apenas 1 linha selecionada. For i = Listview1.ListItems.Count To 1 Step -1 If Listview1.ListItems(i).Selected = True Then Dim ID As Variant ID = Listview1.ListItems.Item(i) Listview1.ListItems.Remove i Plan6.Range("A2").Select With Worksheets("DBPEDIDOS").Range("A:A") Set C = .Find(ID, LookIn:=xlValues, lookat:=xlPart) If Not C Is Nothing Then C.Activate ActiveCell.Offset(0, 13).Value = "PAGO" End If End With End If Next i O que eu quero fazer é que ele insira a palavra "PAGO" em todas as linhas caso eu selecione mais de uma na listview. Se alguém puder dar uma força agradeço demais.
crystal reports Passar parametro para crystal reports
Adilson Rosário posted a topic in Visual Basic
Boa noite pessoal,Alguém sabe a maneira de passar os parametros do banco de dados para o Crystal Reports, sem que seja necessário informar no .rpt? Algo como um .INI?Pois, quando mudo o banco de dados, por mais que sejam todas as mesmas tabela, o banco de dados muda o nome, sendo assim preciso alterar todos os rpt.VB6 + MySQL + Crystal 8.5
Criar um form para Cadastrar o Banco de Dados e o servidor - Gereciamento de Alias.
Olá amigos! Venho aqui neste forum com o maior respeito, sou novo em desenvolvimento e estou precisando de uma grande ajuda e orientação. Como eu crio um form para cadastrar o banco de dados e o servidor para quando for instalar minha aplicação em outras estacoes de trabalho, eu tenha a opção de apontar onde o meu banco de dados está. abaixo segue um resumo do que eu fiz e o que estou passando Criei uma aplicação em VB.NET com uma strig de conexão com o meu banco de dados em SQL, que está definida no app.config <?xml version="1.0" encoding="utf-8" ?> <configuration> <configSections> </configSections> <connectionStrings> <add name="SYS_MANAGMENT_ERP.My.MySettings.BD_ERPConnectionString" connectionString="Data Source=NOTEBOOK\SQLEXPRESS;Initial Catalog=BD_GESTAO;Integrated Security=True" providerName="System.Data.SqlClient" /> </connectionStrings> <startup> <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" /> </startup> </configuration> Para todos os formulários da minha aplicação criei diversas public sub para carregar os dados do banco no Datagrid, combobox, form_load da minha aplicação.... Até ai, está tudo funcionando muito bem, veja um pequeno trecho do código que está em cada form. Imports System.Data Imports System.Data.SqlClient Imports System.IO Imports MetroFramework.Forms Public Class FormCadastroClientes Dim Strcon As String = My.Settings.BD_ERPConnectionString.ToString Dim conn As SqlConnection Dim cmd As SqlCommand Dim da As SqlDataAdapter Public Sub loadData() conn = New SqlConnection(Strcon) conn.Open() Dim str As String = "SELECT IDCLIENTE AS [Id Cliente], NOMERAZAO AS [Nome do Cliente] FROM CLIENTES ORDER BY NOMERAZAO ASC" da = New SqlDataAdapter(str, conn) Dim ds As New DataSet da.Fill(ds, "CLIENTES") dgvAgenda.DataSource = ds.Tables("CLIENTES") da.Dispose() conn.Close() End Sub End Class Ao final, criei um executável da minha aplicação no visual studio no nas propriedades do meu projeto à publish à publish wizard Agora, tenho que instalar essa aplicação em todas as maquinas da empresa e fazer a conexão com o banco de dados que está em um servidor dedicado chamado "DATA_SERVER". O Meu maior problema é, eu não sei desenvolver uma tela para definir a conexão com o banco de dados para que todas as estações possam ser configuradas o caminho para o banco de dados. Dessa forma não precisarei deixar a string de conexão com o servidor fixada no meu código, mesmo porque, fiz um teste e eu só consigo conectar apenas uma estação no banco, quando eu instalo a aplicação em outra máquina ela dá esse erro: Bom... por favor, me ajude, como eu consigo criar uma aplicação na qual eu tenho um form para definir o alias do meu banco de dados, para quando o usuário for se conectar, defina apenas uma vez o alias de conexão e tenha acesso ao sistema, tipo igual a TOTVS como o print abaixo: Então os dados da conexão já fica salva para o usuário e dessa forma eu não venho a ter problema com conexão de banco de dados, pois se também o servidor mudar, terei que gerar um novo exe pois o nome do servidor está definida na minha string de conexão. Alguém tem algum videio, tutorial que ensina passo a passo como desenvolver e deixar salvo os dados do alias ?
conexão ao sql
Pegando dados do webbrowser para o listbox
eduardo martinelli posted a question in Perguntas e respostas rápidas
Eu fiz utilizando o método de captar do webbrowser e passa para a listbox os dados que eu quero. Funcionou certo em algum sites de imobiliárias, onde realmente tava trazendo apenas aqueles dados. Porem quando tento usar para pegar do OLX os imoveis ele vem com muitos dados. Aqui segue o codigo html que estou tentando pegar: <div class="OLXad-details mb30px"> <div class="atributes"> <h4 class="title">Detalhes do imóvel</h4> <ul class="list square-gray"> <li class="item"> <p class="text"> <span class="term">Tipo:</span> <strong class="description">Aluguel - apartamento kitchenette</strong> </p> </li> <li class="item"> <p class="text"> <span class="term">Área útil:</span> <strong class="description">50 m²</strong> </p> </li> <li class="item"> <p class="text"> <span class="term">Quartos:</span> <strong class="description">1</strong> </p> </li> <li class="item"> <p class="text"> <span class="term">Vagas na garagem:</span> <strong class="description">1</strong> </p> </li> </ul> <div class="OLXad-features mt20px"> <p class="text"> <span>Características:</span> <ul class="OLXad-features-list"> <li>Armários embutidos</li> <li>Varanda</li> <li>Área de serviço</li> </ul> </p> </div> </div> </div> <script type="text/javascript"> self.adParams = { 'real_estate_type': 'Aluguel - apartamento kitchenette', 'condominio': '', 'iptu': '', 'size': '50', 'rooms': '1', 'beds': '', 'garage_spaces': '1', 'features': '' } </script> <div class="OLXad-location mb20px"> <div class="atributes"> <h4 class="title">Localização</h4> <ul class="list square-gray"> <li class="item"> <p class="text"> <span class="term">Município:</span> <strong class="description"> Vila Velha </strong> </p> </li> <li class="item"> <p class="text"> <span class="term">CEP do imóvel:</span> <strong class="description"> 29118-060 </strong> </p> </li> <li class="item"> <p class="text"> <span class="term">Bairro:</span> <strong class="description"> Alecrim </strong> </p> </li> </ul> </div> </div> <div class="OLXad-id"> <p class="text"> <span class="term">Código do anúncio:</span> <strong class="description">417138772</strong> </p> </div> o Codigo que estou usando: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try ListBox1.Items.Clear() Dim Tags(1) As String Tags(0) = "span" Tags(1) = "div" If Not IsNothing(WebBrowser1.Document) Then For Each _Tag As String In Tags Dim elementos As IList(Of HtmlElement) = WebBrowser1.Document.GetElementsByTagName(_Tag).OfType(Of HtmlElement).ToList() If Not IsNothing(elementos) Then Dim elementosPesquisa As IList(Of HtmlElement) = _ elementos.Where(Function(w) w.OuterHtml.Contains("description")).ToList() If Not IsNothing(elementosPesquisa) AndAlso elementosPesquisa.Count > 0 Then For Each el As HtmlElement In elementosPesquisa ListBox1.Items.Add(el.OuterText) Next End If End If Next End If Catch ex As Exception MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Information) End Try End Sub Alguém pode me ajudar? Agradeço desde ja.
webbrowser listbox
dados listbox
rafaelsb2107 posted a topic in Visual Basic
Bom dia! tenho uma aplicação visual basic e quando o usuário vai fazer um cadastro de um contrato na tela do sistema, aparece a mensagem Run-time error '94' Invalid use of null. Como é possível resolver este erro: recompilar o executável do visual basic? Na inserção da tabela que cadastra a localização, não há campo nulo.
Erro: run-time error '94' invalid use of null
rafaelsb2107 posted a topic in Ambientes de Desenvolvimento
Bom dia! tenho uma aplicação em visual basic que cadastra contratos vinculados a pastas. Porém, em alguns casos, ao tentar incluir o contrato em uma pasta(tabela) do sistema, mostra o erro Run_time error '94' invalid use of null. Por exemplo, ontem dia 02/10/2017, o meu usuário conseguiu incluir dois contratos e um não. O tamanho do CNPJ do contrato, o procedimento para cadastraro contrato no sistema não mudou. O erro ocorre em alguns casos e outros o sistema aceita. Alguém poderia me auxiliar?
Vinicius Nascimento Vieira posted a topic in Visual Basic
Galera, boa noite. Necessito saber como consigo aprender VBA para começar a criar minhas próprias macros, pois atualmente estou sendo submetido a automatizar as planilhas da minha empresa, onde que para isso estou buscando a automatização pelo VBA. Pensei em comprar os livros do Mr.Excel (VBA para leigos, Macros e VBA 2016...), porém não sei se vale a pena. No momento estou assistindo vídeo aulas no YouTube, mas queria ir além, pois estou com duvidas básicas, principalmente de como montar as estruturas e entender quando utilizar cada variável e seus códigos. Toda ajuda será bem vinda!!! Grato!
Visual basic gerar codigo e numeros aleatorio
rddois posted a question in Perguntas e respostas rápidas
Olá alguem poderia me ajudar a criar um código QUE A Label 2 ira gerar um numero aleatorio de 1 a 9 exemplo " 123654789 " (gerando numero aleatorio ) cada vez que eu clica no botão 2 o segundo ia gerar um nome de usuario a label é a 4 por exemplo o nome abcd1234 tem que ter pelo menos 6 letras ou numeros vão gerar aleatorio "abcd1234" ou "1235dfd" para o visual basic alguem me ajuda? RESUMINDO TODA VEZ QUE CLICA NO BOTÃO 2 VAI GERAR UM NOVO NUMERO ALEATORIO NA LABEL 2 E UM NOVO NOME DE USUARIO NA LABEL 4 VALE LEMBRA QUE A LABEL 2 TEM GERAR / 8 NUMEROS E A LABEL 4 GERAR 6 3 LETRAS 3 NUMEROS
Visual basic Formulário de Contas a Receber - Visual Basic + Access 2013
edu07091996 posted a topic in Visual Basic
Boa tarde galera, Preciso de uma ajudinha. Estou desenvolvendo um pequeno projeto da faculdade onde é um sistema de contas a receber (diferente do cadastro de vendas que você lança produto por produto, o contas a receber você apenas lançará valor total e se quiser colocará os produtos vendidos no campo observação). Para cadastrar a conta a receber fiz um formulário onde solicita os seguintes campo: ID (numerador automático), Matricula (Número), Cliente (Texto Curto), ValorReceber (Moeda), DataCompra (Data/Hora), Observacao (Texto Longo) e StatusPagamento (Sim/Não) e logo em seguida armazena tudo no banco de dados. Até aqui o sistema fluiu e está ok! Está recebendo e armazenando os dados! O que me apertou foi o seguinte: Agora necessito de um outro formulário onde eu consulto pela matricula do cliente no banco de dados da contas a receber e somo tudo o que ele deve. Exemplo: Banco de dados: ID Matricula Nome ValorReceber DataCompra Obsevacao e StatusPagamento 1 12345678 João Pedro R$ 12,00 20/05/2016 Coca-Cola, Salgado Não 2 87654321 Ana R$ 2,50 30/05/2016 Coca-Cola Não 3 12345678 João Pedro R$ 6,00 25/05/2016 Coca-Cola Não 4 12345678 João Pedro R$ 6,00 30/05/2016 Coca-Cola Sim *Simulação do meu banco de dados Agora preciso que o sistema faça o seguinte: Recebe a matricula do João Pedro (logo é: 12345678) e calcule todos os valores que ele deve, que no caso seria: 12,00 + 6,00 = 18,00 *O produto/ContaReceber do ID "4" não somaria pois ele já tinha efetuado a compra e pago na hora. Espero que vocês tenham entendido. Estou no Aguardo.