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
    • Apresentações
  • 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



Filtrar por número de...

7481 resultados

  1. Como fazer transação commit e rollback?

    Bom dia meus caros. Preciso de uma ajuda de como usar o comando Transações commit e rollback no ciclo for. Abaixo mando as Instruções. For I = 0 To GridViewRegularizar.SelectedRowsCount() - 1 If GridViewRegularizar.IsRowSelected(hitInfo.RowHandle) Then Rows.Add(GridViewRegularizar.GetDataRow(GridViewRegularizar.GetSelectedRows()(I))) End If Next For I = 0 To Rows.Count - 1 Dim Row As DataRow = CType(Rows(I), DataRow) Dim vMovId As Integer = Row("MovId") & vbNewLine Dim vFamId As Integer = Row("FMId") & vbNewLine Dim vFamNome As String = Row("FMNome") & vbNewLine Dim vNdoc As Integer = Row("NDOC") & vbNewLine 'NDoc Dim vNMov As Integer = Row("NMOV") & vbNewLine Dim vMes As Integer = Row("Mes") & vbNewLine Dim vAno As Integer = Row("Ano") & vbNewLine Dim vDiaMulta As Integer = GridViewRegularizar.GetRowCellValue(I, "DIASMULTA") Dim vToTaCRMB As Integer = Row("TOTCRMB") & vbNewLine Dim vToTaCRMS As Integer = Row("TOTCRMS") & vbNewLine Dim vPerMulta As Integer = GridViewRegularizar.GetRowCellValue(I, "PERCMULTA") Dim vDatMov As Date = GridViewRegularizar.GetRowCellValue(I, "DataMov") Dim VMULTAMB As Integer = GridViewRegularizar.GetRowCellValue(I, "VMULTAMB") Dim vValorReal As Integer = Row("VALORIGA") & vbNewLine Dim VMULTAMS As Integer = GridViewRegularizar.GetRowCellValue(I, "VMULTAMS") vDIVIDMB = GridViewRegularizar.GetRowCellValue(I, "FALTAPAGAR", Nothing) vDIVIDMS = vDIVIDMB / vCambio Dim vOperacao As String vAnoMov = vAno '############################################################ Regulariza Recibo ######################################################################## Dim Cnn As New OleDbConnection(connOracle) Cnn.Open() Dim FullTrans As OleDb.OleDbTransaction = Cnn.BeginTransaction(IsolationLevel.ReadCommitted) ' esta instrução só rola uma vez por ser o recibo If Reci = True Then SQLTR = "INSERT INTO TABRECIBO" SQLTR = SQLTR & "(" SQLTR = SQLTR & " NRecId,ANO,AlunoId,MovimentoId,ReciData,VTMB,VTMS,MoedaId,ForPag,BORD,BORDATA,BORDVALOR,BANCOID,PCEMIT,USERLOG,CodOpe, DataCria" SQLTR = SQLTR & ")" SQLTR = SQLTR & " VALUES (" SQLTR = SQLTR & "" & vNumerador & "," & Year(vDateTabalho) & "," & CInt(TxtProc.Text) & "," & 40 & ", '" & Trim(devolveAMDHM(vDateTabalho, 1)) & "', " SQLTR = SQLTR & "" & TxtPag_MB.Text & ", " & TxtPag_MS.Text & "," If RBtnMB.Checked = True Then SQLTR = SQLTR & "'" & vMBase & "'," Else SQLTR = SQLTR & "'" & vMSuplementar & "'," End If SQLTR = SQLTR & "" & CmbFor_Pagamento.SelectedValue & "," & TxtBorderou.Text & ",'" & Trim(devolveAMDHM(DateBorde.Value, 1)) & "'," & Txt_Valor_Borde.Text & "," SQLTR = SQLTR & "" & CmbBanco.SelectedValue & ",'" & Pcnome & "','" & User_Log & "','" & vOperador & "','" & Trim(devolveAMDHM(vData, 0)) SQLTR = SQLTR & "')" Try comando = New OleDbCommand(SQLTR, connOracle, FullTrans) registrosAfectados += comando.ExecuteNonQuery Catch ex As Exception Reci = False MessageBox.Show("Erro ao efetuar a conexão com a base de dados : " + ex.Message) End Try End If Reci = False '#################################################################################################################################################################### '###################################################################################################################################################################### SQLMT = " INSERT INTO MOVTESOR " SQLMT = SQLMT & "(" SQLMT = SQLMT & " NDOC,NMOV,MovimentoId, ALUID,MES,ANO,SINALID,DATA,CODMB,CODMS,PERCDESC,DESCDBMB," SQLMT = SQLMT & " VAILIQDB,VALLIQDB,MOEDAID,ANOLECTIVOID,VDBMB,VCRMB,CAMBIO,VDBMS,VCRMS,MULTA,PERCMULTA,DIASMULTA,VALMULTAMB,OPER,NRecId,DATRECI," SQLMT = SQLMT & " NOMEPC,LOGUSER,CodOpe, DataCria" SQLMT = SQLMT & ")" SQLMT = SQLMT & "VALUES (" SQLMT = SQLMT & vNdoc & "," & vNMov & "," & 40 & "," & CInt(TxtProc.Text) & "," & vMes & "," & vAno & ",'" & vCed & "'," SQLMT = SQLMT & "'" & Trim(devolveAMDHM(vDatMov, 0)) & "','" & vMBase & "','" & vMSuplementar & "'," & 0 & "," & 0 & "," SQLMT = SQLMT & "" & CInt(vValorReal) & "," & CInt(vToTaDBMB) & "," If RBtnMB.Checked = True Then SQLMT = SQLMT & "'" & vMBase & "'," Else SQLMT = SQLMT & "'" & vMSuplementar & "'," End If If vMBase = "Akz" And vMSuplementar = "USD" Then vOperacao = "/" ElseIf vMBase = "USD" And vMSuplementar = "Akz" Then vOperacao = "*" End If SQLMT = SQLMT & "" & vAnoLectivo & "," & vToTaDBMB & "," & vToTaCRMB & "," & vCambio & "," & vToTaDBMS & "," & vToTaCRMS & "," & vMULTA & "," SQLMT = SQLMT & "" & vPerMulta & "," & vDiaMulta & "," & VMULTAMB & ",'" & vOperacao & "'," & vNumerador & ",'" & Trim(devolveAMDHM(vData, 0)) & "'," SQLMT = SQLMT & "'" & Pcnome & "','" & User_Log & "','" & vOperador & "','" & Trim(devolveAMDHM(vData, 0)) & "'" SQLMT = SQLMT & ")" 'ACTUALIZAR A TABELA DE NUMERADORES SQLMT2 = "UPDATE TABNUM " SQLMT2 = SQLMT2 & " SET " If CmbMS.SelectedValue = vMBase Then SQLMT2 = SQLMT2 & " NRECIBOMB=" & vNumerador Else SQLMT2 = SQLMT2 & " NRECIBOMS=" & vNumerador End If SQLMT2 = SQLMT2 & " WHERE REGID = 1" 'ACTUALIZAR A TABELA DAS CONTAS CONRRENTES SQLCDOC = " UPDATE C_CDOC " SQLCDOC = SQLCDOC & " SET " SQLCDOC = SQLCDOC & " TOTCRMB=" & CInt(vToTaDBMB) SQLCDOC = SQLCDOC & " ,TOTCRMS=" & vToTaDBMS SQLCDOC = SQLCDOC & " ,PERCMULTA=" & vPerMulta SQLCDOC = SQLCDOC & " ,DIASMULTA=" & vDiaMulta SQLCDOC = SQLCDOC & " ,VMULTAMB=" & VMULTAMB SQLCDOC = SQLCDOC & " ,VMULTAMS=" & VMULTAMS SQLCDOC = SQLCDOC & " WHERE NDOC =" & vNdoc SQLCDOC = SQLCDOC & " AND AluId=" & CInt(TxtProc.Text) SQLCDOC = SQLCDOC & " AND MovimentoId=" & vMovId SQLCDOC = SQLCDOC & " AND MES=" & vMes SQLCDOC = SQLCDOC & " AND ANO=" & vAno 'INSERI REGISTO NA TABELA DO CORPO DO RECIBO SQLTMR = "INSERT INTO TABMOVRECIBO" SQLTMR = SQLTMR & "(" SQLTMR = SQLTMR & " RECIID,AluId,NDOC,ANO,TABMOVID,MES,NMOV,DATAMOV, VALORINAL,VALORMB, VALORMS,CAMBIO,CODMB,CODMS, OPER,PERCMULTA,VMULTAMB,VMULTAMS,DIASMULTA," SQLTMR = SQLTMR & " MOEDAID,DIVIDMB,DIVIDMS,PCEMIT, USERLOG,CodOpe, DataCria" SQLTMR = SQLTMR & ")" SQLTMR = SQLTMR & " VALUES (" SQLTMR = SQLTMR & "" & vNumerador & "," & CInt(TxtProc.Text) & "," & vNdoc & "," & vAno & "," & vMovId & ", " & vMes & "," & 0 & ",'" & Trim(devolveAMDHM(vDatMov, 1)) & "'," SQLTMR = SQLTMR & "" & vValorReal & ", " & CInt(vToTaDBMB) & ", " & vToTaDBMS & ", " & vCambio & ",'" & vMBase & "','" & vMSuplementar & "','" & vOperacao & "'," SQLTMR = SQLTMR & "" & vPerMulta & ", " & VMULTAMB & "," & VMULTAMS & ", " & vDiaMulta & "," If RBtnMS.Checked = False Then SQLTMR = SQLTMR & "'" & vMBase & "'," Else SQLTMR = SQLTMR & "'" & vMSuplementar & "'," End If SQLTMR = SQLTMR & "" & vDIVIDMB & ", " & vDIVIDMS & ",'" & Pcnome & "','" & User_Log & "','" & vOperador & "','" & Trim(devolveAMDHM(vData, 0)) SQLTMR = SQLTMR & "')" Try 'todas estas instruçoes podem rolar + de uma vez '########################################################## comando = New OleDbCommand(SQLMT, connOracle, FullTrans) registrosAfectados += comando.ExecuteNonQuery 'ACTUALIZAR A TABELA DE NUMERADORES comando = New OleDbCommand(SQLMT2, connOracle, FullTrans) registrosAfectados += comando.ExecuteNonQuery 'ACTUALIZAR A TABELA DAS CONTAS CONRRENTES comando = New OleDbCommand(SQLCDOC, connOracle, FullTrans) registrosAfectados += comando.ExecuteNonQuery 'INSERI REGISTO NA TABELA DO CORPO DO RECIBO comando = New OleDbCommand(SQLTMR, connOracle, FullTrans) registrosAfectados += comando.ExecuteNonQuery vValor5 = vAno Catch ex As Exception MessageBox.Show("Erro ao efetuar a conexão com a base de dados : " + ex.Message) Finally FullTrans.Rollback() If connOracle.State = ConnectionState.Open Then Module_GESTPED.DesconectaBanco(VTipBDados) End If End Try End If Next FullTrans.Commit()
  2. Boa noite. Estou a desenvolver um programa para a disciplina de Programação e deparei-me com um obstáculo. Resumindo tenho uma base de dados já contendo várias entradas, do género: (Nome, Tipo Pagamento, Dívida). O problema é que, por exemplo, podem existir várias dividas para o mesmo Nome, e não podem acumular, mas até ia tudo bem porque vai se acrescentando sempre uma nova linha na base de dados. Só que na Form de saldar a divida tenho que ter uma opção para selecionar cada pessoa e uma divida da mesma. Por exemplo: existe o João e o Ricardo. O João tem 2 dividas, uma de 100€ e uma de 200€, o Ricardo tem uma de 50€. Tenho que ter uma opção que me mostre as duas pessoas disponíveis (João e Ricardo), e quando selecionar o João numa outra opção só me pode aparecer a divida de 100€ e 200€, enquanto se mudar para o Ricardo só mostra a de 50€. Relembrando que estes campos estão inseridos na mesma tabela da base de dados. Alguma ideia ?
  3. Rodar Picturebox

    Boa tarde, como posso rodar em varios graus um picturebox? Em vez de estar na horizontal, rodar alguns graus. Obrigado
  4. Gerar combinações

    Bom dia a todos Vi um postagem de um código para gera combinações sem repetições por Jlpcalado Em datagridview Este e o código dele Public Class Form1 Dim matrizNum Dim matrizSeq Dim table As DataTable Dim contador As Integer = 0 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load table = New DataTable table.Columns.Add("Id", GetType(Integer)) table.Columns.Add("n1", GetType(Integer)) table.Columns.Add("n2", GetType(Integer)) table.Columns.Add("n3", GetType(Integer)) table.Columns.Add("n4", GetType(Integer)) table.Columns.Add("n5", GetType(Integer)) End Sub Sub geraComb(ByVal totalNum As Integer, ByVal totalElementos As Integer, ByVal ElementoAtual As Integer, ByVal num As Integer, ByVal sequencia As String) Dim seqTemp As String : Dim limiteElem As Integer limiteElem = totalNum - (totalElementos - ElementoAtual) For i = num To limiteElem seqTemp = sequencia & (matrizNum(i - 1)) If ElementoAtual < totalElementos Then Call geraComb(totalNum, totalElementos, ElementoAtual + 1, i + 1, seqTemp & " ") Else matrizSeq = Split(seqTemp, " ") contador += 1 table.Rows.Add(contador, matrizSeq(0), matrizSeq(1), matrizSeq(2), matrizSeq(3), matrizSeq(4)) End If Next i End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click matrizNum = Split(txtnumeros.Text, ",") Call geraComb(UBound(matrizNum) + 1, 5, 1, 1, "") ' combinações 5 a 5 DataGridView1.DataSource = table ToolStripStatusLabel1.Text = table.Rows.Count.ToString End Sub end class Confesso que a adorei, gostaria de saber se tem como fazer em um listview. Bom dia e abraços a todos
  5. Pessoal eu estou com 3 probleminhas eu estou fazendo um controle de estoque mais para estudo mesmo eu fiz os cadastro fiz a saída que é a venda tem consulta ta filézinho tem login e tals só que eu estou com dificuldade em fazer o cupom não fiscal e não tenho noção em fazer o fiscal e fiz uns codigo para colorir o datagrid está funcionando pois eu quero organizar o datagrid por cores o que tem cores deixar ele no top e os normais deixar a baixo como fazer issos? veja o link da imagem que quero organizar Não consegui inserir a imagem coloquei nesse site https://ibb.co/h9OBU5
  6. boas não consigo imprimir varias paginas, a segunda página imprime encima da primeira, já tentei outros link aqui do forum mas nada. codigo Private Sub PrintDocTelefone_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocTelefone.PrintPage Dim ImprimeTexto As Graphics = e.Graphics Dim margemEsq As Single = e.MarginBounds.Left Dim margemSup As Single = e.MarginBounds.Top + 60 Dim margemDir As Single = e.MarginBounds.Right Dim margemInf As Single = e.MarginBounds.Bottom Dim fonteTitulo As Font Dim fonteRodape As Font Dim fonteNormal As Font fonteTitulo = New Font("Verdana", 18, FontStyle.Bold) fonteRodape = New Font("Verdana", 10) fonteNormal = New Font("Verdana", 14) Dim LinhasPorPag As Byte Dim PosicaoDaLinha As Integer Dim LinhaActual As Byte Dim vNumeroTelefone As String Dim vNome As String Dim vNReg As Integer LinhasPorPag = (e.MarginBounds.Height - 100) / fonteNormal.GetHeight(e.Graphics) PosicaoDaLinha = margemSup + (LinhaActual * fonteNormal.GetHeight(e.Graphics)) vNumeroTelefone = grdPesqRelCadTel.Rows(0).Cells(0).Value vNome = grdPesqRelCadTel.Rows(0).Cells(2).Value ImprimeTexto.DrawString("LISTA TELEFONICA", fonteTitulo, Brushes.Black, margemEsq + 150, 50, New StringFormat()) ImprimeTexto.DrawLine(Pens.Black, margemEsq, 100, margemDir, 100) ImprimeTexto.DrawString("N.º Telefone", fonteTitulo, Brushes.Black, margemEsq + 20, 110, New StringFormat()) ImprimeTexto.DrawString("Nome", fonteTitulo, Brushes.Black, margemEsq + 250, 110, New StringFormat()) ImprimeTexto.DrawLine(Pens.Black, margemEsq, 150, margemDir, 150) For i = 1 To vPesqRelCadTel vNReg = i 'verifica se ainda podemos imprimir , ou seja , se a linha atual é menor que o número 'de linhas permitido pela página. Se for continuamos a atribuir os dados e a imprimir 'acompanha a posição da linha atual PosicaoDaLinha = margemSup + (LinhaActual * fonteNormal.GetHeight(e.Graphics)) 'Passa os valores da linha do registo para as variaveis vNumeroTelefone = grdPesqRelCadTel.Rows(vNReg - 1).Cells(0).Value vNome = grdPesqRelCadTel.Rows(vNReg - 1).Cells(2).Value 'imprime os dados relativo ao nº telefone , nome ImprimeTexto.DrawString(vNumeroTelefone, fonteNormal, Brushes.Black, margemEsq + 40, PosicaoDaLinha, New StringFormat()) ImprimeTexto.DrawString(vNome, fonteNormal, Brushes.Black, margemEsq + 250, PosicaoDaLinha, New StringFormat()) LinhaActual += 1 'se o numero de registo impressos é menor que os registos todos If vNReg < vPesqRelCadTel Then ' se a limha impressa é maior que as linhas impressas por página If LinhaActual > LinhasPorPag Then e.HasMorePages = True PaginaActual += 1 LinhaActual = 1 ' margemSup = e.MarginBounds.Top ' ImprimeTexto.DrawLine(Pens.Black, margemEsq, 50, margemDir, 50) ' ImprimeTexto.DrawString("N.º Telefone", fonteTitulo, Brushes.Black, margemEsq + 20, 60, New StringFormat()) ' ImprimeTexto.DrawString("Nome", fonteTitulo, Brushes.Black, margemEsq + 250, 60, New StringFormat()) ' ImprimeTexto.DrawLine(Pens.Black, margemEsq, 100, margemDir, 100) Else e.HasMorePages = False End If Else ' e.HasMorePages = False End If Next End Sub se alguém puder ajudar agradeço cumps acao
  7. Mascara para CNPJ

    Olá amigos. Estou com problemas com uma maskedtextbox. A máscara é a seguinte: 00\.000\.000\/0000\-00 Grava no banco de dados, se recupero as informações gravadas o retorno e feito normalmente. Mas no banco de dados firebird - usando ibexpert - ao abrir a tabela da o seguinte erro: arithimetic exception, numeric overflow, or string truncation. string right truncation. E fica todos os campos da tabela como null. Se puderem me ajudar, desde já agradeço.
  8. Estou tentando imprimir um relatório com informações geradas a partir de um DataGridView. A principio o relatório está tudo certo no modo vídeo, gerando as 02 paginas com as informações selecionadas, mas quando clico no botão Imprimir, imprimi somente o titulo do relatório "Sugestão de Compras" sem as informações carregadas do DataGridView, sendo que no modo gráfico foi carregado tudo 100%. Estou enviando abaixo meu código: Private Sub btn_imprimir_Click(sender As System.Object, e As System.EventArgs) Handles btn_imprimir.Click PrintPreviewDialog1.WindowState = FormWindowState.Maximized PrintPreviewDialog1.Document.DocumentName = "Sugestao" PrintPreviewDialog1.PrintPreviewControl.Zoom = 1 PrintPreviewDialog1.Document = PrintDocument1 PrintPreviewDialog1.ShowDialog() End Sub Private Sub PrintDocument1_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage Dim codpro As String = String.Empty Dim descr As String = String.Empty Dim sugest As String = String.Empty Dim PosicaoLinha As Integer = 30 Dim LinhasPorPagina As Byte = 40 'Definições da pagina e.Graphics.PageUnit = GraphicsUnit.Millimeter 'Desenhando o Titulo Dim Titulo As New Font("Verdana", 5, FontStyle.Regular Or FontStyle.Bold, GraphicsUnit.Millimeter) e.Graphics.DrawString("Sugestão de Compras", Titulo, Brushes.Black, 60, 10) 'Desenhando o cabeçalho e.Graphics.DrawString("Cód.", New Font("Verdana", 7, FontStyle.Bold), Brushes.Black, 7, 21) e.Graphics.DrawString("Produto", New Font("Verdana", 7, FontStyle.Bold), Brushes.Black, 19, 21) e.Graphics.DrawString("Sugestão", New Font("Verdana", 7, FontStyle.Bold), Brushes.Black, 80, 21) 'Ler datagridview For L = 0 To LinhasPorPagina - 1 If LinhaAtual = CENTRAO_REL_SUGGIRODataGridView.Rows.Count Then Continue For 'Buscando os dados codpro = CENTRAO_REL_SUGGIRODataGridView.Item(1, LinhaAtual).Value.ToString descr = CENTRAO_REL_SUGGIRODataGridView.Item(2, LinhaAtual).Value.ToString sugest = CENTRAO_REL_SUGGIRODataGridView.Item(10, LinhaAtual).Value.ToString 'Desenhar conteudo na página e.Graphics.DrawString(codpro, New Font("Verdana", 6), Brushes.Black, 7, PosicaoLinha) e.Graphics.DrawString(descr, New Font("Verdana", 6), Brushes.Black, 19, PosicaoLinha) e.Graphics.DrawString(sugest, New Font("Verdana", 6), Brushes.Black, 80, PosicaoLinha) PosicaoLinha += 4 LinhaAtual += 1 Next 'Se a linha atual for igual as linhas devidas por página então muda de página If LinhaAtual < CENTRAO_REL_SUGGIRODataGridView.Rows.Count Then e.HasMorePages = True Else e.HasMorePages = False End If End Sub
  9. Boas amigos, Preciso de uma grande ajuda vossa porque já virei muitas paginas na Internet e não achei nada que resolve-se o meu problema... (Também não percebo muito) Actualmente tenho um gui com: 1- Textbox 2- botões 1º Botão uso a função OpenFileDialog para seleccionar um ficheiro existente em meu computador. O caminho desse ficheiro será apresentado no Textbox 2º Botão pretendia adicionar um Process.Start do tipo Process.Start("app.exe readfile " + textbox.text + "file.txt") este comando não da certo. Bom com o cmd do windows uso assim... app.exe readfile c:\pasta file.txt ele aqui vai ler um binário que se encontra dentro desta pasta e criar um file.txt no mesmo local do directório do app.exe com as informações. Também tentei chamar a aplicação directamente no lugar do cmd mais ou menos assim... Process.Start("app.exe readfile " + textbox.text + file.txt) Não deu certo. tentei também. Process.Start("app.exe", _ String.Format("readfile {0} {1}", TextBox1.Text + "file.txt")) Mas se criar um arquivo .bat no mesmo local do app.exe ele cria o file.txt dai eu acreditar que estou a ter dificuldades e em colocar vários argumentos em meu comando. Sei que só tenho erros aqui e muitos de vocês devem rir a brava mas eu não percebo muito disto Comprimentos Tatia
  10. Qual é a melhor maneira de fechar a nossa aplicação ? É que muitas vezes uso o Me.Close() e a aplicação realmente fecha mas se formos ao Gestor de tarefas o processo ainda está lá aberto. Portanto pergunto existe outro método melhor ? Fazer kill ao processo da aplicação? Agradeço opiniões
  11. Estou com uma dúvida referentes a emissão da última fatura em uma relação de faturas de um programa de controle de estoque no momento de sua inserção. A mensagem acima (título) aparece quando clico no botão finalizar. Deveria me mostrar a última fatura do relatório de faturas não todas, e sem a mensagem de erro. Abaixo o código. Sou amador na area. estou começando, se puderem me ajudar agradeceria muito. Segue abaixo a linha de programação: Private Sub BTN_finalizar_Click(sender As Object, e As EventArgs) Handles BTN_finalizar.Click Dim numero As Integer conectar.Open() sql = "Select * from faturas where nfatura = '" & TB_nfatura.Text & "'" Adaptar = New SqlDataAdapter(sql, conectar) tabela = New DataTable() Adaptar.Fill(tabela) numero = tabela.Rows.Count conectar.Close() obterultimoregistro() F_relfaturas.Show() 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 End Sub
  12. Select com left join em três tabelas

    Boa tarde amigos... Estou tentando criar um select para carregar dados de três tabelas como segue abaixo: Try Using strCom As FbCommand = New FbCommand("SELECT a.idCategoria, a.Data, a.Categoria, b.SubCategoria, c.Itens, a.Tipo " & _ "FROM tbCategoria a " & _ "LEFT JOIN tbSubcategoria b ON (a.Categoria = b.Categoria) " & _ "LEFT JOIN tbItens c ON (a.Categoria = c.Categoria) " & _ "GROUP BY a.Categoria, b.SubCategoria, c.Itens, a.Tipo, a.idCategoria, a.Data " & _ "ORDER BY a.Categoria, b.SubCategoria, c.Itens ASC", con) Using da As FbDataAdapter = New FbDataAdapter(strCom) Dim dt As DataTable = New DataTable("Receita") Dim ds As DataSet = New DataSet dgvFrmCategoria.Columns.Clear() da.Fill(ds) O problema e que esta duplicando dados, por exemplo Tabela A - Tabela B - Tabela C Mercado - Arroz - Tipo 1 Mercado - Arroz - Tipo 2 Saúde - Mensal O resultado deveria parecer como acima, mas está aparecendo assim: Tabela A - Tabela B - Tabela C Mercado - Arroz - Tipo 1 Mercado - Arroz - Tipo 2 Mercado - Arroz - Tipo 1 Mercado - Arroz - Tipo 2 Saúde - Mensal Duplica se tiver mais de um item na tabela B e também na tabela C Desde já agradeço a ajuda de todos.
  13. Salvar múltiplos lançamentos

    Bom dia amigos. Tenho o seguinte código para inserir registros em banco de dados: Private Sub inserirReceita() Using con As FbConnection = conectarFirebird() con.Open() Try Dim i As Integer Dim numeroParcela As Integer = txtParcelasFrmRec.Text Dim dataMovimento As Date Dim dataVencimento As Date If numeroParcela = 1 Then dataMovimento = dtpDataMovimentoFrmRec.Text dataVencimento = dtpDataVctoFrmRec.Text ElseIf numeroParcela > 1 Then dataMovimento = DateAdd(DateInterval.Month, 1, dtpDataMovimentoFrmRec.Value) dataVencimento = DateAdd(DateInterval.Month, 1, dtpDataMovimentoFrmRec.Value) End If Using strCom As FbCommand = New FbCommand("INSERT INTO tbReceita (DataMovimento, DataEfetiva, Titular, Login, NumDoc, Situacao, FormaPgto, Conta, Categoria, SubCategoria, Itens, Pagador, Valor, Obs, Parcela, Periodicidade ) " & _ "VALUES (@DataMovimento, @DataEfetiva, @Titular, @Login, @NumDoc, @Situacao, @FormaPgto, @Conta, @Categoria, @SubCategoria, @Itens, @Pagador, @Valor, @Obs, @Parcela, @Periodicidade)", con) For i = 1 To numeroParcela With strCom .Parameters.Add(New FbParameter("@DataMovimento", FbDbType.Date)).Value = dataMovimento .Parameters.Add(New FbParameter("@DataEfetiva", FbDbType.Date)).Value = dataVencimento .Parameters.Add(New FbParameter("@Titular", FbDbType.VarChar)).Value = frmLogin.txtNome.Text .Parameters.Add(New FbParameter("@Login", FbDbType.VarChar)).Value = frmLogin.cbNome.Text .Parameters.Add(New FbParameter("@NumDoc", FbDbType.BigInt)).Value = txtNumDocFrmRec.Text .Parameters.Add(New FbParameter("@Situacao", FbDbType.VarChar)).Value = cbSituacaoFrmRec.Text .Parameters.Add(New FbParameter("@FormaPgto", FbDbType.VarChar)).Value = cbFormaFrmRec.Text .Parameters.Add(New FbParameter("@Conta", FbDbType.VarChar)).Value = cbContaFrmRec.Text .Parameters.Add(New FbParameter("@Categoria", FbDbType.VarChar)).Value = cbCategoriaFrmRec.Text .Parameters.Add(New FbParameter("@SubCategoria", FbDbType.VarChar)).Value = cbSubCategoriaFrmRec.Text .Parameters.Add(New FbParameter("@Itens", FbDbType.VarChar)).Value = cbItensFrmRec.Text .Parameters.Add(New FbParameter("@Pagador", FbDbType.VarChar)).Value = txtPagadorFrmRec.Text .Parameters.Add(New FbParameter("@Valor", FbDbType.Decimal)).Value = CDec(txtValorFrmRec.Text) .Parameters.Add(New FbParameter("@Obs", FbDbType.VarChar)).Value = txtObsFrmRec.Text .Parameters.Add(New FbParameter("@Parcela", FbDbType.VarChar)).Value = numeroParcela .Parameters.Add(New FbParameter("@Periodicidade", FbDbType.VarChar)).Value = cbPeriodicidadeFrmRec.Text End With strCom.ExecuteNonQuery() strCom.Parameters.Clear() Next i End Using Catch ex As Exception MsgBox(ex.ToString) End Try End Using End Sub Já grava com o número correto de lançamentos colocados em txtParcelasFrmRec.text. Mas as datas de movimento e vencimento e número de parcelas ficam com a mesma data e o mesmo numero de parcelas, ou seja, um mês após a data informada para o primeiro vencimento e o mesmo numero de parcelas informado em txtParcelasFrmRec.text. Quando na verdade gostaria que retornasse assim: No caso de três parcelas mensais com vencimento do primeiro lançamento para 25/07/2017 Primeiro lançamento: Data Movimento: 25/07/2017 Data Vencimento: 25/07/2017 Parcela 1/3 Segundo lançamento: Data Movimento: 25/08/2017 Data Vencimento: 25/08/2017 Parcela 2/3 Segundo lançamento: Data Movimento: 25/09/2017 Data Vencimento: 25/09/2017 Parcela 3/3 Se puderem me ajudar desde já agradeço.
  14. Bom dia a todos, já a alguns dias que estou com o seguinte problema, comecei a fazer uma aplicação para gerir um grupo de pessoas, tendo como apoio um pequeno projeto que tinha feito na faculdade a uns anos atrás. Neste momento tenho o Windows Form criado, que lê os dados da minha base de dados em Acess .accdb que está na mesma pasta do projecto. Assim que o Windows Form abre consigo ver todos os dados que quero nas "Textbox", tenho botões para eliminar, gravar, novo e botões de navegação entre os vários registos que tenho na base de dados que também funcionam. Mas se eliminar algum registo ou grave algum registo, enquanto estiver o Windows Form aberto aparenta estar tudo OK mas assim que fecho o Windows Form ele não grava nada na base de dados e fica como se não tivesse feito nada. Tenho o Visual Studio 2012, não se se preciso de um OleDbDataAdapter ou será que já o tenho??? o meu conhecimento de .Net está um pouco esquecido... Apenas sei que já criei um DataSet, um BindingSource e umTableAdapter da tabela que me convém, e com isso aparecem-me os dados nas texbobox através de (ter editado as databindings dessas mesmas texbox na secção de texto, usando o dataset que tinha criado e por ai chegar a tabela que me convém) tirando isso não tenho mais nada, falta-me alguma coisa para que possa eliminar dados e gravar dados na base de dados? O código que tenho no botão de eliminar registo é: (que no meu projeto da faculdade funciona muito bem, neste é que não): Private Sub btnPNCDelete_Click(sender As Object, e As EventArgs) Handles btnPNCDelete.Click If MsgBox("Delete Record?", MsgBoxStyle.Question + MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2) = MsgBoxResult.Yes Then With Me.BindingContext(Me.Uniforms_SoftwareDataSet, "PNC") .EndCurrentEdit() .RemoveAt(.Position) Me.PNCTableAdapter.Update(Me.Uniforms_SoftwareDataSet.GetChanges(DataRowState.Deleted)) Me.Uniforms_SoftwareDataSet.AcceptChanges() End With Else Me.Uniforms_SoftwareDataSet.RejectChanges() End If End Sub O código do botão de gravar é: Private Sub Save_Records() With Me.BindingContext(Me.Uniforms_SoftwareDataSet, "PNC") .EndCurrentEdit() If Uniforms_SoftwareDataSet.HasChanges Then Try If MsgBox("Record has changes!" & vbCrLf & "Save changes?", MsgBoxStyle.Question + MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2) = MsgBoxResult.Yes Then Me.PNCTableAdapter.Update(Uniforms_SoftwareDataSet.GetChanges()) Uniforms_SoftwareDataSet.AcceptChanges() Else Uniforms_SoftwareDataSet.RejectChanges() End If Catch ex As Exception MsgBox(ex.Message) End Try End If End With End Sub Eu tenho uma vaga ideia de que seria Me.OleDbDataAdapter.Update(Uniforms_SoftwareDataSet.GetChanges()) em vez de Me.PNCTableAdapter.Update(Uniforms_SoftwareDataSet.GetChanges()) ?? Desde já muito obrigado. Cumprimentos,
  15. Tendo varias textbox num form como posso fazer algo do tipo num ciclo for (for j as integer = 1 to x ) textbox(x).text = textbox1.text ?? obg.
  16. Boas, Estou a desenvolver uma aplicação para gestão de restaurante em VB.NET, mas tive na ideia de agora que o sistema de login da minha aplicação possa acessar a base de dados de um site WordPress e seja possível efetuar login na minha aplicação, com os utilizadores existentes no site em WordPress. Eu sei fazer a ligação, o problema é que as passwords dos utilizadores do WordPress na base de dados estão encriptadas, e não vejo qual a melhor maneira para desencriptar essas passwords na minha aplicação em VB.NET. O objetivo era a minha aplicação ter interação com o site e por exemplo, se criasse novos funcionários no site, eles fossem acedidos através da aplicação e a gestão dos mesmos ser feita no site em WordPress.
  17. Bom dia amigos! Estou a ficar paranoico com isto, quero saber o seguinte e não encontro função para tal. Tenho a string: joao.maria@dominio.pt e se (no caso a pwd) tiver a string: j#%joao93ffM;# quero saber quando isso acontece, porque "joao" existe no endereço de email. Nem com string.compare, .contains, nada! Não faço a minima como fazer, alguem tem ideia?
  18. Boa tarde, na actualização 9.15 do primavera deixou de existir a opção Integrador Plataforma = New Interop.StdPlatBS900.StdPlatBS Plataforma.AbrePlataformaEmpresaIntegrador(Motor.Contexto.CodEmp, Nothing, ObjConfApl, Interop.StdBE900.EnumTipoPlataforma.tpProfissional) Passando só a existir Plataforma.AbrePlataformaEmpresa(Motor.Contexto.CodEmp, Nothing, ObjConfApl, Interop.StdBE900.EnumTipoPlataforma.tpProfissional, ObjConfApl.PwdUtilizador) Com mais opções de campos para preencher como se pode verificar. o meu código: Class '################################################################## Public Class ClassUtil Shared Plataforma As Interop.StdPlatBS900.StdPlatBS Shared ObjConfApl As Interop.StdPlatBS900.StdBSConfApl Shared Function GetConnactionString(ByVal Motor As Interop.ErpBS900.ErpBS) As String Dim connString As String = String.Empty Try InstanciaPlataforma(Motor) connString = Plataforma.BaseDados.DaConnectionString("PRI" & Plataforma.Contexto.Empresa.CodEmp, Plataforma.Contexto.Instancia) Dim startIndex As Integer = connString.IndexOf("User") connString = connString.Substring(startIndex, connString.Length - startIndex) Plataforma.FechaPlataformaEx() Return connString Catch ex As Exception Throw End Try End Function Shared Function InstanciaPlataforma(ByVal Motor As Interop.ErpBS900.ErpBS) As Interop.StdPlatBS900.StdPlatBS Try ObjConfApl = New Interop.StdPlatBS900.StdBSConfApl Plataforma = New Interop.StdPlatBS900.StdPlatBS 'Plataforma.AbrePlataformaEmpresaIntegrador() ObjConfApl.AbvtApl = "GCP" 'm_strApl ObjConfApl.Instancia = Motor.Contexto.Instancia ObjConfApl.Utilizador = Motor.Contexto.UtilizadorActual ObjConfApl.PwdUtilizador = Motor.Contexto.PasswordUtilizadorActual 'varios testes de ligação ###este já não é valido para a versão 9.15 apenas para a 8.10 e funciona na 8.10############# 'Plataforma.AbrePlataformaEmpresaIntegrador(Motor.Contexto.CodEmp, Nothing, ObjConfApl, Interop.StdBE900.EnumTipoPlataforma.tpProfissional) '###############Algumas opções válidas que não estão a funcionar################## 'varios testes 'Plataforma.AbrePlataformaEmpresa(Motor.Contexto.CodEmp, Nothing, ObjConfApl, Interop.StdBE900.EnumTipoPlataforma.tpProfissional, ObjConfApl.PwdUtilizador) 'varios testes Plataforma.AbrePlataformaPRIEMPRE(Nothing, ObjConfApl, Interop.StdBE900.EnumTipoPlataforma.tpProfissional, ObjConfApl.PwdUtilizador) 'varios testes Return Plataforma Catch ex As Exception Throw New Exception("InstanciaPlataforma:" & ex.Message) End Try End Function End Class '##################################################################################### Se colocar, na opção de Password se colocar “ObjConfApl.PwdUtilizador” ou qualquer outra password em string “xpto” dá erro de password da plataforma errada. Se colocar “nothing” na password, dá erro de não ter licença nos motores, confirmei e tenho a licença técnica e a licença dos motores está ativa. Se alguem conseguir ajudar, agradecia muito Obrigado, Desde já Se este não era o local correcto, a colocar a questão, porfavor indiquem me onde posso colocar. Obrigado
  19. Alguém me sabe dizer porque me aparece este erro quando tento guardar algo na base de dados?? ERROR [42000] [Microsoft] [SQL Server]Incorrect syntax near 'Folha_Caixa'.
  20. ComboBox

    É possível bloquear apenas uma ou mais das opções de uma combobox?
  21. Como fazer dispose da imagem

    Boa noite, Ao carregar o meu SplashScreen eu uso o seguinte condigo. Agora queria que fizesse dispose para que a imagem não fique sendo utilizada pela form para poder ser removida. A imagem vai funcionar como se fosse cache so que dá me erro porque ela esta sempre aberta enquanto o programa estiver a ser usado. Try If System.IO.File.Exists("Data Mod\Background.jpg") Then BackgroundImage = System.Drawing.Bitmap.FromFile("Data Mod\Background.jpg") End If Catch End Try
  22. Ordem dos items

    Boa noite, Ao abrir uma Form onde contem a lista de Items uso o seguinte código... Try sqL = "SELECT ItemNo, itemCode, iDescription, ISize, StocksOnHand, UnitPrice FROM Item Order By iDescription" ConnDB() cmd = New OleDbCommand(sqL, conn) dr = cmd.ExecuteReader(CommandBehavior.CloseConnection) dgw.Rows.Clear() Do While dr.Read = True dgw.Rows.Add(dr(0), dr(1), dr(2), dr(3), dr(4), dr(5)) Loop Catch ex As Exception MsgBox(ex.Message) Finally cmd.Dispose() conn.Close() End Try Alguem sabem como faço para os itens serem abertos e apresentados por ordem crescente do ID? É que eles estão por ordem no ficheiro da base de dados.
  23. Estou a criar um aplicação em vb.net já tenho uma base de dados sql ligada á aplicação e funciona perfeitamente mas a outra base de dados que pertence ao phc que preciso de ler na aplicaçao quando executo o programa dá me o seguinte erro "ERROR [28000] [Microsoft] [SQL Server]Login failed for user 'sa'. ERROR [28000] [Microsoft][SQL Server Native Client 11.0][SQL Server]Login failed for user 'sa'." obg.
  24. Abrir form de pesquisa

    Boa noite, Tenho aqui um problema e vou tentar explicar. Tenho um programa de base de dados para fazer o controlo de stock da minha loja. Ao abrir o programa aparece a Form principal depois adiciono Adicionar produtos ou Editar e abre a Form para editar/adicionar e por fim clico em pesquisar ara ver a lista de produtos onde posso dar duplo clique e volta á Form de editar/adicionar para editar o produto e ver a sua respetiva informação. Deixo o código a baixo para abrir a informação do produto para poder ser editado. Private Sub dgw_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgw.CellDoubleClick If frmItem.search = True Then frmItem.txtItemNo.Text = dgw.CurrentRow.Cells(0).Value frmItem.search = False Me.Close() End If If frmPOS.posSearch = True Then frmPOS.txtSearch.Text = dgw.CurrentRow.Cells(0).Value frmPOS.posSearch = False Me.Close() End If End Sub Agora vem o difícil. Eu criei um botão na Form principal para ir diretamente para a Form de pesquisa de produtos. Mas quando clico num produto não me abre a Form para poder editar esse mesmo produto. Alguem pode dar uma ajudinha? Desde já agradeço pela ajuda
  25. Copiar pasta com ProgressBar

    Boa noite, Para copiar ficheiros apresentado ProgressBar eu uso o seguinte código. Como teria de fazer para copiar pastas? Try Dim TF As New IO.FileStream("Repairs\db", IO.FileMode.Open) Dim TT As New IO.FileStream("C:\Users\" + NameUser.Text + "\Dropbox\DB Backup\Repair\" + Data.Text, IO.FileMode.Create) Dim len As Long = TF.Length - 1 Dim buffer(1024) As Byte Dim byteCFead As Integer While TF.Position < len byteCFead = (TF.Read(buffer, 0, 1024)) TT.Write(buffer, 0, byteCFead) ProgressBar1.Value = CInt(TF.Position / len * 100) Application.DoEvents() End While TT.Flush() TT.Close() TF.Close() Catch ex As Exception End Try
×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade