Search the Community

Estou a desenvolver um conjunto de webservices e todos os que não tem «request» funcionam bem. Os que têm «request» em XML estão sem a dar o seguinte erro: System.InvalidOperationException: O nome de método do serviço Web xxxxxxxxx não é válido. em System.Web.Services.Protocols.HttpServerProtocol.Initialize() em System.Web.Services.Protocols.ServerProtocolFactory.Create(Type type, HttpContext context, HttpRequest request, HttpResponse response, Boolean& abortProcessing) Não posso alterar o «request» pois não somos nós que o definimos... Agradeço a desde já a Vossa ajuda

Bem Aja a todos Estou com um problema que não sei resolver Tenho uma aplicação feita por mim p/ meu uso pessoal de despesas e receita caseiras executado em Visual Studio 2015 que funcionava bem. Depois de desinstalar o Visual Studio 2022 (não me entendia bem com a configuração) eis que a minha aplicação deixou de funcionar bem nas rotinas de busca de dados ( Receitas; Despesas e outras) entre datas Junto codigo da rotina "Despesas" Agradeço ajuda se possivel Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim DataInicio As Date = DateTimePicker1.Value Dim DataFim As Date = DateTimePicker2.Value Dim ConnectionString As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\DespesasCaseiras\DespesasPessoaisFamiliares.mdb;") Dim Query As String = "SELECT Id,Data,Designacao,Despesa,Categoria,SubCategoria,Familiar FROM DadosActuais Where Data BETWEEN '" & DataInicio & "' AND '" & DataFim & "'AND Categoria Like '" & Trim(TextBox1.Text.ToString) & "%' AND SubCategoria Like '" & Trim(TextBox2.Text.ToString) & "%' AND Familiar Like '" & Trim(TextBox3.Text.ToString) & "%' Order By Id" Dim DataAdapter As New OleDbDataAdapter(Query, ConnectionString) Dim MyData As New DataSet DataAdapter.Fill(MyData, "DadosActuais") ' Neste caso utilizei uma datagridview para visualizar os dados Me.DataGridView1.DataSource = MyData.Tables("DadosActuais") Me.DataGridView1.Refresh() 'Conta as linhas da Grid e coloca na Label Label1.Text = Nothing Label1.Text = "Este Filtro encontrou - " & Me.DataGridView1.RowCount - 1 & " Registos" Button2.Enabled = True 'Button1.Enabled = False Call ControlaGrid() Call SomarColunas() End Sub

Boa Noite, Tive que reinstalar o Visual Studio, devido a formatação do PC para o W11. O problema é que não estou conseguindo fazer a compilação para novos projetos, onde sempre me apresenta o erro: "Não foi possível iniciar a depuração porque o destino de depuração C:\Users\xxxxx\yyyy\OneDrive\bin\Debug\......." Como posso alterar esta destino ou o mesmo criar o destino automaticamente como "C:\Users\xnoe033\Desktop\Pasta_Y\WindowsApp1\bin\Debug " Cumprimentos,

Boas, tenho uma dúvida em vb.net, estou a desenvolver um programa que me permite registar despesas e rendimentos pessoais, tenho duas forms uma que serve para fazer novos registos e outra para visualizar os registos numa listview e dar sort aos registos consoante items selecionados em comboboxes(ex: dia,mes,ano,tipo de despesa ,etc...).Já consegui colocar os diferentes subitems na listaview cada fez que faço um novo registo (guardei cada registo adicionado a um"BancoDeRegistos as listoff(classe com diferentes propriedades das variaveis usadas em cada registo)" ), no entanto cheguei à conclusão de que cada vez que fecho o programa e volto a abrir necessito de guardar esse banco de registos (base de dados) para que quando volte a inicia-lo n perca os registos. Pensei em ir aos recursos do meu projeto e adicionar uma pasta pré estabelecida , mas depois não consigo implementar, não sei muito bem o que fazer a seguir, Ideias?

Olá! Estou conectando a uma tabela DBF com o drive VFPOLEDB, para excluir determinados registros e até aí tudo bem, mas quando tendo executar o comando PACK, para uma exclusão definitiva, o object connect retorna erro, alegando não ter exclusividade para executar o PACK.Assim faço a conexão: cnConnection := CreateObject( "ADODB.Connection" ) cnConnection:ConnectionString := ; "Provider=VFPOLEDB.1" +; ";Data Source=" + cPath +; ";Exclusive=Yes" +; ";Collating Sequence=general" //=Machine ou =general cnConnection:CursorLocation := AD_USE_CLIENT cnConnection:CommandTimeOut := 600 cnConnection:ConnectionTimeOut := 600 cnConnection:open() Executa as exclusões: mSQL := "Delete FROM Dia" mSQL += " Where dia_tl = 'A' AND dia_mm = '" + pe_mm + "';" oCommand := CreateObject("ADODB.Command") oCommand:ActiveConnection := oCnVfp oCommand:CommandText := mSQL oCommand:Execute() Aqui tento fazer o PACK: mQuery := "PACK" oCommand:CommandText := mQuery oCommand:Execute() Descrição do erro: "File must be opened exclusively" Desde já, agradeço a ajuda.

Um Bem Aja a todos Tenho necessidade de fazer uma contagem das celulas a Amarelo da SaidosEuroDreamsDataGridView, mas não consigo, alguem me dê uma ajuda. Tenho este código no Private Sub frmGraficoPremiosEuroDream_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'Conta os numeros do Premiados Dim yContagem(40) As Integer For i As Integer = 1 To 40 For Linhas = 0 To SaidosEuroDreamsDataGridView.RowCount - 1 For Colunas = 1 To 6 If SaidosEuroDreamsDataGridView.DefaultCellStyle.BackColor=??????? Then yContagem(i) += 1 End If Next Colunas For Colunas = 1 To 6 Next Colunas Next Linhas Next i

Bom Dia Já alguém tem algum exemplo do envio do ficheiro(XML) CIRU_PT, de forma automático , para o portal eSPap, possivelmente através do sistema de EDI

Boa noite Preciso da vossa ajuda, estou a criar um projeto, em que tenho que colocar as matriculas de carros, já coloquei uma masked text box ao programa mas como o parque automóvel portugûes neste momento tem três tipos de matriculas eu só consigo colocar um tipo de matriculas na masked text box... A minha pergunta é existe alguma forma de colocar os três tipos matriculas na masked text box... ou terei de colocar três masked text boxs... desculpem a ignorância 😄 Preciso da vossa ajuda, Diogo Fernandes

Preciso de ajuda, estou criando um sistema de guia de cirurgia e preciso que o código passe por cada linha do datagridview1 e cada vez que o nome do medico aparecer ele colocar em outro datagrid2 quantas vez o nome apareceu, mas preciso fazer isso em quando ele lista os nome que estiverem datagridview1. "tipo um cont.se do excel" para quele que sabe o que este formular. Agradeço que pode ajudar.😁

Boa Tarde e Bem Aja Ao tentar aplicar uma LineShap no Form aparece este erro: "Could not load file or assembly Microsoft.VisualStudio.Shell.9.0 Version 2.0.0.0 Como resolvo este inbroglio? Desde já obrigado pela atenção

Bom dia a todos, mais uma vez venho beber àgua ao pote (como diziam os antigos) Tenho uma aplicação executada por mim e para minha utilização de despesas e receitas, sucede que ao fazer uma busca entre datas não aparecem varios registos que se encontram na tabela. Sinceramente não sei o que sucedeu, mas consigo repor os registos um a um com a chamada do respectivo e salvar de novo o mesmo. Sucede que tenho centenas de registos nesta situação, como fazer para repor pelos menos 10 ou 20 de cada vez. Uso esta rotina para repor um de cada vez. Agradeço desde já uma orientação. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim Contador As Integer For ContaLinhas As Integer = 0 To DadosActuaisDataGridView.RowCount - 1 For Colunas As Integer = 2 To 2 If DadosActuaisDataGridView.Item(2, ContaLinhas).Selected = True Then Contador = Contador + 1 DadosActuaisBindingNavigatorSaveItem.PerformClick() End If Next Colunas Next ContaLinhas End Sub

Boa tarde, agradeço desde já ajuda para perceber Tenho um aplicação feita por mim em VBNet com base dados Access para meu uso que funcionava bem, e por motivo que desconheço não apresenta todos os registo dentro da data inicial e data final e critérios escolhidos. Tentei várias alterações mas não consigo detectar o erro Private Sub frmDespesasActuais_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim DataInicio As Date = DateTimePicker1.Value Dim DataFim As Date = DateTimePicker2.Value Dim sDataInicio = Format(DataInicio, "yyyy/MM/dd") Dim sDatafim = Format(DataFim, "yyyy/MM/dd") 'Dim DataConsulta As Date = MonthCalendar1.SelectionStart 'Dim sData = Format(DataConsulta, "yyyy/MM/dd") Dim ConnectionString As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\DespesasCaseiras\DespesasPessoaisFamiliares.mdb;") ' Dim Query As String = "SELECT Id,Data,Designacao,Despesa,Categoria,SubCategoria,Familiar FROM DadosActuais Where Despesa > 0 AND Data BETWEEN '" & sDataInicio & "' AND '" & sDatafim & "'Order By Id" Dim Query As String = "SELECT Id,Data,Designacao,Despesa,Categoria,SubCategoria,Familiar FROM DadosActuais Where Data BETWEEN CDate('" & sDataInicio & "') AND CDate('" & sDatafim & "') Order By Id" 'Dim command As New OleDbCommand(query, ConnectionString) '' Seleccionar os dados 'command.Parameters.Add("@Despesa", OleDbType.Decimal).Value = "0,00" Dim DataAdapter As New OleDbDataAdapter(Query, ConnectionString) Dim MyData As New DataSet DataAdapter.Fill(MyData, "DadosActuais") ' Neste caso utilizei uma datagridview para visualizar os dados Me.DataGridView1.DataSource = MyData.Tables("DadosActuais") 'Me.DataGridView1.DataSource = MyData.Tables(0) 'Conta as linhas da Grid e coloca na Label Label1.Text = "Este Filtro encontrou - " & Me.DataGridView1.RowCount - 1 & " Registos" Button2.Enabled = False Call ControlaGrid() Call SomarColunas() ConnectionString.Close() TextBox1.Text = Nothing TextBox2.Text = Nothing TextBox3.Text = Nothing Exit Sub Também me aparece estes avisos no VS, não sei se estão relacionados

Preciso de uma ajuda, quando estou autenticando um json pela segunda vez dá o seguinte erro: system.net.webexception:"O servidor executou uma violação de protocolo. Section=resposestatusline' alguém pode me ajudar? Eu tenho a seguinte função: Public Function Auth(ByVal json As String, ByVal http As String) As String Dim client As WebClientComTimeout = New WebClientComTimeout() client.Encoding = Encoding.UTF8 client.Headers(HttpRequestHeader.ContentType) = "application/json" Return client.UploadString(New Uri(http), "POST", json) End Function

Um Bem Aja a todos Estou com o problema acima referido Não consigo fazer Build após ter removido sem querer a referencia 'Microsoft.Office.Core'. Como posso resolver a situação. Agradeço desde já ajuda

Um bem haja a todos Pretendo mover uma OvalShape lentamente, estou a utilizar este código, mas não funciona Agradeço ajuda. Obrigado Dim X As Integer X = X + 1 OvalShape19.Location = New Point(57 + X, 453) If X = 5 Then Timer1.Stop() End If

Desenvolvo um aplicativo Android (em blocos do KODULAR para celular SAMSUNG) e um software Windows (em VB.NET para NOTEBOOK E PC COM WINDOWS 10) Tenho que compartilhar via internet um arquivo texto CSV que usarei como base de dados. Pensei em uma rede local, mas não dá pois os celulares estarão em outro WIFI ou usarão rede de dados de operadoras de celulares. Pensei em usar um app de compartilhamento do clipboard mas não achei um facil, gratuito (sem propaganda) e bem pratico. Como fazer ?. Alguma ideia boa e pratica ?. Algum site de compartilhamento de arquivo que fornece um endereço que possa ser acessado pelos softwares e aplicativos ? Obrigado pela ajuda 🙂

Um Bem Aja a Todos Tenho este código e não sei como substituir o valor numérico do control Panel? pelo valor X do ciclo For Dim ctrl As Control For X As Integer = 1 To 10 Step 3 For Each ctrl In Panel?.Controls If TypeOf (ctrl) Is Label Then If ctrl.BackColor = Color.Yellow Then MsgBox("TESTE") RadioButton3.Checked = True Exit For End If End If Next Next Agradeço desde já a atenção

Boa tarde, Possuo uma aplicação em Visual Basic 2019 e queria bloquear a linha de cabeçalho do DataGrid e que não recebesse a cor da linha de dados do DataGrid no cabeçalho.

Boa tarde galera, Tenho uma aplicação no Visual Basic 2019 com MySQL. No MySQL tenho um campo com nome "termino", varchar(3) que armazena "Sim" ou "Não". Na aplicação tenho um select que não funciona e no MySQL funciona perfeitamente. Segue abaixo o select: sql = "SELECT * FROM tbl_Avaliacoes WHERE termino = 'Sim' ORDER BY nome ASC"

Um bem Aja a Todos Estou a construir uma aplicação que tem 2 Form's e que vão inserir dados numa Base Dados Access. Sucede que ao fazer Start no Visual Studio funciona normalmente, se criar um atalho para o ambiente de trabalho o executavel não abre. Agradeço uma ajuda desde já Resolvido Não sei como tive de desactivar a cx "Save my settings on Shutdown nas propriedades/Application

Bom dia, pessoal estou tendo dificuldade para montar isso, atualmente estou utilizando assim : Select Case ComboBox2.SelectedIndex Case 0 SkinParam.Text = "" PictureBox1.ImageLocation = "Data/SkinList/PrintSkin/0.jpg" SkinParam.Text = "0" Case 1 SkinParam.Text = "" PictureBox1.ImageLocation = "Data/SkinList/PrintSkin/1.jpg" SkinParam.Text = "1" Case 2 SkinParam.Text = "" PictureBox1.ImageLocation = "Data/SkinList/PrintSkin/2.jpg" SkinParam.Text = "2" Então ao selecionar a case 0 ele ira apresentar a imagem nº 0 na pasta e mostrar o código 0 no textbox Mais eu gostaria de limpar esse código pois vai até a imagem 1000 por diante então comecei a fazer desta forma : Public Sub CarregarListaSkin() ComboBox2.Items.Clear() Dim lineOfContents As String() = IO.File.ReadAllLines("Data\SkinList\ListSkin.txt") For Each line In lineOfContents Dim nomes As String() = line.Split("|"c) ComboBox2.Items.Add(nomes(1)) Next For Each line In lineOfContents Dim nomes As String() = line.Split("|"c) ComboBox3.Items.Add(nomes(0)) Next End Sub Então assim ele puxa o nº da skin e o nome da skin a partir de um arquivo de texto com os dados : 1| Skin de Testes 2| Skin de 2 Assim por diante até 1000+ As imagens estão numeradas conforme o nome Skin de 2 com a foto 2.jpg Seria possível agora ao click combobox ele carregar a imagem conforme o numero apresentado na combobox3 ? Por que se for usar desta forma : PictureBox1.ImageLocation = "Data/SkinList/PrintSkin/0.jpg" Toda vez que for agregar mais uma eu vou ter que entrar na soucer e colocar a informação na case manual, ou deixar já configurado as cases mais e muita informação desnecessária. Mexendo pensei em fazer desta forma : Private Sub CarregarImagem() PictureBox1.ImageLocation = "Data/SkinList/PrintSkin/erro.png" If ComboBox3.Text = "1" Then PictureBox1.ImageLocation = "Data/SkinList/PrintSkin/1.jpg" End If If ComboBox3.Text = "2" Then PictureBox1.ImageLocation = "Data/SkinList/PrintSkin/2.jpg" End If End Sub Porém repete o problema de deixar o código fonte já pronto se eu for adicionar algo mais tenho que mexer dentro da soucer. Obrigado.

Olá gostaria de saber como fazer para remover valores duplicado do chart e fazer com que os valores que esta duplicado apareca na label do topo de uma unica coluna do Chart que esta duplicada, exemplo: eu tenho 15 produtos no banco de dados sendo que 10 desses produtos são o mesmo produto ai todos esses produtos iguais aparece no grafico 1 em cada coluna, eu quero que eles apareca em uma unica coluna e no rotulo na label que fica no topo da coluna mostre a quantidade desses produtos que tem no banco de dado, estou alimentando o Chart com banco de dado access se alguem poder me ajudar agradeço muito. Conectar.Open() Dim sql As String = "select * from Desvios where id" Dim cmd As OleDbCommand = New OleDbCommand(sql, Conectar) Dim dr As OleDbDataReader = cmd.ExecuteReader If dr.HasRows Then While dr.Read Chart1.Series("Desvios").Points.AddXY(dr("Produto").ToString, dr.Item("id").ToString) End While End If

Boa tarde, eu estou com dificuldade de fazer uma lógica de remover dados repetidos em um datagridview , exemplo na tabela tem 4 valores e tenho 1 valor repetidos eu preciso indetificar um valore repetido e remover esse valor eu fiz um lógica , mais não funciona corretamente pode me ajudar Sub Limpar_dados_repetidos() If TabelaFazenda.Rows.Count() > 1 Then For j As Integer = TabelaFazenda.Rows.Count() - 1 To 0 Step -1 Dim s As Boolean = False For x As Integer = 0 To TabelaFazenda.Rows.Count() - 1 If TabelaFazenda.Rows(x).Cells(0).Value = TabelaFazenda.Rows(j).Cells(0).Value Then If s = False Then TabelaFazenda.Rows(x).DefaultCellStyle.BackColor = Color.Red s = True End If End If Next Next For j As Integer = TabelaFazenda.Rows.Count() - 1 To 0 Step -1 If TabelaFazenda.Rows(j).DefaultCellStyle.BackColor = Color.Red Then Me.TabelaFazenda.Rows.RemoveAt(j) End If Next End If End Sub

Tenho tabela com 3 campos poe exemplo (strCodigo, strDescrição, intOrdem) strCodigo é tipo char e é chave da tabel strDescriao tipo char intOrdem é int, guarda a ordem na tabela. Carrego um dataset (ds) através do SqlDataAdapter e inicio um SqlCommandBuilder. Atribuo ao datagridview.DataSource=ds Seleciono uma linha do datagridview e clico num botão para executar uma alteração em algumas linhas no campo intOrdem Quando faço o update da tabela, os dados são atualizados exceto o registo da linha que estava selecionada. Já tentei, CurrentCell = Nothing , já tentei tudo e não consigo ver onde está o problema. Nunca atualiza a linha que estava selecionada.

Boa noite Estou tentando abrir um hiperlink por meio de uma labellink com o seguinte comando no eventclick System.Diagnostics.Process.Start("www.google.com") porem da o seguinte erro : System.ComponentModel.Win32Exception: 'O sistema não pode encontrar o arquivo especificado.' Então tentei : Process.Start("http://website.com/profile.php?id=") Segue o mesmo erro : System.ComponentModel.Win32Exception: 'O sistema não pode encontrar o arquivo especificado.' Poderiam me ajudar a abrir pagina web pelo comando ? Obrigado.