Ir para o conteúdo

Pesquisar na Comunidade

A mostrar resultados para tags ''vb.net''.



Mais opções de pesquisa

  • Pesquisa por Tags

    Introduza as tags separadas por vírgulas.
  • Pesquisar por Autor

Tipo de Conteúdo


Fórum

  • Bem-vindos ao Portugal-a-Programar
    • Sugestões, Críticas ou Dúvidas relativas ao P@P
    • Acerca do P@P
  • Comunidade a Trabalhar
    • Wiki P@P
    • Apresentação de Projectos de Programação
    • Downloads
  • Revista PROGRAMAR
    • Revista PROGRAMAR
  • Desenvolvimento Geral
    • C
    • C++
    • Java
    • Haskell
    • Pascal
    • Python
    • Bases de Dados
    • Visual Basic Clássico
    • Visual Basic for Applications (VBA)
    • Dispositivos Móveis
    • Outras Linguagens
  • Desenvolvimento Orientado para Web
    • PHP
    • HTML
    • CSS
    • Javascript
    • Outras Linguagens de WebDevelopment
    • Desenvolvimento Web
  • Desenvolvimento .NET
    • C#
    • Visual Basic .NET
    • ASP.NET
    • WPF & SilverLight
  • Software e Sistemas Operativos
    • Software de Produtividade
    • Sistemas Operativos
    • SharePoint
    • Apresentação de Software
  • Informática Extra-Programação
    • Interfaces Visuais
    • Computação Gráfica
    • Algoritmia e Lógica
    • Segurança e Redes
    • Hardware
    • Electrónica
    • Automação Industrial
    • Dúvidas e Discussão de Programação
    • Notícias de Tecnologia
  • Outras Áreas
    • Matemática
    • Dúvidas Gerais
    • Discussão Geral
    • Eventos
    • Anúncios de Emprego
    • Tutoriais
    • Snippets / Armazém de Código
  • Arquivo Morto
    • Projectos Descontinuados
    • System Empires

Blogs

  • Blog dos Moderadores
  • Eventos
  • Notícias de Tecnologia
  • Blog do Staff
  • Revista PROGRAMAR
  • Projectos
  • Wiki

Categorias

  • Revista PROGRAMAR
  • Tutoriais
  • Textos Académicos
  • Exercícios Académicos
    • Exercícios c/ Solução
    • Exercícios s/ Solução
  • Bibliotecas e Aplicações
  • Outros

Procurar resultados em...

Pesquisar conteúdos que contêm...


Data de Publicação

  • Início

    Fim


Última Actualização

  • Início

    Fim


Filtrar por número de...

7559 resultados

  1. RafaelFranckilin

    Arquivo de configuração

    Pessoal, acabei de entrar pra comunidade. Sou novo nesse mundo da programação, no momento eu tô tentando entender como eu posso utilizar esse app.config pra guardar configurações. Eu pesquisei bastante na internet, mas não encontrei nada que eu conseguisse entender. Vocês poderiam me mostrar um exemplo simples? Tipo com um checkbox e um botão, quando marcar o checkbox, o botão seja desabilitado e grave essa configuração no arquivo de configuração.
  2. HQuintas

    Desenhar a partir dxf

    Boas, estou com pequeno problema ao desenhar numa picturebox um ficheiro em dxf. Faz a leitura tudo bem, mas não une as linhas e os arcos, como se pode ver na imagem. Porquê? Private Sub linha(x As Double, y As Double, x_end As Double, y_end As Double, mypen As Pen) Using g As Graphics = Graphics.FromImage(bm) ' Flip the Y-Axis g.ScaleTransform(zx, zy) ' Translate the drawing area accordingly g.TranslateTransform(fx, fy) Dim p1 As New Point(x, y) Dim p2 As New Point(x_end, y_end) ' Create a new pen. Dim sPen As New Pen(Brushes.Black) ' Set the pen's width. sPen.Width = 1.0F g.DrawLine(sPen, p1, p2) End Using 'bm.RotateFlip(RotateFlipType.RotateNoneFlipY) PictureBox1.Image = bm End Sub Private Sub arco(x As Double, y As Double, r As Double, angS As Single, angE As Single) Using g As Graphics = Graphics.FromImage(bm) ' Flip the Y-Axis g.ScaleTransform(zx, zy) ' Translate the drawing area accordingly g.TranslateTransform(fx, fy) ' Create a new pen. Dim sPen As New Pen(Brushes.Red) ' Set the pen's width. sPen.Width = 1.0F cor_perfil = sPen Dim p1 As Double = x - r Dim p2 As Double = y - r Dim p3p4 As Double = 2 * r Dim sweep As Single = angE - angS If angE < angS Then sweep = 360 - angS + angE End If If sweep < 0 Then sweep = -sweep ListBox1.Items.Add(sweep) Dim rect As New Rectangle(p1, p2, p3p4, p3p4) Try g.DrawArc(cor_perfil, rect, angS, sweep) Catch ex As Exception End Try End Using PictureBox1.Image = bm End Sub
  3. Bom dia, Criei um código em VB.NET que faz a leitura de uma porta serial de uma balança, utilizei 2 Threads para enviar tudo para um Richtextbox. O código funciona perfeitamente, recebe os dados da porta serial, manipula certinho, o problema é que ele fica "travando"... Consigo ver que está travando no momento em que vou arrastar o formulário ou quando posiciono o cursor em cima dos botões, pois percebo que existe um delay no Hover. O código é o seguinte: Public Class Form1 Private trd As Thread Private trd2 As Thread Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load trd = New Thread(AddressOf ThreadTask) trd.IsBackground = True trd.Start() trd2 = New Thread(AddressOf ThreadTask2) trd2.IsBackground = True trd2.Start() End Sub Private Sub ThreadTask2(ByVal [text] As String) 'input from ReadExisting Try If Me.RichTextBox1.InvokeRequired Then Dim x As New SetTextCallback(AddressOf ThreadTask2) Me.Invoke(x, New Object() {(text)}) Else _SerialPort1.NewLine = Chr(13) ' Me.RichTextBox1.Text = _SerialPort1.ReadLine() End If Catch ex As Exception End Try End Sub Private Sub ThreadTask() Handles SerialPort1.DataReceived Try ThreadTask2(SerialPort1.ReadExisting()) Catch ex As Exception End Try End Sub Alguém saberia, por gentileza me dar uma luz para que eu possa identificar qual o erro que estou cometendo? Desde já agradeço muito. Att.
  4. Paulo Spiguel

    Ler xml vb.net

    Gostaria de ler a linha tag version="1.0.1.0" e armazenar em uma variável em Vb.Net? Gostaria de ler a linha tag version="1.0.1.0" e armazenar em uma variável em Vb.Net? <?xml version="1.0" encoding="utf-8"?> <Feed> <Tasks> <FileUpdateTask hotswap="false" updateTo="file://d:\tmp\update\AtualizadorAplicacao.exe" localPath="AtualizadorAplicacao.exe"> <Description>Descricao da nova versao.</Description> <Conditions> <FileVersionCondition what="below" version="1.0.1.0" /> </Conditions> </FileUpdateTask> </Tasks> </Feed>
  5. Boas, Visto as versões do windows posterior ao win7 terem "descartado" a facilidade em rodar ficheiros batch, tenho de refazer todo o automatismo com exe's... Preciso de um código onde me liste numa listbox todos os volumes existentes (com e sem letra) na máquina da mesma forma que obtemos através do diskpart, eu tenho um código onde me vai buscar toda a informação de cada letra, mas não tenho como saber os que não tem letra atribuída.... Código que uso actualmente: Dim fso As New FileSystemObject Dim arquivo As Drive ListBox1.Items.Clear() arquivo = fso.GetDrive(ComboBox2.Text) With (arquivo) If .IsReady Then ListBox1.Items.Add("Letra associada ao drive : " & .DriveLetter) ListBox1.Items.Add("Nome do Volume : " & .VolumeName) ListBox1.Items.Add("Espaço total do drive : " & FormatNumber(.TotalSize / 1024, 0)) ListBox1.Items.Add("Espaço disponível livre no drive : " & FormatNumber(.FreeSpace / 1024, 0)) ListBox1.Items.Add("Número de série do drive : " & .SerialNumber) ListBox1.Items.Add("Volume: " & .DriveType) Else MsgBox("A unidade não esta pronta !! Verifique !!", vbCritical, "Erro de acesso") End If End With Este código retorna na listbox os valores no seguinte formato: Letra associada ao drive: L Nome do volume: APPS Espaço total do drive: 50.212.048 Espaço disponível no drive: 49.027.288 Número de série do drive: 1547758574 Volume: 3 Gostaria de ter a vossa ajuda em obter um código que me devolvesse na listbox a lista de todos os volumes existentes e devidas letras atribuídas ou não tipo isto: Volume 0 > C Volume 1 > Volume 2 > D Volume 3 > E Toda e qualquer ajuda será benvinda! Cumps,
  6. Riky_magic_edition

    Salvar Rubrica Digital

    Boa Noite Caro Grupo, Eu Ando a criar uma aplicação para uma empresa. E já ando nisto algum tempo, e preciso de uma ajudinha... Eu criei uma aplicação, para controlo de caixa e controlo de assinaturas(Crédito), Criei uma base dados para gravar toda a informação, só que não consigo gravar assinatura na base de dados, eu já tentei de tudo. Já tentei criar um groupBox, transformar em Handle, já tentei gravar inkpicture em bmp e converter em byte, tudo sem sucesso, ele grava só que só grava metade da imagem ou nada. e eu estou desesperado 😢😭😟😖😖😖😖 Será que alguém me Consegue ajudar???? por favor obrigado
  7. Boa noite, Como consigo fazer com que os ficheiro numa pasta sejam apresentados numas listbox por exemplo. E quando clicar num ele ser aberto em word. Alguma ajuda? Atentamente
  8. Ricardo Goncalves

    Exportar ficheiro com UTF8 BOM

    Bom dia, Precisava da vossa ajuda no sentido de perceber o que poderá estar mal no meu codigo que coloco em baixo. If CheckBD = "0" Then With mycommand .Connection = con .CommandText = "CREATE TABLE EnviosChrono (NumConta int,NumCliente int,Cliente nvarchar(254),Morada nvarchar(50),CodPostal int,Cidade nvarchar(50)," + _ "Pais nvarchar(5),Contacto Nvarchar(254),Telefone int,Peso int,Referencia int not null,Volumes int,CriadoPor nvarchar(50),data datetime)" .ExecuteNonQuery() End With Else With mycommand .Connection = con For i As Integer = 0 To DataGridView1.RowCount - 1 .CommandText = "insert into EnviosChrono values('" & DataGridView1.Rows(i).Cells(0).Value & "','" & DataGridView1.Rows(i).Cells(1).Value & "','" & DataGridView1.Rows(i).Cells(2).Value & "'," + _ "'" & DataGridView1.Rows(i).Cells(3).Value & "','" & DataGridView1.Rows(i).Cells(4).Value & "','" & DataGridView1.Rows(i).Cells(5).Value & "','" & DataGridView1.Rows(i).Cells(6).Value & "'," + _ "'" & DataGridView1.Rows(i).Cells(7).Value & "','" & DataGridView1.Rows(i).Cells(8).Value & "','" & DataGridView1.Rows(i).Cells(13).Value & "','" & DataGridView1.Rows(i).Cells(14).Value & "'" + _ ",'" & DataGridView1.Rows(i).Cells(15).Value & "','" & Departamento & "',GETDATE())" .ExecuteNonQuery() Next End With End If Catch Ex As Exception MsgBox(Ex.Message, MsgBoxStyle.Critical) End Try Try Dim enc As Encoding = New UTF8Encoding(True) Dim Caminho As String = LeINI("Exportação", "Caminho", "") Dim data As String = DateTime.Now.ToString("yyyyMMdd_HHmmss") Dim filePath As String = " " & Caminho & "Chrono" & data & ".csv" Dim delimeter As String = ";" Dim sb As New StringBuilder For i As Integer = 0 To DataGridView1.Rows.Count - 1 Dim array As String() = New String(DataGridView1.Columns.Count - 1) {} 'If i.Equals(0) Then ' For j As Integer = 0 To DataGridView1.Columns.Count - 1 ' array(j) = DataGridView1.Columns(j).HeaderText ' Next ' sb.AppendLine(String.Join(delimeter, array)) 'End If For j As Integer = 0 To DataGridView1.Columns.Count - 1 If Not DataGridView1.Rows(i).IsNewRow Then array(j) = DataGridView1(j, i).Value.ToString End If Next If Not DataGridView1.Rows(i).IsNewRow Then sb.AppendLine(String.Join(delimeter, array)) End If Next File.WriteAllText(filePath, sb.ToString, enc) 'Opens the file immediately after writing 'Process.Start(filePath) Dim AckTime As Integer, InfoBox As Object InfoBox = CreateObject("WScript.Shell") AckTime = 1 Select Case InfoBox.Popup("Ficheiros Criados Com Sucesso!!!", _ AckTime, "Mensagem", 0) Case 1, -1 End Select DataGridView1.DataSource = Nothing DataGridView1.Rows.Clear() Catch Ex As Exception MsgBox(Ex.Message, MsgBoxStyle.Critical) End Try End If O que se está a passar é que a pessar de ter o encoder do utf8 para sair com o BOM(Byte Order Marking) " Dim enc As Encoding = New UTF8Encoding(True)" o mesmo está sempre a sair sem BOM, com se tivesse o encoding a false no utf8. Conseguem me dizer o que poderei estar a fazer de errado? Obrigado!
  9. Andre88

    Encriptar ficheiros

    Nessesito de ajuda para criar um código para encriptação de ficheiros no visualbasic, pois já tentei de tudo,tudo mesmo e nada da certo . O código consiste em pegar num ficheiro já criado e encriptar o mesmo criando outro ficheiro sem eliminar e edita o original. Obrigado pela colaboração; 😉
  10. Olá malta, Estou a desenvolver um modulo de comunicação de documentos de transporte em VB.NET, e estou empancado num problema com o qual espero que me possam ajudar. Então, a situação é a seguinte, eu consigo comunicar com o servidor de testes, no entanto quando invoco o método para o envio, obtenho a seguinte resposta de erro: "Rejected: | Codigo: 16 | Erro: Created: Chave de sessão inválida. Não foi possível decifrar o campo Created | Tentativas Restantes: -1" Dos testes que fiz, consegui perceber a ordem que eles testam cada um dos campos: Nonce, Created, Password. Isto quer dizer que, o meu problema pode ser um dos seguintes: chave assimétrica que gero, pode ter problemas (não me parece que seja isto) encriptação da chave assimétrica pode estar errada a string com a data pode estar errada (também nao me parece, já tentei de tudo) a encriptação da string com a data Segue o meu código: ' GERAÇÃO DE CHAVE ASSIMÉTRICA Public Function GenerateAESKey() As AesKey Implements IEncryptionServices.GenerateAESKey Dim aes As New AesManaged() aes.KeySize = 128 aes.BlockSize = 128 aes.GenerateKey() aes.GenerateIV() Return New AesKey() With {.IV = aes.IV, .Key = aes.Key} End Function ' USO ESTA FUNC PARA ENCRIPTAR O NONCE Public Function EncryptUsingRSA(text As String, certificateFilePath As String, Optional password As String = "") As String Implements IEncryptionServices.EncryptUsingRSA Dim certificate As New X509Certificate2(certificateFilePath, password) Dim csp As RSACryptoServiceProvider = certificate.PublicKey.Key Dim bytesPlainText = Encoding.UTF8.GetBytes(text) Dim encryptedBytesPlainText = csp.Encrypt(bytesPlainText, False) Dim cypherText = Convert.ToBase64String(encryptedBytesPlainText) Return cypherText End Function ' USO ESTA FUNC PARA ENCRIPTAR A PASSWORD E A DATA Public Function EncryptUsingAES(text As String, key As AesKey) As String Implements IEncryptionServices.EncryptUsingAES If text Is Nothing OrElse text.Length <= 0 Then Throw New ArgumentNullException(NameOf(text)) End If If key Is Nothing Then Throw New ArgumentNullException(NameOf(key)) End If If key.Key Is Nothing OrElse key.Key.Length <= 0 Then Throw New ArgumentNullException(NameOf(key.Key)) End If If key.IV Is Nothing OrElse key.IV.Length <= 0 Then Throw New ArgumentNullException(NameOf(key.IV)) End If Dim aesManaged As New AesManaged() aesManaged.Key = key.Key aesManaged.IV = key.IV aesManaged.BlockSize = 128 aesManaged.Mode = CipherMode.ECB aesManaged.Padding = PaddingMode.PKCS7 Dim encryptor As ICryptoTransform = aesManaged.CreateEncryptor(aesManaged.Key, aesManaged.IV) Dim memoryStream As New MemoryStream() Dim cryptoSream As New CryptoStream(memoryStream, encryptor, CryptoStreamMode.Write) Dim streamWriter As New StreamWriter(cryptoSream) streamWriter.Write(text) streamWriter.Close() cryptoSream.Close() memoryStream.Close() Dim encrypted As Byte() = memoryStream.ToArray() Return Convert.ToBase64String(encrypted) End Function Sim, o camiho do certificado está correcto. Sim, o certificado está actualizado. Sim, já verifiquei o formato da data e comparei com a OAL. Já tentei de tudo, estou sem ideias... Por favor ajudem! Obrigado!
  11. Boa tarde. Estou com um problema em um datagridview. Não dá erro, mas a soma dos campos está incorreta. Segue código: Try Using strCom As FbCommand = New FbCommand("SELECT a.Conta, SUM(b.Valor), SUM(c.Valor) " & _ "FROM tbConta as a " & _ "INNER JOIN tbReceita as b ON b.Login = a.Login " & _ "INNER JOIN tbDespesa as c ON c.Login = a.Login " & _ "WHERE EXTRACT(MONTH FROM b.DataMovimento) = @mes " & _ "AND EXTRACT(YEAR FROM b.DataMovimento) = @ano " & _ "AND a.Titular = @titular " & _ "AND a.Login = @login " & _ "GROUP BY a.Conta", con) strCom.Parameters.AddWithValue("@mes", frmPrincipal.txtMesRef.Text) strCom.Parameters.AddWithValue("@ano", frmPrincipal.txtAnoRef.Text) strCom.Parameters.AddWithValue("@titular", frmLogin.txtNome.Text) strCom.Parameters.AddWithValue("@login", frmLogin.cbNome.Text) Using da As FbDataAdapter = New FbDataAdapter(strCom) Dim dt As DataTable = New DataTable("Receita") Dim ds As DataSet = New DataSet dgvTotalConta.Columns.Clear() da.Fill(ds) With dgvTotalConta .DefaultCellStyle.Font = New Font("Arial", 8, FontStyle.Regular) .ColumnHeadersDefaultCellStyle.Font = New Font("Arial", 8, FontStyle.Regular) .GridColor = Color.LightGray .BorderStyle = BorderStyle.Fixed3D .RowHeadersBorderStyle = DataGridViewHeaderBorderStyle.Single .ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.Single .RowHeadersVisible = False .BackgroundColor = Color.White .ColumnCount = 4 .AutoGenerateColumns = False .Columns(0).Name = "Conta" .Columns(1).Name = "Receita" .Columns(2).Name = "Despesa" .Columns(0).Width = 120 .Columns(1).Width = 100 .Columns(2).Width = 100 .Columns(1).DefaultCellStyle.Format = "N" .Columns(2).DefaultCellStyle.Format = "N" .Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft .Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight .Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight .AllowUserToAddRows = False .AllowUserToDeleteRows = False .AllowUserToOrderColumns = False .AllowUserToResizeColumns = False .AllowUserToResizeRows = False End With dt = ds.Tables(0) For Each linha As DataRow In dt.Rows dgvTotalConta.Rows.Add(linha(0), linha(1), linha(2)) Next End Using End Using Catch ex As Exception MsgBox(ex.ToString) End Try Espero que possam me ajudar nessa questão da soma de valores.
  12. Diego Menezes

    Ler, Salvar

    Linguagem: Vb.net Então, estou criando um Projeto em que salve senhas em um arquivo .txt, então deixarei umas prints dele no ingur para vocês terem uma ideia, existe: frmControle = Onde aparecerá os dados adicionados de um Groupbox que virá da frmAdicionarDados, btnLer, btnSalvar e o (btnAdicionarDados, que chama a próxima form.) FrmAdicionarDados = Haverá como se fosse ID, senha e uma anotação dos dados. Quando preenchidos, após clicarem no button 'Salvar' dessa form, os dados devem ser jogados para a frmControle, como há no 2 print. Tudo está acontecendo conforme o planejado, minha dúvida é: Como vou criar o btnSalvar e BtnLer do arquivo? Vi alguns tópicos aqui, mas os códigos servem apenas se os btn 'salvar e ler' forem da mesma form. No meu caso, os buttons são da mesma form que a frmControle, mas o código não funciona pq o Groupbox só vai ser declarado na frmControle quando eu clicar no button 'Salvar'... No caso, quero criar o button Salvar, para salvar os dados, e o Ler, para abrir esses dados salvos e joga-los como se vê nas prints, dentro de uma groupbox... Poderiam me ajudar? estou garrado nisso a muito tempo e não encontro uma resolução adequada... Print1 ( Programa frmControle: https://imgur.com/BgnZuRP Print2 ( Programa frmAdicionardados: https://imgur.com/DYnfwiL Print3 ( Preenchendo frmAdicionardados: https://imgur.com/cPZfQpy Print4 ( Preenchimento Completo, clicando no 'Salvar' da frmAdicionar dados, vejam que os dados automaticamente cairão na frmControle, e nela que eu quero criar o button Ler arquivo .txt e Salvar em .txt https://imgur.com/1ywtMQm Por Favor :/
  13. Boa tarde, Ao fazer um update de um registo em Access utilizando o VB.NET e o ADO.NET , obtenho este erro e não compreendo porquê. Está aqui o código do botão Update e o erro: Na linha: ds.Tables("AddressBook").Rows(inc).Item(1) = txtFirstName.Text Obtenho o erro: "A referência de objecto não foi definida como uma instância de um objecto." Private Sub btnUpdate_Click(sender As System.Object, e As System.EventArgs) Handles btnUpdate.Click Dim cb As New OleDb.OleDbCommandBuilder(da) ds.Tables("AddressBook").Rows(inc).Item(1) = txtFirstName.Text ds.Tables("AddressBook").Rows(inc).Item(2) = txtSurname.Text da.Update(ds, "AddressBook") MessageBox.Show("Data updated") End Sub Podem-me ajudar? Obrigado
  14. RubeNeto

    Faturas de Vb para PDF

    Boa dia, Estou a finalizar o meu Projecto PAP para o final do 12ºAno, e estou a desenvolver um projecto do tipo gestão de restaurante, baseado nos sistemas de restaurantes/cafés em que seleccionamos os pedidos, com os respectivos preços, etc Pensei em melhorar ao ponto de ao finalizar o "pagamento" iria abrir um ficheiro PDF com o pedido e o preço respectivo aos pedidos do cliente. Queria saber se é possível faze-lo, e de que modo o posso fazer. (Se ajudar, todos os produtos/preços estão ligado com uma base de dados) Agradeço a ajuda, Obrigado
  15. jose_gomes_00

    Abrir página web asp.net

    criei um programa onde tenho uma form em vb e uma página web em asp.net. queria saber como faço para abrir a página web clicando num botão que está na form do vb
  16. marlonwg

    Rede com SQL Server

    Alguem tem algum exemplo de rede em sql server com vb.net qualquer tipo de conexao mas precizo em rede com 3 ate 15 maquinas A Conexao entre os dois eu sei fazer quero fazer a rede do tipo Merge na onde ele conecta e nao depende do servidor ligado se desligar os sistemas cotinuariam a funcionar no modo que se comunicassem entre si..
  17. gastao

    Criar ficheiro RAR

    Boas alguem sabe como transformar um ficheiro em RAR. Preciso que seja em rar pois em zip como o ficheiro tem mais de 2gb nao me deixa.
  18. Queria acrescentar um novo registo a uma base de dados Access mas dá-me este erro: 'System.Data.dataRow.Protected Friend Sub New(builder As System.DataRowBuilder)' is not accessible in this context because it is 'Protected Friend'. em dsNewRow - na linha «Dim dsNewRow As New DataRow» Eis o código: Private Sub Button_Add_Click(sender As System.Object, e As System.EventArgs) Handles Button_Add.Click Dim cb As New OleDb.OleDbCommandBuilder(da) Dim dsNewRow As New DataRow dsNewRow = ds.Tables("Ensaios").NewRow() dsNewRow.Item("Nº Ensaio") = N_de_Ensaio.Text ds.Tables("Nº Ensaio").Rows.Add(dsNewRow) da.Update(ds, "Nº Ensaio") MsgBox("Acrescentado um novo Registo à Base de Dados") End Sub
  19. Boa noite a todos, preciso que alguém me ajudar a resolver este problema, e já fiz o codigo para buscar dados entre duas datas, só que eu queria também colocar uma combobox ( uma lista de Clientes) para eu fazer uma busca de escolher o cliente e depois selecionar as duas datas que pretendo, alguém pode dizer como é que é feito, obrigado. Imports System.Data.OleDb Public Class FormRelatório Private Sub RelatórioReceita() Dim total As Integer Dim totalS As Integer Dim Faturar As Integer Try sqL = "SELECT Data, Cliente, Serviço, Faturar, Total FROM Item WHERE IDReceita = IDReceita AND Data >= #" & dtpFrom.Text & "# AND Data <=#" & dtpTo.Text & "# Order By Data, Cliente" ConnDB() cmd = New OleDbCommand(sqL, conn) dr = cmd.ExecuteReader(CommandBehavior.CloseConnection) dgw.Rows.Clear() total = 0 totalS = 0 Faturar = 0 Do While dr.Read = True dgw.Rows.Add(dr(0), dr(1), dr(2), dr(3), dr(4)) total += dr(4) totalS += dr(4) Faturar += dr(3) Loop lblTotal.Text = FormatCurrency(total, "0,00€") 'lblTotal.Text = Format(totalStocks, "#,##0") LblFaturar.Text = (Faturar) Catch ex As Exception MsgBox(ex.Message) Finally cmd.Dispose() conn.Close() End Try End Sub
  20. sls

    Utilizar o firebase em vb

    Boas, eu estou mais habituado a usar o vb 2010, mas só encontrei api do firebase para o vb 2017. Por isso não estou muito habituado a usar este novo vb. O que pretendo é ter no firebase algo desde genero: id valor 0 1 1 5 2 3 e depois carregar estes dados para um array. Pelo que pesquisei é melhor trabalhar com um dictionary em vez do array, por isso estou a tentar implementar isso, acontece é que não consigo sequer compilar o codigo de teste porque dá logo erro e não consigo perceber o porque. Como não encontrei codigo para o vb, adaptei o codigo de outras linguagens e acabou por ficar assim: Public Class Requests Private _id As String Private _name As String Public Property Name As String Get Return _name End Get Set(value As String) _name = value End Set End Property Public Property id As String Get Return _id End Get Set(value As String) _id = value End Set End Property End Class e Imports Project1.Requests Imports FireSharp Imports FireSharp.Config Imports System.Collections.Generic Public Class Form1 Private conf As FirebaseConfig = New FirebaseConfig Private res As New Dictionary(Of String, Requests) Async Sub Main() Try conf.AuthSecret = "não sei o que colocar" conf.BasePath = "https://temparry-6a155.firebaseio.com" Dim firebaseclient = New FireSharp.FirebaseClient(conf) Dim resposta As FireSharp.Response.FirebaseResponse resposta = Await firebaseclient.GetAsync("Requests") res = resposta.ResultAs(Of Dictionary(Of String, Requests)) Catch ex As Exception MsgBox(ex.Message.ToString) End Try End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load MsgBox(res.Values) End Sub End Class Aqui conf.AuthSecret = "não sei o que colocar" nos codigos de exemplo que vi, usam uma chaves, mas não sei onde é que se vai buscar a dita. julgo que é a password para se aceder aos dados do firebase mas não sei como saber qual a chave que devo colocar Acontece é que recebo logo os seguintes erros quando tento fazer debug: Gravidade Código Descrição Projeto Arquivo Linha Estado de Supressão Erro BC30737 Nenhum método "Main" acessível com uma assinatura apropriada foi encontrado em "Project1". Project1 C:\Users\sergio\source\repos\Project1\Project1\vbc 1 Ativo 1>------ Compilação iniciada: Projeto: Project1, Configuração: Debug Any CPU ------ 1> Não é possível resolver o conflito entre "mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" e "mscorlib, Version=2.0.5.0, Culture=neutral, PublicKeyToken=7cec85d7bea7798e, Retargetable=Yes". Escolhendo "mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" arbitrariamente. 1>vbc : error BC30737: Nenhum método "Main" acessível com uma assinatura apropriada foi encontrado em "Project1". ========== Compilar: 0 com êxito, 1 com falha, 0 atualizados, 0 ignorados ========== Alguem consegue me dar umas luzes para perceber o que estou a fazer de errado
  21. Pessoal estou desenvolvendo um sistema e queria o seguinte: Um combobox que me traz uma lista igual um treeview exemplo: 1 Financeiro 1.1 Aluguel 1.2 Salario 2 Despesas 2.1 Manutenção de equipamento 2.2 Como faço isso em vb.net????? eu dei uma olhada mais só encontrei isso em asp ou c# porem estava muito complexo para eu entender. Alguem pode me dar uma ajuda? Esses dados eu estarei trazendo do banco de dados. Os número só usei como exemplo para ficar melhor para entender.
  22. Boa noite a todos, preciso que alguém me ajudar a resolver este problema, e já fiz o codigo para buscar dados entre duas datas, só que eu queria também colocar uma combobox ( uma lista de Clientes) para eu fazer uma busca de escolher o cliente e depois selecionar as duas datas que pretendo, alguém pode dizer como é que é feito, obrigado. Imports System.Data.OleDb Public Class FrmRelatório Private Sub RelatórioReceita() Dim total As Integer Dim totalS As Integer Dim Faturar As Integer Try sqL = "SELECT Data, Cliente, Serviço, Faturar, Total FROM Item WHERE IDReceita = IDReceita AND Data >= #" & dtpInicio.Text & "# AND Data <=#" & dtpFim.Text & "# Order By Data, Cliente" ConnDB() cmd = New OleDbCommand(sqL, conn) dr = cmd.ExecuteReader(CommandBehavior.CloseConnection) dgw.Rows.Clear() total = 0 totalS = 0 Faturar = 0 Do While dr.Read = True dgw.Rows.Add(dr(0), dr(1), dr(2), dr(3), dr(4)) total += dr(4) totalS += dr(4) Faturar += dr(3) Loop lblTotal.Text = FormatCurrency(total, "0,00€") 'lblTotal.Text = Format(totalS, "#,##0") LblFaturar.Text = (Faturar) Catch ex As Exception MsgBox(ex.Message) Finally cmd.Dispose() conn.Close() End Try End Sub
  23. marlonwg

    VB.net x Banco SQL Server 2012

    Boas Pessoal Estou com um pequeno probleminha.... Gostaria de saber se alguem do forum sabe de alguma maneira de como chamar em VS15.net a Funçao de replicaçao do Sql server 2012 ??? Porque existe a conexao Merge e tudo mais feito dentro do proprio sql e ele tem um monitor la.. Mas vamos ao seguinte quadro eu instalo o Software House nas maquinas do cliente 1-Servidor e 2-Terminais.... Em Access eu faço uma comunicaçao de replicaçao entao todos sao servidores e mesmo OFFLINE o sistema continua funcionando depois que volta ele Syncroniza e troca dados... Eis a duvida como eu faria para instalar no caso nao todo SQL SERVER em cada maquina de cliente somente o recursos necessarios para rodar o Banco... Chamar ele em .net e tudo mais isso passa de boas dar localizaçao de servidor mas os problemas e como fazer esta rede.... Sendo a Conexao merge sql server 2012 como chama-la no vb.net ? e digamos no meu .EXE eu daria so o caminho do servidor e teria que fazer um .EXE para cada terminal ou posso usar um Config digamos para localizar todos os bancos e direçoes Se alguem souber de algo que falei agradeco
  24. Chamuanza

    Vario texto em Button

    Um bem Aja a todos Pretendo colocar texto numérico ( 1 2 3 4 5 6 7 8 9) num button com os alinhamentos que as propriedades conferem, a finalidade é ajudar a resolver o SUdoku, mas não sei como fazer. Tenho este código mas não executa o que pretendo Agradecia umas dicas. Obrigado Private Sub Button2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Button2.KeyPress Dim KeyAscii As Short = CShort(Asc(e.KeyChar)) If butModoNumeros.Text = "Modo Espera 1-2-3" Then KeyAscii = CShort(SoNumeros(KeyAscii)) If KeyAscii = 0 Then e.Handled = True Button2.Text = "" Else Button2.Text = e.KeyChar Button2.Font = New Font("Microsoft Sans Serif", 8) If e.KeyChar = "1" Then Button2.TextAlign = ContentAlignment.TopLeft If e.KeyChar = "2" Then Button2.TextAlign = ContentAlignment.TopCenter If e.KeyChar = "3" Then Button2.TextAlign = ContentAlignment.TopRight End If Else 'Por numeros normais KeyAscii = CShort(SoNumeros(KeyAscii)) If KeyAscii = 0 Then e.Handled = True Button2.Text = "" Else Button2.Text = e.KeyChar End If If Not SolutionShown Then ' Call VerificarCasasPreenchidas() For i As Integer = 1 To 81 If CurButtons(i).Text <> SudokuSolution(i) Then ' solFound = False Exit Sub End If Next i lblDone.Visible = True End If End If End Sub
  25. Retsu9

    DatagridView e Datasource

    Boas, Tenho um projecto em execução já há algum tempo, mas tenho tido alguns problemas com os tempos de preenchimento das datagrids, isto porque não estou a fazer o procedimento mais correcto (penso eu). Dese que me lembro que carrego as datagrids com o seguinte código: Public Sub carregar_saidas(ByVal DG As DataGridView) n_rows = 0 DG.Rows.Clear() query = "Select * from tbl_saidas as s, tbl_produtos as p Where s.Produto=p.Produto Order By s.Data DESC" dr = executar_query_Reader(query) While dr.Read n_rows += 1 Dim n As Integer = DG.Rows.Add() DG.Rows.Item(n).Cells(0).Value = dr("ID") DG.Rows.Item(n).Cells(1).Value = dr("s.Produto") DG.Rows.Item(n).Cells(2).Value = dr("s.Quantidade") DG.Rows.Item(n).Cells(3).Value = dr("Unidade") DG.Rows.Item(n).Cells(4).Value = dr("Obra") DG.Rows.Item(n).Cells(5).Value = Format(dr("Data"), "dd/MM/yyyy") DG.Rows.Item(n).Cells(6).Value = Format$(CSng(dr("Valor_uni")), "###,####,##0.00") & " €" DG.Rows.Item(n).Cells(7).Value = Format$(CSng(dr("Total")), "###,####,##0.00") & " €" End While con.Close() End Sub isto funciona bem com poucos registos, de momento já tenho quase 400 e demora uma eternidade a carregar, pois estou a criar linha a linha... Tentei então usar datatables e dataadapters, mas como não estou bem habituado a usar esse método não estou a conseguir visualizar os dados como quero...com o código que uso atualmente tenho total liberdade de adicionar a cada célula o campo da tabela da base de dados que quero, mudar as cores das linhas, formatar as células, acrescentar simbolos etc.. com o código que mostro abaixo não consigo nada disso, para além que ele me ignora as colunas que criei na datagrid e adiciona novas com base na tabela access. query = "Select * from tbl_saidas as s, tbl_produtos as p Where s.Produto=p.Produto Order By s.Data DESC" Dim DataAdapter As New OleDbDataAdapter(query, cs) Dim MyData As New DataSet DataAdapter.Fill(MyData, "tbl_saidas") Me.dg_saidas.DataSource = MyData.Tables("tbl_saidas") o resultado final é bem diferente, o que eu quero, e atualmente faz (MUITO lento): Com DataAdapter: Espero que me tenha feito entender
×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.