Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #59 da revista programar. Faz já o download aqui!

ferreira12

importa excel

Mensagens Recomendadas

ferreira12    0
ferreira12

Estou a utilizer um mecanismo em que me vai buscar o conteúdo de um ficheiro excel. Em que aki tudo bem, agora gostava de adicionar conteúdo a esse Excel. Para isso estou a tentar usar o código abaixo, mas sem resultados, não realiza um INSERT

  Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    'cria um novo dataadapter
    da = New OleDbDataAdapter("SELECT * FROM [Folha1$]", conexao_Excel)

    '' cria o comando para inserir
    Dim insertSql As [string] = "INSERT INTO [Folha1$] " & "(TESTE1, TESTE2, TESTE3) " & "VALUES (5, 55555, 555)"
    da.InsertCommand = New OleDbCommand(insertSql, da.SelectCommand.Connection)
    da.InsertCommand.Parameters.Add("@TESTE1", OleDbType.VarChar, 10, "TESTE1")
    da.InsertCommand.Parameters.Add("@TESTE2", OleDbType.VarChar, 15, "TESTE2")
    da.InsertCommand.Parameters.Add("@TESTE3", OleDbType.VarChar, 100, "TESTE3")
    ' preenche a tabela com dados da planilha Excel
    dt = New DataTable
    da.Fill(dt)
    ' define a chave primaria
    dt.PrimaryKey = New DataColumn() {dt.Columns(0)}
    ' registros somente podem ser inseridos usando esta tecnica
    dt.DefaultView.AllowDelete = False
    dt.DefaultView.AllowEdit = True
    dt.DefaultView.AllowNew = True
    ' vincula o modo de visao padrão da tabela ao datagrid
    DataGridView1.DataSource = dt.DefaultView
   End Sub

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

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.