• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

André Parreira

excel a base de dados

28 mensagens neste tópico

Boas

Tenho que criar o excel como base de dados( assim foi pedido)

Tenho este codigo

 Inherits System.Windows.Forms.Form

    Private da As OleDbDataAdapter
    Private dt As DataTable
    Dim conexao_Excel As String = "Provider=Microsoft.Jet.OleDb.4.0;" _
                                & "data source=C:\Users\utilizador\Favorites\Desktop\testar.xls;" _
                                & "Extended Properties=Excel 8.0;"

Que trabalha perfeitamente, mas como é que eu fasso para ele ir buscar a DIR a textbox que tenho introduzida no form???

Obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ja axo que consegui fazer, ainda nao conseui testar, mas deve ser isso penso eu

Provider=Microsoft.Jet.Oledb.4.0; data source= " + TextPathExcel.Text + ";Extended properties=""Excel 8.0;hdr=yes;imex=1"""

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas

Meti esse codigo  mas agora nao consigo entrar no form quando executo o programa.

An error occurred creating the form. See Exception.InnerException for details.  The error is: A referência de objecto não foi definida como uma instância de um objecto.

podiam ajudar?

Obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tens algum objecto vazio ou nao inicializado a ser utilizado..

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

por exemplo uma textbox??

Como e possivel resolver o problemas??

Obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ent como e que eu fasso a chamada a um ficheiro excel, tenho que abrir num OpenFileDialog e depois a dir que ficava na textbox ficava la tb e dava.

ent n sei como fazer

agradecia ajudas

obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Isso e para fazer a chamada a um ficheiro, ja sei komo se faz, mas como meto o utilizador a esclher o ficheiro que quiser.

tenho que fazer a cahamda ao ficheiro meto a dir numa textbox, depois como fasso??

Obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

depois de aberto o dialog e de o user escolher o ficheiro

Dim openFileDialog1 As System.Windows.Forms.OpenFileDialog

        openFileDialog1 = New System.Windows.Forms.OpenFileDialog()

        If openFileDialog1.ShowDialog() = DialogResult.OK Then
            textBox1.Text = openFileDialog1.FileName
        End If

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Sim para a textbox ficar com a dir, depois onde é que meto para no datagrid, ele abrir o ficheiro escolhido??

Obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Como assim? que tipo de ficheiro é?

Queres meter o conteudo ou simplesmente uma grid com a lista de ficheiros?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Sim, e para para fazer a chamada a uma folha excel.

para aparece na datagrid o que vem no excel, eu consigo fazer a chamada apenas a 1 ficheiro excel, mas so eu que escolho, e isso n pode ser

 Inherits System.Windows.Forms.Form
    Private da As OleDbDataAdapter
    Private dt As DataTable
    Dim conexao_Excel As String = "Provider=Microsoft.Jet.OleDb.4.0;" _
                                & "data source=C:\Users\utilizador\Favorites\Desktop\nadanada.xls;" _
                                & "Extended Properties=Excel 8.0;"

meti onde tava a dir uma textbox, mas n deu o erro foi:

An error occurred creating the form. See Exception.InnerException for details.  The error is: A referência de objecto não foi definida como uma instância de um objecto.

Nao estou a ver como resolver isto

Obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tu nao podes meter ali fora dos metodos o valor da textbox...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Por exemplo quando preenches a textbox logo aseguir podes fazer isso :thumbsup:

Declarando a mesma o Private conexao_Excel as String

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Nao estou a conseguir fazer...

eu consigo ir buscar a dir do ficheiro excel, mas n estou a conseguir abrir o datagrid com o conteudo dessa folha excel,

Agradecia ajuda

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

        Dim FileSource As String = "C:\teste.xls"

        Dim workbook As SpreadsheetGear.IWorkbook = SpreadsheetGear.Factory.GetWorkbook(FileSource)

   

        Dim dataSet As DataSet = workbook.GetDataSet("Ordem", SpreadsheetGear.Data.GetDataFlags.FormattedText)

        DataGrid1.DataSource = dataSet

        DataGrid1.DataBind()

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Onde introduzo esse codigo???

no botao para quando pedir para ir buscar o excel?? ou la em cima??

tenho que usar algum impots? e que o SpreadsheetGear diz que nao esta declarado

Obrigado pela ajuda

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

yh obrigado pela ajuda, mas o que esta la e +- como tenho ou n? vai buscar apenas a DIR, keria meter para ir buscar valor a variavel, onde continha a dir que o utilizador meteu.

Obrigado pla ajuda

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Ja consegui que ele lesse o conteudo da variavel assim:

 dt = New DataTable
        conexao_Excel = "Provider=Microsoft.Jet.OleDb.4.0; " & "data source = " & direto & "; " & "Extended Properties=Excel 8.0;"
        MsgBox(conexao_Excel)
        da.Fill(dt)

mas agr da erro no da.fiil(dt) diz que a propriedade ConnectionString não foi inicializada

Agradecia ajuda

Obrgado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tu nao estas a dizer ao data adapter (da) qual e a connectionstring...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

dt = New DataTable

conexao_Excel = "Provider=Microsoft.Jet.OleDb.4.0; " & "data source = " & direto & "; " & "Extended Properties=Excel 8.0;"

Dim da as New OleDbDataAdapter("SELECT * FROM [sheet1$]", conexao_Excel)

da.Fill(dt)

0

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