-
Conteúdo Similar
-
Por drapn
Boa tarde pessoal
Estou com um projeto em Vb.Net que consiste em importar dados de uma planilha de Excel para um Datagridview.
O projeto esta funcionando tudo ok porem notei que quando vou movendo as barras laterais e inferiores o formulário apresenta grande lentidão para mover as colunas etc...
Fiz o teste criando um projeto novo com somente 1 Form, 1 Datagrid e 1Botão e os códigos para fazer a importação e quando eu "populo" o datagridview com o conteudo ele apresenta esses legs.
Alguem a ja passou por isso?
Será que é configuração da máquina? (Não é uma máquina tão fraca)
O Vb.NET é a versão 2015
Os arquivos de Excel variam de 80 Linhas por 5 Colunas á 400 linhas e 5 colunas
O código é esse:
Sub ImportaEstoque() Dim Local Local = EndArquivo() If String.IsNullOrWhiteSpace(Local) Then MessageBox.Show("Nenhum arquivo foi selecionado.", "Informação.", MessageBoxButtons.OK, MessageBoxIcon.Information) Return End If '------------------------------ Dim caminhoArquivoExcel As String = Local Dim nomePlanilhaExcel As String = "ESTQ" & "$" Dim conexaoOleDb As OleDbConnection = Nothing Dim ds As DataSet Dim cmd As OleDbDataAdapter '------------------------------ Try 'conexaoOleDb = New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Local & ";Extended Properties=Excel 8.0;") conexaoOleDb = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & Local & ";Extended Properties='Excel 8.0;HDR=Yes'") 'cmd = New OleDbDataAdapter("Select * from [" & nomePlanilhaExcel & "]", conexaoOleDb) cmd = New OleDbDataAdapter("Select * from [" & nomePlanilhaExcel & "] Where UM Like '%" & "PC" & "%'", conexaoOleDb) cmd.TableMappings.Add("Table", "tabelaExcel") ds = New DataSet cmd.Fill(ds) dgvDados.DataSource = ds.Tables(0) Catch ex As Exception MessageBox.Show(ex.ToString, "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error) Finally conexaoOleDb.Close() End Try sbQtdItens.Text = "Encontrados " & dgvDados.RowCount.ToString & " itens." End Sub
Pessoal desde já muito obrigado pela força!
-
Por eduardohaag
Olá estou criando um sistema onde preciso calcular a previsão de envio do pedido em dias uteis, para isso estou usando um webservice gratuito que retorna um xml, porém estou tendo o erroSystem.XML.XmlException: 'Dados no nível raiz inválidos. Linha 1, posição 1.'
Meu código é
Sub Preenchedata() Dim sql = "SELECT PrazoPadraoProducao FROM Configuracoes" Dim dr As DataTable = AcessoDB.ExecutarComando(sql, CommandType.Text, Nothing, AcessoDB.TipoDeComando.ExecuteDataTable) Dim ds As New DataSet Dim xml As String = "https://elekto.com.br/api/Calendars/br-BC/Add?initialDate=" & Now.Year & "-" & Now.Month & "-" & Now.Day & "&days=" & dr.Rows(0).Item(0) & "&type=work" ds.ReadXml(xml)
e o xml retornado é
<dateTime xmlns="http://schemas.microsoft.com/2003/10/Serialization/">2019-05-03T00:00:00Z</dateTime>
Alguém tem alguma ideia de como posso eliminar o erro?
-
Por lindomar55
ola amigos preciso de uma ajudinha, estou montando uma aplicaçao usando vb.net windows forms. nela tenho um botao onde chamo uma url no chrome com o seguinte comando.
Private Sub Btn_abrir_site_Click(sender As Object, e As EventArgs) Handles Btn_abrir_site.Click
Dim url As String = “https://www.rico.com.você/dashboard/tesouro-direto/“
Process.Start(url)
End Sub
no google entao eu acesso com meu logim manualmente(prefiro assim). e em realizo uma serie de operaçoes, chega um determinado momento que preciso passar passar os dados que o site me apresenta entao(apos as operaçoes) para o aplicativo. ai é que esta o problema. neste ponto estou boiando.
no codigo abaixo por exemplo: precisava obter os valores 12,36 e 8806,84 de forma automatica e colocar em textbox.
vi exemplos na net que mostram com webbrowser porem eu prefiro que seja com o chrome. e nesses exemplos ele abre a pagina e ja obtem os dados. eu preciso trabalhar na pagina muiiiito e so depois baixar os dados programaticamente.
qualquer ajuda sera bem vinda....
-
Por amenum
Pessoal, tudo bem? Fiquei parado da programação um bom tempo, e agora que retornei, queria dar manutenção nas minhas aplicações web que estão em vb.net webforms. Comprei um template de bootstrap (https://seantheme.com/color-admin-v4.2/admin/html/index_v2.html) e queria controlar os elementos via code behind in vb.net, mas estou sofrendo aqui por conta do meu limitado conhecimento.
Alguém poderia me dar uma luz em base neste link:
https://seantheme.com/color-admin-v4.2/admin/html/ui_modal_notification.html
Ao clicar na maioria dos botões dessa página, abre um modal ou alert. Pois bem, eu gostaria de simular essa abertura a partir de uma lógica no code behind, por exemplo, em um formulário, caso alguma regra não esteja sendo cumprida. Simples assim.
No código original, temos:
Chamada:
<a href="#modal-dialog" class="btn btn-sm btn-success" data-toggle="modal">Demo</a>
Div do modal
<div class="modal fade" id="modal-dialog" runat="server">
<div class="modal-dialog">
<div class="modal-content">
<div class="modal-header">
<h4 class="modal-title">Modal Dialog</h4>
<button type="button" class="close" data-dismiss="modal" aria-hidden="true">×</button>
</div>
<div class="modal-body">
<p>
Modal body content here...
</p>
</div>
<div class="modal-footer">
<a href="javascript:;" class="btn btn-white" data-dismiss="modal">Close</a>
<a href="javascript:;" class="btn btn-success">Action</a>
</div>
</div>
</div>
</div>
o que eu preciso?
No code behind
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
try
if verificaCampos() = false then ABRE O MODAL DIV COM A MENSAGEM DE ERRO
Catch ex As Exception
Throw ex
end try
End Sub
Alguém pode me ajudar?
muito obrigado.
-
Por eduardohaag
Olá sou amador e iniciante em programação.
Estou trabalhando em um projeto onde tenho uma tela com uma lista de pedidos, com varias colunas como, ID, cliente, previsão de entrega, valor total.
Gostaria de colocar uma coluna com o texto "visualizar", que quando ocorresse um click, abrisse abaixo da linha selecionada uma lista secundaria com os produtos do pedido, quantidade, preço etc...
Porém não tenho a menor noção de como fazer isso. Pode ser que exista algum controle que tenha essa possibilidade.
Estou trabalhando com vb.net.
-