Jump to content

Search the Community

Showing results for tags 'vb.net'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • 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
    • Apresentação de Software
  • Informática
    • Interfaces Visuais
    • Computação Gráfica
    • Algoritmia e Lógica
    • Segurança e Redes
    • Hardware
    • Electrónica
    • Automação Industrial
    • Matemática
    • Dúvidas e Discussão de Programação
    • Notícias de Tecnologia
  • Outras Áreas
    • 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

Categories

  • 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

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Found 7,629 results

  1. electric

    Conecçao Rcon

    Bom dia a todos, Estive a procura no forum e nao encontrei nada referente a Rcon no campo de vb.net, Online existem algumas coisas mas tambem nada que me tenha realmente ajudado.. Questao a minha é a seguinte Preciso fazer uma conneccao por Rcon Tenho o ip a porta e a porta rcon Alguem me da uma luzinha de como fazer a coneccao ? Obrigado desde ja Abraço
  2. Eduarda Pinto

    Impressão de uma factura

    Boa tarde, eu estou ja na parte final do meu projeto de prova de aptidão Profissional e no meu projeto em visual basci eu necessito de fazer a impressão de uma fatura e de uma encomenda e o meu código está a dar erro na parte do RectPrint Dim snapshot As Bitmap = GetWindowImage(window, New Rectangle(Me.Location.X + 10, Me.Location.Y + 30, RectPrint.Width, RectPrint.Height)) Necessito mesmo de ajuda, pois vou fazer a terceira avaliação esta quinta-feira!!!! Obrigada pela compreensão!!!
  3. Mendes_PT

    Pesquisa entre datas

    Boa tarde, Estou a criar um desenvolvimento que permite visualizar todos os movimentos de stock da referência em uma datagridview. Ate aqui eu consegui colocar tudo a funcionar mas queria ir mais longe. Queria que quando fizesse uma pesquisa a primeira linha da datagridview me mostrasse o saldo anterior dos movimentos. Ou seja desde a primeira data dos movimentos de stock até a data inicial da pesquisa. E na ultima linha o total desde a data inicial ate a data final do filtro. Nao sei se me fiz entender espero que sim. Podem me ajudar se for possível fazer isto?
  4. Olá pessoal!!! Podem me ajudar??? Tenho um DataGridView onde ao clicar nas células de determinadas colunas retora o seu texto em uma textbox. Segue o código: Private Sub DgvCE_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DgvCE.CellClick Dim ColName As String = DgvCE.Columns(e.ColumnIndex).Name If ColName = "ImgEditar" Or ColName = "ImgDeletar" Or ColName = "ImgCE" Or ColName = "ImgPID" Or ColName = "ImgAP" Then TxtLeitor.Text = "" Else '---Quando o usuário clicar em uma célula do DgvCE, exibe o seu conteudo no txtLeitor TxtLeitor.Text = DgvCE.Rows(e.RowIndex).Cells(e.ColumnIndex).Value End If End Sub O problema é que quando clico no CABEÇALHO () ocorre o seguinte erro: System.ArgumentOutOfRangeException: 'O índice estava fora do intervalo. Ele deve ser não-negativo e menor que o tamanho da coleção. Arg_ParamName_Name'
  5. Chamuanza

    Aviso sobre "MSDATASRC"

    Um Bem Aja a todos Tenho uma aplicação feita por mim, para meu uso que agora quando inicio aparece este aviso. Aviso Não é possível localizar o assembly do wrapper para a biblioteca de tipos "MSDATASRC". Verifique se (1) o componente COM está registrado corretamente e (2) sua plataforma de destino é a mesma que a bitness do componente COM. Por exemplo, se o componente COM for de 32 bits, sua plataforma de destino não deverá ser de 64 bits. ChamuanzasAB42012. Qual a melhor maneira de resolver? Estou com o Windows 10 Pro 64bits e Visual Studio2015 Agradeço desde já a atenção
  6. marlonwg

    Impressao com PrintDocument

    Boas pessoal estou a usar PrintDocument para criar uma impressão so tem um porem quando a impressao passa de X linhas a impressora para de imprimir e sempre mantem no Modo A4??? ta ai abaixo um trecho do codigo que uso para definir o Papersize mas sem sucesso somente consigo quando imprimi em impressora XPS , passa normal mas se entrar nas cupom Continuo tipo bematech , elgin , etc ... a impressora corta quando alcança A4 Codigo... Dim pd As Printing.PrintDocument = New Printing.PrintDocument() Dim QtdProd As Decimal = DgvVendas.RowCount ' Quantidade linhas da venda Dim AltTotal As Decimal = QtdProd * (Tln * 2) ' divisao para saber tamanho do cupom Dim Alt As Short = 671 + AltTotal ' Soma a base + altura total 'Seleciona a Impressao tipo Cupom PapelPersonal = New PaperSize("personal", 300, Alt) ' Papel personalizado Pd.PageSettings.PaperSize = PapelPersonal ' Definiçao de papel Pd.Print()
  7. Ola amigos , estou a realizar um protejo em Visual BASIC 2017 sobre Contador Electrónico, o que é isto, é nada mais nada menos que um programa que tem 10 mesas em que se pode adicionar ou remover mesas á medida da capacidade do estabelecimento e disponibilidade , contudo eu nao sou mesmo nada perito em vb e tenho alguma dificuldade em entender mas gostava de saber se me podiam dar uma ajudinha em explicarem-me como devo de fazer e a melhor forma para que eu possa através de um outro Form clicar num botão que diz "Recolher Registo" e no qual esse botao envia-se um email para o administrador que só á um no programa e mostrar no email um anexo em acess ou excel ou word ,assim qualquer coisa como um modelo que ficasse bem bonitinho para que depois o dito administrador pudesse tirar uma cópia desse tal anexo para guardar , nao tenho código em relação a isso de enviar email e capa do anexo,apenas tenho um sistema de login e registo e o principal do programa que é a parte das mesas disponiveis e assim que um cliente comeca e acaba um jogo , gostava primeiro de entender o raciocínio de como devo fazer ,é baseado Num software que existe na net com o nome de "Contelec", baseado nisso, obrigado por alguma resposta e espero que tenha sido claro na minha duvida cumprimentos
  8. Boas sou novo nestas zonas e gostaria de saber como faço para executar um backup da minha base de dados e também para restaurar. Se alguém me poder ajudar fico imenso grato. Obrigado.
  9. Retsu9

    Imprimir fatura

    Boas, estou na fase final da faturação de um software que estou a desenvolver e preciso de imprimir uma fatura (aqueles papelinhos pequenos que não sei o tamanho deles) mas nunca fiz nada do genero então não sei nem o que preciso para fazer isso. Alguma ajudinha é bem vinda
  10. gastao

    Fazer Ligação JSON

    Boa tarde, alguem sabe fazer uma ligação em JSON via API
  11. Latitude

    Projeto corrompido

    Olá, Estava a desenvolver um projeto em visual studio 2017 (visual basic) quando o pc foi abaixo. Ao entrar novamente no meu projeto os formulários mostram 0000 e 1111. No entanto ao compilar consigo compilar a última versão bem sucedida. Será possível recuperar o condigo fonte correspondente e os formulários associados?
  12. a3deluxe

    Bring Forward Window VB.Net

    Boa noite, Precisava de uma ajuda no meu código em vb.net. O meu programa é um Form com um Button, quando pressionado , trás para a frente a janela do programa VirtualBox, depois quando pressionando a tecla ESC, vem para a frente o Form novamente. A parte do código do Button está a funcionar bem, a parte da Tecla ESC é que não. Não esta a trazer o Form para a Frente. Tentei colocar o mesmo código do Button que funciona na tecla ESC, mas usando o nome da Janela do Form, só funcionou a primeira vez depois perde o Focus do Form. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim Handle As IntPtr = FindWindow(Nothing, "Windows 7 - Oracle VM VirtualBox") SetForegroundWindow(Handle) TopMost = False End Sub Private Function LowLevelKeyboardProc(ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) As Integer If nCode = HC_ACTION Then If wParam = WM_KEYDOWN Then Dim key As Integer = lParam.vkCode If key = Keys.Escape Then TopMost = True Return CallNextHookEx(hKeyboardHook, nCode, wParam, lParam) End Function Alguém para dar uma ajudinha. Obrigado
  13. Boa tarde amigos do fórum estou a compilar um código fonte e esta a aparecer esse erro ja procurei na net mas cada um fala de uma forma diferente gostaria de saber ao certo o porque desse erro obrigado a todos ERRO : 30389 '"Sales_and_Inventory_System.frmOrdersReport.CrystalReportViewer1" não está acessível neste contexto porque é "Private". Oque esta em negrito e onde o VS 2017 acusa o erro Public Sub OrderToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OrderToolStripMenuItem2.Click Me.Hide() frmOrdersReport.cmbCustomerName.Text = "" frmOrdersReport.CrystalReportViewer3.ReportSource = Nothing frmOrdersReport.dtpOrderDateFrom.Text = Today frmOrdersReport.dtpOrderDateFrom.Text = Today frmOrdersReport.CrystalReportViewer1.ReportSource = Nothing frmOrdersReport.cmbStatus.Text = "" frmOrdersReport.CrystalReportViewer2.ReportSource = Nothing frmOrdersReport.Show() End Sub
  14. marioverdini

    vb.net + sql

    Boa tarde a todos Baixei um codigo fonte da internet e como sou iniciante estou estudando o codigo para afins de aprendizado entao vamos la, no cadastro de produto tem uma textbox que recebe um valor preço pelo que percebi a declaçao da variavel pelo q parece esta misturada com conecçao com o banco sql isso acontece no codigo do botao save ou update Queria saber nessa situação como faço para no campo preço ter casas decimais no entanto eu digito o preço de 1.01 e primo em salvar ou em atualizao ele aceita mas quando vou pesquisar o produto no form de pesquisa preço fica 101 No banco sql estava com o tipo de dados float eu alterei para decimal tanto no codigo como no sql nao deu certo alguem pode me ajudar? vou colocar o codigo do botao update Private Sub Update_Record_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Update_Record.Click Try con = New SqlConnection(cs) con.Open() Dim cb As String = "update product set Productname=@d2,category=@d3,Weight=@d4,price=@d5 where Productcode=@d1" cmd = New SqlCommand(cb) cmd.Connection = con cmd.Parameters.Add(New SqlParameter("@d1", System.Data.SqlDbType.NChar, 20, "productcode")) cmd.Parameters.Add(New SqlParameter("@d2", System.Data.SqlDbType.VarChar, 250, "productname")) cmd.Parameters.Add(New SqlParameter("@d3", System.Data.SqlDbType.VarChar, 150, "category")) cmd.Parameters.Add(New SqlParameter("@d4", System.Data.SqlDbType.NChar, 10, "weight")) cmd.Parameters.Add(New SqlParameter("@d5", System.Data.SqlDbType.Float, 10, "price")) cmd.Parameters("@d1").Value = txtProductCode.Text cmd.Parameters("@d2").Value = txtProductName.Text cmd.Parameters("@d3").Value = cmbCategory.Text cmd.Parameters("@d4").Value = cmbWeight.Text cmd.Parameters("@d5").Value = CDbl(txtPrice.Text) cmd.ExecuteReader() MessageBox.Show("Successfully updated", "Product Details", MessageBoxButtons.OK, MessageBoxIcon.Information) Update_Record.Enabled = False fillCategory() fillWeight() autocomplete() If con.State = ConnectionState.Open Then con.Close() End If con.Close() Catch ex As Exception MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub
  15. Ora muito bom dia, tive a ver na internet, e vi que era possivel criar várias funções para o mesmo objeto com as funções Case, mas no meu caso em concreto não sei se será aplicável, passo a explicar. https://ibb.co/t3MrRFg como podem ver na imagem, tenho uma form(1) com vários botões, quando carrego em qualquer botão irá abrir uma nova form(2) que será esta https://ibb.co/MVbbpw8 cada botão da form(2) abre uma diretoria específica alojada no servidor da empresa. A minha grande questão é se tenho que criar uma form nova para cada botão da form(1) ou então se é possivel atribuir várias diretorias ao mesmo botão da form(2), variando consoante o botão escolhido da form(1) Por exemplo, é possivel criar valores de entrada para um botão, e consoante esse valor, o botão da (form2) executa o código atribuido para cada valor ?
  16. Bom dia atodos do forum estou com problema e quem puder me ajudar agradeço tenho um codigo fonte em vb.net com banco de dados access que esta a me dar uma dor de cabeça sendo assim vou expor o problema tenho um formulario cadastro de produtos que so esta aceitando numeros inteiro ao colocar o preço numero fracionado (Ex: 12.16) e devidaente ao tentar gravar ou atualizar me aparece esse erro:lembrando que o sistema so aceita ponto e nao virgura " data type mismatch in criteria expression " 1) No codigo a variavel preço esta declarada como double cmd.Parameters.Add(New OleDbParameter("@d5", System.Data.OleDb.OleDbType.Double, 10, "price")) 2) no banco de dados access esta assim NOME DO CAMPO | TIPO DE DADOS Preço numerico -----------propiedades do campo-------------- tamanho do campo: duplo casas decimais: Auto necessario: nao indexado: nao Alinhamento de Texto: geral ATENÇAO: eu agora nao sei se o problema e no codigo ou no banco de dados
  17. Arcanjo Conde

    Listagem campos agrupados

    datagridview como criar listagem com dados agrupados?
  18. Boa tarde, tenho um botão com o seguinte nome " CNC " Maquinação/Grafite Neste momento isto é o código que tenho, o que pretendo é aumentar o tamanho e pôr em negrito somente a palavra "CNC" Me.Button10.Font = New System.Drawing.Font("Comic Sans MS", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Button10.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer)) Me.Button10.Location = New System.Drawing.Point(607, 204) Me.Button10.Name = "Button10" Me.Button10.Size = New System.Drawing.Size(156, 62) Me.Button10.TabIndex = 9 Me.Button10.Text = "CNC" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Maquinação/Grafite" Me.Button10.UseVisualStyleBackColor = True Me.Button10.UseWaitCursor = True Agradecia uma ajudinha, Cumprimentos, Pedro Costa
  19. pimpshuz

    Loop infinito no mousehover

    Ora bom dia, estou a tentar criar uma mini aplicação para a empresa que tem como objetivo mostrar uma imagem quando o rato passa por cima do botão e se depois clicar vai abrir outra form com mais 3 botões cada um para abrir uma pasta. Essa parte já está feita, estou só a ter dificuldades no comando MouseHover porque sempre que meto o rato por cima do botão fica-me a abrir e a fechar a imagem vezes sem conta. O código que tenho para a form1 é o seguinte: Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub Button1_MouseHover(sender As Object, e As EventArgs) Handles Button1.MouseHover Form3.Show() End Sub Private Sub Button1_MouseLEAVE(sender As Object, e As EventArgs) Handles Button1.MouseLeave Form3.Close() End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Form2.Show() End Sub End Class
  20. Quantas vezes perdemos tempo a calcular os feriados ou saber se um determinado dia é ou não feriado? Para simplificar o trabalho deixo aqui um modulo com algumas funções: -Calcular a data das festas moveis para qualquer Ano (desde 1900) -Verificar se uma determinada data é um feriado e qual o tipo de feriado Module modFeriados 'Dias Feriados Public Function DiaFeriado(ByVal Data As Date) As String Dim Dia As Integer = Data.Day Dim Mes As Integer = Data.Month Dim Ano As Integer = Data.Year 'Festas moveis If Data.Date = Carnaval(Ano).Date Then Return "E" '"Entrudo/Carnaval" If Data.Date = SextaFeiraSanta(Ano).Date Then Return "S" '"Sexta-Feira Santa" If Data.Date = Pascoa(Ano).Date Then Return "P" '"Páscoa" If Data.Date = CorpoDeDeus(Ano).Date Then Return "S" '"Corpo de Deus" 'Feriados e dias Santos Fixos If Dia = 1 And Mes = 1 Then Return "S" '"Ano Novo" If Dia = 25 And Mes = 4 Then Return "F" '"Dia da Liberdade" If Dia = 1 And Mes = 5 Then Return "F" '"Dia do Trabalhador" If Dia = 10 And Mes = 6 Then Return "F" '"Dia de Portugal" If Dia = 15 And Mes = 8 Then Return "S" '"Assunção de Maria" If Dia = 5 And Mes = 10 Then Return "F" '"Implantação da República" If Dia = 1 And Mes = 11 Then Return "S" '"Todos os Santos" If Dia = 1 And Mes = 12 Then Return "F" '"Restauração da Independência" If Dia = 8 And Mes = 12 Then Return "S" '"Imaculada Conceição" If Dia = 25 And Mes = 12 Then Return "N" '"Natal" 'Feriados Locais 'If Dia = 1 And Mes = 7 Then Return "R" '"Feriado Regional(Madeira)" 'If Dia = 21 And Mes = 8 Then Return "M" '"Feriado Municipal(Funchal)" 'etc... Return "" 'Dia Util" End Function 'Festas Moveis Public Function Carnaval(ByVal Ano As Integer) As Date Dim D As Date = Pascoa(Ano) Return DateSerial(Ano, D.Month, D.Day - 47) End Function Public Function SextaFeiraSanta(ByVal Ano As Integer) As Date Dim D As Date = Pascoa(Ano) Return DateSerial(Ano, D.Month, D.Day - 2) End Function Public Function Pascoa(ByVal Ano As Integer) As Date Dim A As Integer = Ano Mod 19 Dim B As Integer = Int(Ano / 100) Dim C As Integer = Ano Mod 100 Dim D As Integer = Int(B / 4) Dim E As Integer = B Mod 4 Dim F As Integer = Int((B + 8) / 25) Dim G As Integer = Int((B - F + 1) / 3) Dim H As Integer = (19 * A + B - D - G + 15) Mod 30 Dim I As Integer = Int(C / 4) Dim J As Integer = C Mod 4 Dim L As Integer = (32 + 2 * E + 2 * I - H - J) Mod 7 Dim M As Integer = Int((A + 11 + H + 22 * L) / 451) Dim Mes As Integer = Int((H + L - 7 * M + 114) / 31) Dim Dia As Integer = 1 + ((H + L - 7 * M + 114) Mod 31) Return DateSerial(Ano, Mes, Dia) End Function Public Function CorpoDeDeus(ByVal Ano As Integer) As Date Dim D As Date = Pascoa(Ano) Return DateSerial(Ano, D.Month, D.Day + 60) End Function End Module Para inserir os feriados locais basta retirar de comentário as duas linhas finais da primeira função e alterar o dia e o mês. Fernando
  21. Arcanjo Marques

    campos agrupada em listagem

    Precisava de criar uma listagem com campos agrupados, qual o melhor objecto a utilizar. Podem ajudar?
  22. jasb

    Cartão do Cidadão

    Pessoal, Eu sei que isto já foi perguntado N vezes, mas a verdade é que não encontro nada de jeito para o efeito, nem a funcionar. edipt.dll é antigo já não é para usar, do que vejo (funcionava tao bem quando experimentei à uns anos). Então entra o pteidlib_dotnet.dll, alguem tem um exemplo a funcionar ou sabe onde tiro isso? ando farto de procurar nos sites do cartão do cidadão e não encontro nada. Obrigado desde já.
  23. Boa noite,Pessoal! Eu ja pesquisei na internet,mas apear de existir muita informação sobre o tema,não encontrei nada de que preciso: mas pelo que eu li não existe nenhum tipo de variável no .Net que faça isso, é algo terei que fazer manualmente. pelo metodo Math.Round(valor, 2) esta me arredondando o valor no final teria algum outro metodo? Sub Compute() Dim i As Double = 0 Dim j As Double = 0 j = Val((Val(txtSubTotal.Text) * Val(txtTaxPer.Text)) / 100) j = Math.Round(j, 2) txtTaxAmount.Text = j i = Val(txtSubTotal.Text) + Val(txtTaxAmount.Text) i = Math.Round(i, 2) txtGrandTotal.Text = i End Sub
  24. Boa a Tarde a todos estou tentando salvar um regitro no banco de dados mas ao clicar no botao salvar me aparece a msn error converting data type nvarchar to numeric Gostaria da ajuda do forum obrigado Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click If Len(Trim(cmbPurchaseType.Text)) = 0 Then MessageBox.Show("Please select purchase type", "", MessageBoxButtons.OK, MessageBoxIcon.Warning) cmbPurchaseType.Focus() Exit Sub End If If Len(Trim(cmbCompany.Text)) = 0 Then MessageBox.Show("Please select company", "", MessageBoxButtons.OK, MessageBoxIcon.Warning) cmbCompany.Focus() Exit Sub End If If DataGridView1.Rows.Count = 0 Then MessageBox.Show("Sorry no product info added to grid", "", MessageBoxButtons.OK, MessageBoxIcon.Warning) Exit Sub End If If Len(Trim(txtTaxPer.Text)) = 0 Then MessageBox.Show("Please enter tax %", "", MessageBoxButtons.OK, MessageBoxIcon.Warning) txtTaxPer.Focus() Exit Sub End If Try con = New SqlConnection(cs) con.Open() Dim cb As String = "insert into Purchase(PI_ID, Date, PurchaseType, Company, SubTotal, TaxPer, TaxAmount, GrandTotal, Remarks) VALUES (@d1,@d2,@d3,@d4,@d5,@d6,@d7,@d8,@d9)" cmd = New SqlCommand(cb) cmd.Parameters.AddWithValue("@d1", txtID.Text) cmd.Parameters.AddWithValue("@d2", Convert.ToDateTime(dtpDate.Value.Date)) cmd.Parameters.AddWithValue("@d3", cmbPurchaseType.Text) cmd.Parameters.AddWithValue("@d4", cmbCompany.Text) cmd.Parameters.AddWithValue("@d5", txtSubTotal.Text) cmd.Parameters.AddWithValue("@d6", txtTaxPer.Text) cmd.Parameters.AddWithValue("@d7", txtTaxAmount.Text) cmd.Parameters.AddWithValue("@d8", txtGrandTotal.Text) cmd.Parameters.AddWithValue("@d9", txtRemarks.Text) cmd.Connection = con cmd.ExecuteNonQuery() con.Close() con = New SqlConnection(cs) con.Open() Dim cb1 As String = "insert into Purchase_Product(PurchaseID,ProductID,Quantity,Price,TotalAmount) VALUES (" & txtID.Text & ",@d1,@d2,@d3,@d4)" cmd = New SqlCommand(cb1) cmd.Connection = con ' Prepare command for repeated execution cmd.Prepare() ' Data to be inserted For Each row As DataGridViewRow In DataGridView1.Rows If Not row.IsNewRow Then cmd.Parameters.AddWithValue("@d1", row.Cells(0).Value) cmd.Parameters.AddWithValue("@d2", row.Cells(3).Value) cmd.Parameters.AddWithValue("@d3", row.Cells(4).Value) cmd.Parameters.AddWithValue("@d4", row.Cells(5).Value) cmd.ExecuteNonQuery() cmd.Parameters.Clear() End If Next con.Close() LogFunc(lblUser.Text, "added the new purchase having purchase ID '" & txtID.Text & "'") MessageBox.Show("Successfully saved", "Record", MessageBoxButtons.OK, MessageBoxIcon.Information) btnSave.Enabled = False con.Close() Catch ex As Exception MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click frmProductRecord.lblSet.Text = "Purchase" frmProductRecord.Reset() frmProductRecord.ShowDialog() End Sub
  25. Bom dia a todos Estou a desenvolver a automatização de preenchimento de uma folha de assiduidade em access. Para isso cada dia tem 4 caixas de texto para serem preenchidas automaticamente (entrada de manha, saída de manha, entrada da tarde e saída da tarde) . Para cada caixa de texto dei-lhe um nome + o dia. Exemplo (hedm1 - hora de entrada de manha do dia 1, hsdm1 - hora de saida de manha do dia 1 , hedt1 - hora de entrada de tarde do dia 1, hsdt1 - hora de saida de manha do dia 1), para o dia 2 é hsdm2 e assim sucessivamente até 31. No código VBA estou a utilizar um For To Next para efetuar o preenchimento das caixas de texto de 1 a 31, no qual chamei "cdia" à variavel dia. A minha questão é para preenchimento da caixa de texto consoante o dia estou a tentar concatenar o texto com o dia exemplo ("hsdm" & cdia), no entanto o vba não assume, exemplo de código: cdia As Integer For cdia = 1 To 31 'automatizar horas diárias' 'se for fevereiro e ano bisexto' If Form_frAssid.mes.Column(0) = 2 And cdia = 29 And Form_frAssid.Ano Mod 4 <> 0 Then hedm & cdia = "" hsdm & cdia = "" hedt & cdia = "" hsdt & cdia = "" No exemplo acima, para o dia 29 em anos que não sejam bisextos quero que ele deixe as caixas de texto do dia 29 em branco, mas está-me a dar erro de sintaxe no código, não reconhece a concatenação como o nome da caixa de texto. Como posso dar volta a isso? Obrigado
×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.