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...

7518 resultados

  1. Estou a tentar excluir um registro no banco de dados mas estou recebendo a mensagem 42883 operator does not exist: character varying = integer Public Class Caixa Public iRecibo As Integer Public Property Recibo() As Integer Get Return iRecibo End Get Set(ByVal value As Integer) iRecibo = value End Set End Property Public Function excluir() As Boolean Dim cd As New npgSqlCommand Dim query As String = "" Try query &= " DELETE FROM Caixa " query &= " WHERE Recibo = " & iRecibo.ToString() & " " cd.CommandText = query cd.CommandType = CommandType.Text If Conexao.NonQuery(cd) Then sStatus = "O Recibo " & iRecibo & " foi excluído com sucesso!" Return True End If Catch ex As Exception sStatus = ex.Message End Try Return True End Function Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Dim c As New Caixa() Try If TextBox1.Text <> "" Then c.Recibo = CInt(TextBox1.Text) If c.excluir() Then MessageBox.Show(c.Status) CaixaLoad() Else MessageBox.Show(c.Status) End If Else MessageBox.Show("Nenhum registro selecionado!") End If Catch ex As Exception 'MessageBox.Show(ex.Message) End Try End Sub
  2. Erro com detecção de listbox

    Olá tudo bem? Sou brasileiro e também novo no Forum, fui pesquisando pela internet, e encontrei este forum para relatar meu grave problema, estou criando um software que adiciona certos items a uma Listbox por meio da função Split, quando feito o sistema, fui criar um sistema de Login por meio de verificação de que havia a existencia de tal "Chave de Acesso", mas quando criei o codigo, simplesmente o codigo de mesmo conteúdo era ignorado, pesquisei ainda mais e encontrei um novo codigo que fazia isso de modo muito mais rápido, com somente uma função, "FindString", também testei, quando testei tive o mesmo erro, o primeiro item da lista, ele podia ser detectado(Ja acontecia isso antes), mas a partir do segundo item em diante ele não era detectavel, e dava resultado negativo, que dizia que não havia a sua presença, tentei rever os itens da listbox varias vezes, puxei para outra textbox o item para ver se não era um erro de caractere que havia ficado ao longo do processo de Split, nada, tentei ver novos codigos, criar novos processos, nada, então por fim, vim procurar a ajuda de algum de vocês
  3. Boa Tarde. Tenho um problema em vb.net, tenho uma textbox em que apenas pode ser permitido colocar letras, usar o espaço e o backspace e mais nada. Alguém tem alguma ideia?
  4. Boa Noite ! Estou com problemas ao pesquisar fotos armazenadas no banco de dados MYSQL no PHPADMIN no picturebox e no datagridview <>Imports System.IO Imports System.Data.Odbc Imports System.Drawing.Imaging Public Class FrmAlunos_Cadastrados Private Sub listar() filtrar("select * from aluno", "aluno") DataGridView1.DataSource = dados DataGridView1.DataMember = "aluno" olecon.Close() End Sub Private Sub btnpesquisar_Click(sender As Object, e As EventArgs) Handles btnpesquisar.Click Dim comando = "select * from aluno where cod_rm =" + txtra.Text pesquisar(comando) If guarda.Read() Then txtra.Text = guarda(1).ToString() Dim bytePicData() As Byte bytePicData = guarda.Item("foto") Dim PicMemStream As New System.IO.MemoryStream(bytePicData) PictureBox1.Image = Image.FromStream(PicMemStream) Else MsgBox("RM não localizado") txtra.Clear() PictureBox1.Image = Nothing End If guarda.Close() olecon.Close() End Sub Private Sub btnlistar_Click(sender As Object, e As EventArgs) Handles btnlistar.Click listar() olecon.Close() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnhome.Click FrmFuncionários.Show() Me.Close() End Sub Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick Dim linha = DataGridView1.CurrentCellAddress.Y txtra.Text = DataGridView1(1, linha).Value.ToString() Dim comando = "select * from aluno where cod_rm =" + txtra.Text pesquisar(comando) If guarda.Read() Then Dim bytePicData() As Byte bytePicData = guarda.Item("foto") "o erro ocorre aqui `erro: An unhandled exception of type 'System.OverflowException' occurred in System.Data.dll Additional information: Operação aritmética resultou em um estouro." Dim PicMemStream As New System.IO.MemoryStream(bytePicData) PictureBox1.Image = Image.FromStream(PicMemStream) End If olecon.Close() guarda.Close() End Sub End Class</> ALGUÉM PODE ME AJUDAR? Obs: o banco de dados está armazenado no php admin atráves do programa vertrigo e da conexão mysql ODBC
  5. Consulta retorna Erro

    Um bem Aja a Todos com votos de BOAS FESTAS Não consigo saber o que está mal ou falta no código abaixo que apresenta o erro An unhandled exception of type 'System.InvalidOperationException' occurred in System.Data.dll Additional information: A propriedade ConnectionString não foi inicializada. Agradeço uma ajuda Imports System Imports System.IO Imports System.Net Imports System.Data Imports System.Data.OleDb Imports System.Text.RegularExpressions Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 'Verifica se a data do calendario é a data do sorteio Dim VerificarDataSorteio As Date = DataDateTimePicker.Value Dim Teste As Byte Teste = VerificarDataSorteio.DayOfWeek If Teste <> 5 And Teste <> 2 Then MsgBox("Está fora da Data do Sorteio" & vbCrLf & "Actualize a data no calendario", MsgBoxStyle.Information, "Verificar Data do Sorteio") Exit Sub End If DataSorteio = DataDateTimePicker.Value ' Dim Sorteio As String ' Label20.Text = Format(DataSorteio, "dd/MM/yyyy") Label20.Text = DataSorteio 'SELECT sobre Apostas para Sortear Dim da As OleDbDataAdapter Dim ds As DataSet DataSorteio = DataDateTimePicker.Value Dim Sorteio = Format(DataSorteio, "dd/MM/yyyy") ' Texto de ligação à base de dados Dim ConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Application.StartupPath & "GuardarResultados.accdb" ' Cria uma nova ligação à base de dados Dim connection As New OleDbConnection(myConnectionString) ' Dim myconnectionString As String Dim SQL As String = "SELECT * FROM NumJogadosEuromilhoes WHERE Data = '" & Sorteio & "'" da = New OleDbDataAdapter(SQL, connection) ' Cria um novo DataSet, ou seja, uma representação em memória da informação ds = New DataSet ' Coloca a informação da tabela definida no DataSet da.Fill(ds, "NumJogadosEuromilhoes") ' Define que a fonte de dados da DataGridView é a nossa DataSet ' criando automáticamente as colunas e linhas de dados Me.dgridJogadosEuromilhoes.DataSource = ds.Tables("NumJogadosEuromilhoes") ' Limpa a ligação à base de dados. Não é necessário fechar a ligação ' porque esta não foi aberta através do comando .Open() connection = Nothing If dgridJogadosEuromilhoes.RowCount = 1 Then MsgBox("Não exitem Apostas nesta Data", MsgBoxStyle.Information, "Verificar Existência de Apostas") Exit Sub End If 'NS1TextBox.Focus() DataDateTimePicker.Focus() End Sub
  6. Imprimir ListView em VB.NET

    Pessoal, estou precisando de uma ajuda para imprimir um ListView com VB.NET. Estou utilizando o visual studio 2013, e desenvolvendo um programa para imprimir um cupom não fiscal em impressoras térmicas. O problema é que já pesquisei muito na internet e não encontrei como fazer a impressão da lista das compras do cliente, que gero no ListView com 4 colunas, Qtde, Produto, Preço unitário e Preço total. Agradeço se alguém puder me ajudar.
  7. Botão

    Boa tarde estou com um projeto aqui , porem me deparei com um problema preciso clicar em um botão em uma pagina , porem na pagina tem 2 botoes iguais entao não consegui clicar no certo codigo da pagina <form action="https://site.com/empresa" method="POST" target="_self"> <li class="consulta"> <input type="submit" value="ok" class="inputBRsub" /></li> </ul> </fieldset</form> <form action="https://site.com/pessoa/" method="POST" target="_self"> <li class="consulta"> <input type="submit" value="ok" class="inputBRsub" /></li> </ul> </fieldset</form> Meu codigo do vb esta assim Dim inputs As HtmlElementCollection = Webb.Document.GetElementsByTagName("input") For Each Controle As HtmlElement In inputs Try If Controle.OuterHtml.Contains("value=""ok") Then Controle.InvokeMember("click") End If Catch ex As Exception End Try Next Obrigado
  8. Print Datagrid

    Boas, tenho uma aplicação que me permite imprimir os dados da datagrid, mas hoje deparei me com este erro: Isto só acontece quando tenho um determinado numero de linhas, ou seja, isto de momento só acontece quando tenho 66 registos, se acrescentar ou retirar um registo já não da erros, alguém consegue identificar o porquê? Deixo o código: Dim mRow As Integer = 0 Dim newpage As Boolean = True Private Sub PrintDocument1_PrintPage(sender As Object, e As PrintPageEventArgs) Handles PrintDocument1.PrintPage ' sets it to show '...' for long text Dim fmt As StringFormat = New StringFormat(StringFormatFlags.LineLimit) fmt.LineAlignment = StringAlignment.Center ' fmt.Trimming = StringTrimming.EllipsisCharacter Dim y As Int32 = e.MarginBounds.Top Dim rc As Rectangle Dim x As Int32 Dim h As Int32 = 0 Dim row As DataGridViewRow ' print the header text for a new page ' use a grey bg just like the control If newpage Then row = dg_produtos.Rows(mRow) ' --> Erro x = e.MarginBounds.Left rc = New Rectangle(x, y, dg_produtos.Size.Width, Label1.Size.Height) e.Graphics.FillRectangle(Brushes.Transparent, rc) e.Graphics.DrawRectangle(Pens.Transparent, rc) e.Graphics.DrawString("Listagem de " & Label1.Text, Label1.Font, Brushes.Black, rc, fmt) y += 35 For Each cell As DataGridViewCell In row.Cells ' since we are printing the control's view, ' skip invidible columns If cell.Visible Then rc = New Rectangle(x, y, cell.Size.Width, cell.Size.Height) e.Graphics.FillRectangle(Brushes.LightGray, rc) e.Graphics.DrawRectangle(Pens.Black, rc) ' reused in the data pront - should be a function Select Case dg_produtos.Columns(cell.ColumnIndex).DefaultCellStyle.Alignment Case DataGridViewContentAlignment.BottomRight, DataGridViewContentAlignment.MiddleRight fmt.Alignment = StringAlignment.Far rc.Offset(-1, 0) Case DataGridViewContentAlignment.BottomCenter, DataGridViewContentAlignment.MiddleCenter fmt.Alignment = StringAlignment.Center Case Else fmt.Alignment = StringAlignment.Near rc.Offset(2, 0) End Select e.Graphics.DrawString(dg_produtos.Columns(cell.ColumnIndex).HeaderText, dg_produtos.Font, Brushes.Black, rc, fmt) x += rc.Width h = Math.Max(h, rc.Height) End If Next y += h End If newpage = False ' now print the data for each row Dim thisNDX As Int32 For thisNDX = mRow To dg_produtos.RowCount - 1 ' no need to try to print the new row If dg_produtos.Rows(thisNDX).IsNewRow Then Exit For row = dg_produtos.Rows(thisNDX) x = e.MarginBounds.Left h = 0 ' reset X for data x = e.MarginBounds.Left ' print the data For Each cell As DataGridViewCell In row.Cells If cell.Visible Then rc = New Rectangle(x, y, cell.Size.Width, cell.Size.Height) ' SAMPLE CODE: How To ' up a RowPrePaint rule 'If Convert.ToDecimal(row.Cells(5).Value) < 9.99 Then ' Using br As New SolidBrush(Color.MistyRose) ' e.Graphics.FillRectangle(br, rc) ' End Using 'End If e.Graphics.DrawRectangle(Pens.Black, rc) Select Case dg_produtos.Columns(cell.ColumnIndex).DefaultCellStyle.Alignment Case DataGridViewContentAlignment.BottomRight, DataGridViewContentAlignment.MiddleRight fmt.Alignment = StringAlignment.Far rc.Offset(-1, 0) Case DataGridViewContentAlignment.BottomCenter, DataGridViewContentAlignment.MiddleCenter fmt.Alignment = StringAlignment.Center Case Else fmt.Alignment = StringAlignment.Near rc.Offset(2, 0) End Select If row.Cells(2).Value <= 0 Then e.Graphics.DrawString(cell.FormattedValue.ToString(), dg_produtos.Font, Brushes.Red, rc) Else e.Graphics.DrawString(cell.FormattedValue.ToString(), dg_produtos.Font, Brushes.Black, rc) End If x += rc.Width h = Math.Max(h, rc.Height) End If Next y += h ' next row to print mRow = thisNDX + 1 If y + h > e.MarginBounds.Bottom Then e.HasMorePages = True ' mRow -= 1 causes last row to rePrint on next page newpage = True Return End If Next End Sub
  9. Datagrid com dataset de csv

    Boas, Peço a vossa ajuda experiente ! Sou muito verde nestas coisas da programação, e ando a aprender á base de exemplos que vejo o código. Eu não sei, exactamente como fazer a coisa acontecer, ando a pesquisar por guias e informações que mostrem um exemplo a funcionar . Mas basicamente o conceito base será este. Utilizar o datagrid que tera acesso a uma base dados access, com 2 campos. Artigo | Valor 1; 1000 2; 500 3: 20 4; 100 A esse datagrid/form quero adicionar uma função de importar um ficheiro CSV, que tem os dados: 1; 1200 3; 50 No data grid apenas vai aparecer as colunas com os dados: Artigo | Valor(em base dados) | Valor 2 (do CSV) | Diferença 1; 1000; 1200; 200 3;20;50; 30 e e depois a função de salvar os dados das colunas Valor2 na base dados acces. Podem indicar o caminho certo, ou algo em que eu veja o funcionamento ? Obrigado, Cumprimentos,
  10. DatagridView e checkbox

    Bom dia, estou a fazer a leitura das linhas da dgv, mas por algum motivo a checkbox que é seleccionada por ultimo não retorna o valor true, lê como se fosse false. Dim indice As Integer For indice = 0 To dgvAVenc.RowCount - 1 If dgvAVenc.Rows(indice).Cells("colEmail").Value = true Then ... envia email end if Será algum propriedade da grid? É a primeira vez que estou a usar este tipo de grid e qualquer orientação é bem vinda. Também já tentei assim: For Each row As DataGridViewRow In Me.dgvAVenc.Rows If row.Cells("colEmail").Value = True Then . . . (inclusive já alterei tambem <>0....) Obrigada pela vossa atenção..
  11. Listar SeriesChartType combobox

    Como listar SeriesChartType no combobox eu sei que vou ter que fazer um loop mais não tenho noção de como listar SeriesChartType è como essa imagem que queria ficar no combobox
  12. Copiar ficheiros usando PenDrive

    Boa tarde, Alguem para dar uma ajuda, Numa pendrive tenho uma pasta (Files) com um ficheiro Teste.txt, queria copiar esse ficheiro para o D: por exemplo. Colocando os caminhos e as letras das unidades é facil. Agora a minha dúvida é em relação a letra da unidade da pendrive. Nao da para definir uma letra porque em Pcs diferentes sao atribuidas letras diferentes. Como posso fazer? Obrigado
  13. Consulta entre tabelas

    Pessoal e o seguinte tenho a tabela cliente e tabela parcelasvencida estou fazendo a busca pela data de vencimento passando os respectivo id para tabbela cliente buscando os cliente somando os valores conforme os id passado Private Sub CarregaVendas() Dim dr As OleDbDataReader = Nothing Using con As OleDbConnection = GetConnection() Try con.Open() Dim sql As String = "" dtinicio = dtpInicio.Value.ToString dtfim = dtpFim.Value.ToString sql = "SELECT CodCliente, NomeCliente, ValorParc FROM tblVendasParceladas WHERE DateValue(DataVenc) < DateValue('" & dtinicio & "') AND DateValue(DataVenc) < DateValue('" & dtfim & "')" ' AND (TIPO='A Prazo') ORDER BY ID" Dim cmd As OleDbCommand = New OleDbCommand(sql, con) Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd) Dim dt As DataTable = New DataTable da.Fill(dt) dgvTodasVencidas.DataSource = dt For i = 0 To dgvTodasVencidas.Rows.Count - 1 dgvTodasVencidas.CurrentCell = dgvTodasVencidas.Rows(i).Cells(0) dgvTodasVencidas.CurrentRow.Cells(2).Value = dgvTodasVencidas.CurrentRow.Cells(2).Value Dim sql1 As String = "" sql1 = "SELECT CodCliente, Nome, Devedor FROM tblCliente WHERE CodCliente=" & CInt(dgvTodasVencidas.CurrentRow.Cells(0).Value) Dim cmd1 As OleDbCommand = New OleDbCommand(sql1, con) Dim da1 As OleDbDataAdapter = New OleDbDataAdapter(cmd1) Dim dt1 As DataTable = New DataTable da1.Fill(dt1) DataGridView1.DataSource = dt1 For p = 0 To DataGridView1.Rows.Count - 1 dgvTodasVencidas.CurrentRow.Cells(0).Value = DataGridView1.CurrentRow.Cells(0).Value dgvTodasVencidas.CurrentRow.Cells(1).Value = DataGridView1.CurrentRow.Cells(1).Value dgvTodasVencidas.CurrentRow.Cells(2).Value = dgvTodasVencidas.CurrentRow.Cells(2).Value Next Next Catch ex As Exception MsgBox(ex.Message) Finally con.Close() End Try End Using End Sub
  14. Tenho uma tabela de Pro_Process(Processos) que contem o Code_pro e description_pro. Ao criar um novo processo não está a verificar se existe ou não aquele Code_Pro na base de dados. Eu preciso que ao tentar usar novamente aquele código ele emita uma msg de erro. Como posso fazer isto?
  15. Loading Form

    Boas, Preciso de ajuda para criar um Loading screen quando estou a carregar dados em datagrids, penso que nestes casos utiliza-se o background worker mas como nunca trabalhei com este componente estou um bocado as escuras. Ora bem eu tenho o seguinte: tenho vários botoes no formulario principal que quando são clicados apresentam um usercontrol no panel2 do splitcontainer (no form principal) da seguinte forma: Private Sub btn_produtos_Click(sender As Object, e As EventArgs) Handles btn_produtos.Click exibir_userControl(1) End Sub Private Sub exibir_userControl(i As Integer) Select Case i Case 1 If existe_controls() = True Then SplitContainer1.Panel2.Controls.Clear() produtos = New uc_produtos produtos.Size = SplitContainer1.Panel2.Size SplitContainer1.Panel2.Controls.Add(produtos) Else produtos = New uc_produtos produtos.Size = SplitContainer1.Panel2.Size SplitContainer1.Panel2.Controls.Add(produtos) End If Case 2 If existe_controls() = True Then SplitContainer1.Panel2.Controls.Clear() entradas = New uc_entradas entradas.Size = SplitContainer1.Panel2.Size SplitContainer1.Panel2.Controls.Add(entradas) Else entradas = New uc_entradas entradas.Size = SplitContainer1.Panel2.Size SplitContainer1.Panel2.Controls.Add(entradas) End If Case 3 If existe_controls() = True Then SplitContainer1.Panel2.Controls.Clear() saidas = New uc_saidas saidas.Size = SplitContainer1.Panel2.Size SplitContainer1.Panel2.Controls.Add(saidas) Else saidas = New uc_saidas saidas.Size = SplitContainer1.Panel2.Size SplitContainer1.Panel2.Controls.Add(saidas) End If Case 4 If existe_controls() = True Then SplitContainer1.Panel2.Controls.Clear() maquinas = New uc_maquinas maquinas.Size = SplitContainer1.Panel2.Size SplitContainer1.Panel2.Controls.Add(maquinas) Else maquinas = New uc_maquinas maquinas.Size = SplitContainer1.Panel2.Size SplitContainer1.Panel2.Controls.Add(maquinas) End If End Select End Sub no load do usercontrol carrego a datagrid do mesmo: Private Sub uc_produtos_Load(sender As Object, e As EventArgs) Handles MyBase.Load carregar_produtos(dg_produtos) txt_pesquisa.AutoCompleteCustomSource = produtos() End Sub o procedimento para carregar as datagrids está num módulo à parte. Agora tenho um form loading que gostava que fosse apresentado enquando as datagrids dos usercontrol's estão a ser preenchidas ou quando o user control está a ser carregado, não sei qual será a melhor opção. Como devo fazer? Cumpts.
  16. GetAsyncKeyState

    Boa noite, Precisava de uma simples ajuda no seguinte: Com o código seguinte detecta qualquer tecla pressionada, e inicia o Timer2. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick For i = 1 To 255 Dim Resultado = GetAsyncKeyState(i) If Resultado = -32767 Then Timer2.Start End If Next i End Sub Agora queria que quando a tecla V fosse pressionada, e o Timer2.stop For i = 86 To 86 'Key V result = 0 result = GetAsyncKeyState(i) If result = -32767 Then Timer2.Stop() End If Next i Não esta a funcionar porque no código de detectar todas as teclas, e a tecla V também, esta incluída. Tinha que ser um exceção da tecla V. Obrigado
  17. Esta 'tá difícil... Alguém sabe como posso dar a volta à seguinte situação. Numa tabela de base de dados (meses_quotas_condominos) pretendo que a matriz inicial dum ano seja: a) Todos os meses com EstadoPagamento = "-" b) CondominoID = 1 to @variavel (23 por exemplo) c) Cada mes tem nomenclatura obrigatória na seguinte sequência: "NrMes:NomeMes", exemplos: 01:JANEIRO; 02:FEVEREIRO;...12:DEZEMBRO Tentei: BEGIN DECLARE CondominoID INT SET CondominoID = 1 DECLARE NrMes INT SET NrMes = 01 DECLARE NomeMes = Monthname() WHILE CondominoID < 23 DO While NrMes < 12 DO INSERT INTO meses_quotas_condominos (MesesID,CondominoID, MES, Valor, EstadoPagamento) VALUES (DEFAULT,CondominoID,'@NrMes:@NomeMes(@NrMes)','0','-'); Set NrMes =+ 1 END while set CondominoID =+ 1 End while Estou bloqueado no Statment DECLARE. Antecipadamente grato, Jose
  18. Cairo Dock

    è possivel fazer um cairo dock dentro do mdiparent ?
  19. Pessoal, tenho um form com uma picturebox que contem um gif de loading. Estou tentando fazer com que antes de executar um método ele exiba essa imagem de carregando e feche quando terminar. ele até funciona mas em determinado momento conforme o uso ele me retorna o erro: An unhandled exception of type 'System.Threading.ThreadAbortException' occurred in System.Drawing.dll Additional information: O thread estava sendo anulado. Public Class clsModoCarregando Dim FrmLoading As New Loading Dim trdelegate As New ThreadStart(AddressOf carregarFormLoading) Dim trd As New Thread(trdelegate) Private Sub carregarFormLoading() Try FrmLoading.ShowDialog() Catch ex As ThreadAbortException Thread.ResetAbort() End Try End Sub Public Sub ExibirLoad() If Not trd.IsAlive Then trd.Name = "threadCarregando" trd.IsBackground = True trd.Start() End If End Sub Public Sub FecharLoad() If trd.IsAlive Then trd.Abort() trd.Join() End If End Sub End Class 'evento do botao pesquisar do form Private Sub btnPesquisar_Click(sender As Object, e As EventArgs) Handles btnPesquisar.Click Dim ModoCarregando As New Ambiente.clsModoCarregando If lstConsulta.Items.Count > 0 Then ModoCarregando.ExibirLoad() dtgPesquisa.DataSource = insPesquisa.pesquisar(lstConsulta, dtNomesPesquisa.Rows(0)("Tabela")) dtgPesquisa.DataMember = dtNomesPesquisa.Rows(0)("Tabela") ModoCarregando.FecharLoad() Else If txtValorPesquisa.Text = String.Empty Then MsgBox("informe o valor a ser pesquisado.", vbInformation) txtValorPesquisa.Focus() Else MsgBox("Adicione a consulta antes de pesquisar.", vbInformation) btnAdicionar.Focus() End If End If End Sub
  20. DropDownList com multipla seleção

    Tenho uma tabela defeitos e uma de processos, sendo que um defeito pode ter um ou vários processos. Por enquanto tenho a funcionar uma dropdownlist para um defeito, um processo, que alterações preciso fazer para poder seleccionar varios processos, Estou a usar vb.net segue o codigo abaixo: ' GET: DEF_DEFECT/Create Function Create() As ActionResult PopProcessDropDownList() Return View() End Function ' POST: DEF_DEFECT/Create 'To protect from overposting attacks, please enable the specific properties you want to bind to, for 'more details see http://go.microsoft.com/fwlink/?LinkId=317598. <HttpPost()> <ValidateAntiForgeryToken()> Function Create(<Bind(Include:="CODE_DEF,DESCRIPTION_DEF")> ByVal dEF_DEFECT As DEF_DEFECT) As ActionResult If ModelState.IsValid Then db.DEF_DEFECT.Add(dEF_DEFECT) Dim processSelected As String = Request.Form("ProcessesList").ToString() UpdateDefectProcess(dEF_DEFECT, processSelected) db.SaveChanges() Return RedirectToAction("Index") End If Return View(dEF_DEFECT) End Function ' GET: DEF_DEFECT/Edit/5 Function Edit(ByVal id As String) As ActionResult If IsNothing(id) Then Return New HttpStatusCodeResult(HttpStatusCode.BadRequest) End If Dim dEF_DEFECT As DEF_DEFECT = db.DEF_DEFECT.Find(id) If IsNothing(dEF_DEFECT) Then Return HttpNotFound() End If PopulateProcessesDropDownList(dEF_DEFECT.PRO_PROCESS) Return View(dEF_DEFECT) End Function Sub PopProcessDropDownList() Dim listSelectListItems As List(Of SelectListItem) = New List(Of SelectListItem) For Each p As PRO_PROCESS In db.PRO_PROCESS Dim selectItem As SelectListItem = New SelectListItem() selectItem.Text = p.CODE_PRO listSelectListItems.Add(selectItem) Next ViewBag.ProcessCode = listSelectListItems End Sub Sub PopulateProcessesDropDownList(selectedprocesses As Object) ' Dropdown Lists Dim allProcesses = From s In db.PRO_PROCESS Order By s.CODE_PRO Select s.CODE_PRO, s.DESCRIPTION_PRO Distinct ViewBag.PList = New SelectList(allProcesses, "CODE_PRO", "CODE_PRO", selectedValue:=selectedprocesses) End Sub ' POST: DEF_DEFECT/Edit/5 'To protect from overposting attacks, please enable the specific properties you want to bind to, for 'more details see http://go.microsoft.com/fwlink/?LinkId=317598. <HttpPost()> <ValidateAntiForgeryToken()> Function Edit(<Bind(Include:="CODE_DEF,DESCRIPTION_DEF")> ByVal dEF_DEFECT As DEF_DEFECT) As ActionResult If ModelState.IsValid Then Dim processToUpdate = db.DEF_DEFECT _ .Include(Function(i) i.PRO_PROCESS) _ .Where(Function(i) i.CODE_DEF = dEF_DEFECT.CODE_DEF) _ .Single() Dim processSelected As String = Request.Form("ProcessesList").ToString() UpdateDefectProcess(processToUpdate, processSelected) db.Entry(processToUpdate).State = EntityState.Modified db.SaveChanges() Return RedirectToAction("Index") End If Return View(dEF_DEFECT) End Function Private Sub UpdateDefectProcess(updateDefect As DEF_DEFECT, processSelected As String) 'Dim selectedProcessHS = New HashSet(Of String)(processSelected) Dim selectedProcessHS = processSelected Dim defectProcess As IEnumerable(Of String) = New HashSet(Of String)(updateDefect.PRO_PROCESS.Select(Function(c) c.CODE_PRO)) For Each c In db.PRO_PROCESS If selectedProcessHS.Contains(c.CODE_PRO.ToString()) Then updateDefect.PRO_PROCESS.Add(c) Else If defectProcess.Contains(c.CODE_PRO) Then updateDefect.PRO_PROCESS.Remove(c) End If End If Next End Sub
  21. DropDownList com seleção multipla

    Tenho uma tabela defeitos e uma de processos, sendo que um defeito pode ter um ou vários processos. Por enquanto tenho a funcionar uma dropdownlist para um defeito, um processo, que alterações preciso fazer para poder seleccionar varios processos, segue o codigo abaixo: ' GET: DEF_DEFECT/Create Function Create() As ActionResult PopProcessDropDownList() Return View() End Function ' POST: DEF_DEFECT/Create 'To protect from overposting attacks, please enable the specific properties you want to bind to, for 'more details see http://go.microsoft.com/fwlink/?LinkId=317598. <HttpPost()> <ValidateAntiForgeryToken()> Function Create(<Bind(Include:="CODE_DEF,DESCRIPTION_DEF")> ByVal dEF_DEFECT As DEF_DEFECT) As ActionResult If ModelState.IsValid Then db.DEF_DEFECT.Add(dEF_DEFECT) Dim processSelected As String = Request.Form("ProcessesList").ToString() UpdateDefectProcess(dEF_DEFECT, processSelected) db.SaveChanges() Return RedirectToAction("Index") End If Return View(dEF_DEFECT) End Function ' GET: DEF_DEFECT/Edit/5 Function Edit(ByVal id As String) As ActionResult If IsNothing(id) Then Return New HttpStatusCodeResult(HttpStatusCode.BadRequest) End If Dim dEF_DEFECT As DEF_DEFECT = db.DEF_DEFECT.Find(id) If IsNothing(dEF_DEFECT) Then Return HttpNotFound() End If PopulateProcessesDropDownList(dEF_DEFECT.PRO_PROCESS) Return View(dEF_DEFECT) End Function Sub PopProcessDropDownList() Dim listSelectListItems As List(Of SelectListItem) = New List(Of SelectListItem) For Each p As PRO_PROCESS In db.PRO_PROCESS Dim selectItem As SelectListItem = New SelectListItem() selectItem.Text = p.CODE_PRO listSelectListItems.Add(selectItem) Next ViewBag.ProcessCode = listSelectListItems End Sub Sub PopulateProcessesDropDownList(selectedprocesses As Object) ' Dropdown Lists Dim allProcesses = From s In db.PRO_PROCESS Order By s.CODE_PRO Select s.CODE_PRO, s.DESCRIPTION_PRO Distinct ViewBag.PList = New SelectList(allProcesses, "CODE_PRO", "CODE_PRO", selectedValue:=selectedprocesses) End Sub ' POST: DEF_DEFECT/Edit/5 'To protect from overposting attacks, please enable the specific properties you want to bind to, for 'more details see http://go.microsoft.com/fwlink/?LinkId=317598. <HttpPost()> <ValidateAntiForgeryToken()> Function Edit(<Bind(Include:="CODE_DEF,DESCRIPTION_DEF")> ByVal dEF_DEFECT As DEF_DEFECT) As ActionResult If ModelState.IsValid Then Dim processToUpdate = db.DEF_DEFECT _ .Include(Function(i) i.PRO_PROCESS) _ .Where(Function(i) i.CODE_DEF = dEF_DEFECT.CODE_DEF) _ .Single() Dim processSelected As String = Request.Form("ProcessesList").ToString() UpdateDefectProcess(processToUpdate, processSelected) db.Entry(processToUpdate).State = EntityState.Modified db.SaveChanges() Return RedirectToAction("Index") End If Return View(dEF_DEFECT) End Function Private Sub UpdateDefectProcess(updateDefect As DEF_DEFECT, processSelected As String) 'Dim selectedProcessHS = New HashSet(Of String)(processSelected) Dim selectedProcessHS = processSelected Dim defectProcess As IEnumerable(Of String) = New HashSet(Of String)(updateDefect.PRO_PROCESS.Select(Function(c) c.CODE_PRO)) For Each c In db.PRO_PROCESS If selectedProcessHS.Contains(c.CODE_PRO.ToString()) Then updateDefect.PRO_PROCESS.Add(c) Else If defectProcess.Contains(c.CODE_PRO) Then updateDefect.PRO_PROCESS.Remove(c) End If End If Next End Sub Estou a usar vb, alguem me pode dar uma ajudinha?
  22. Datagridview Glitch

    Boas, Alguém sabe porque é que quando dou load ao usercontrol, com um tabcontrol embutido, a datagrid aparece como na imagem: Cumpts
  23. Bom dia, Como posso formatar uma coluna de uma DataGridView em formato Date - ex: "19-10-2017" Obrigado
  24. Assinar digitalmente codigo

    Olá Como não encontrei nada sobre este tema decidi criar um tópico novo. Pretendo criar um certificado e assinar digitalmente os meus ficheiros exe e doll mas não tenho experiência com este tema. Sei que tenho de criar um certificado numa entidade credível mas não conheço nenhuma nem preços. Depois, ao que parece preciso de um software para colocar o certificado nos ficheiros. Não é possível fazê-lo no visual studio? Agradeço a quem me poder ajudar.
  25. Bom dia, Eu desejava colocar uma DataGridView num Form e utilizá-la como se fosse uma folha de Excel para inserir dados. Queria que uma das colunas só aceitasse datas no formato tipo "18-10-2017". Queria que outra coluna só aceitasse números inteiros, outra que só aceitasse números decimais com duas casa decimais - ex: "146,83". Outra que só aceitasse valores entre x e y - ex: entre 50,4 e 189,8. E que, no caso do valor inserido não corresponder aos parâmetros, não aceitar esse valor e mostrasse ao utilizador uma mensagem de aviso. Queria também que, depois de todos os dados inseridos, houvesse um botão que passasse esses dados para uma Base de Dados Access (já preparada). Obrigado.
×

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.