Jump to content

Search the Community

Showing results for tags 'travado'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Q&A Desenvolvimento
    • Perguntas e respostas rápidas
  • Web Development
    • HTML e CSS
    • Javascript
    • PHP
    • Ruby
    • Python
    • Java
    • .NET
    • Docker, Kubernets and other environments
    • WordPress
    • Mobile
    • Agile
    • Desenvolvimento de Games
    • Banco de Dados
    • Design and UX
    • Algoritmos & Outras Tecnologias
  • Entretenimento e uso pessoal
    • Segurança & Malwares
    • Geral
    • iMasters's pub

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Google+


Hangouts


Skype


Twitter


deviantART


Github


Flickr


LinkedIn


Pinterest


Facebook


Site Pessoal


Localização


Interesses

Found 1 result

  1. 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!
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.