excel a base de dados

[André Parreira 0]

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

[André Parreira 0]

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"""

[André Parreira 0]

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

[Hellblazer 0]

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

[André Parreira 0]

por exemplo uma textbox??

Como e possivel resolver o problemas??

Obrigado

[Hellblazer 0]

Tipo por exemplo estares a utilizar o valor da textbox ali

[André Parreira 0]

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

[Hellblazer 0]

http://www.java2s.com/Tutorial/VB/0260__GUI/SetOpenFileDialogFilterandgetselectedfilename.htm

[André Parreira 0]

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

[Hellblazer 0]

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

[André Parreira 0]

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

Obrigado

[Hellblazer 0]

Como assim? que tipo de ficheiro é?

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

[André Parreira 0]

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

[Hellblazer 0]

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

[André Parreira 0]

Entao como posso fazer?

Obrigado

[Hellblazer 0]

Por exemplo quando preenches a textbox logo aseguir podes fazer isso

Declarando a mesma o Private conexao_Excel as String

[André Parreira 0]

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

[Hellblazer 0]

        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()

[André Parreira 0]

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

[Hellblazer 0]

Desculpa... estava a pesquisar e nao reparei que isso utiliza um third party control deixa procurar melhor.

Ve aqui http://dotnetguts.blogspot.com/2006/10/import-excel-to-datagrid-aspnet.html

se precisares de ajuda a passar para vb.net eu ajudo

[André Parreira 0]

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

[André Parreira 0]

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

[Hellblazer 0]

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

[André Parreira 0]

e como sei qual é?

[Hellblazer 0]

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)