Avatar billede reds2001 Nybegynder
17. oktober 2003 - 18:07 Der er 9 kommentarer og
1 løsning

Import af data til dataset

Jeg vil importer data fra et Excel ark med følgene kode:

Dim MyConnection As New System.Data.OleDb.OleDbConnection( _
              "Provider=Microsoft.Jet.OLEDB.4.0; " & _
              "Data Source=C:\AktieData\data2.xls; " & _
              "Extended Properties=Excel 8.0;")

       
        ' Select the data from Sheet1 of the workbook.
        Dim MyCommand As New System.Data.OleDb.OleDbDataAdapter( _
              "select * from [data2$]", MyConnection)

        Dim DS As New System.Data.DataSet
        MyCommand.Fill(DS)
        MyConnection.Close()
Men det virker ikke. Hvorfor??
Avatar billede thor.ostergaard Nybegynder
17. oktober 2003 - 18:27 #1
hvilken fejl får du?
Avatar billede reds2001 Nybegynder
19. oktober 2003 - 19:52 #2
An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in system.data.dll og den opstår ved MyCommand.Fill kaldet.
Avatar billede thor.ostergaard Nybegynder
19. oktober 2003 - 19:58 #3
Prøv med denne connection string i stedet (hentet fra connectionsstring.com
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\AktieData\Data2.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
Avatar billede reds2001 Nybegynder
19. oktober 2003 - 20:14 #4
thor.ostergaard>>Det virker ikke :-(
Avatar billede thor.ostergaard Nybegynder
19. oktober 2003 - 20:50 #5
Jeg har testet din kode på et simpelt regneark og det ser ud til at virke godt nok. Kan man tænke sig, at de data du har i dit regneark har en struktur, der ikke lader sig putte ind i et dataset?

Du kan se min testkode her:
            Dim strConnection As String
            Dim strSQL As String
            Dim objConnection As OledbConnection
            Dim objAdapter As OledbDataAdapter
            Dim objDataset As New DataSet
            strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
            objConnection = New OledbConnection(strConnection)
            ' Knytter kunder til datasettet
            strSQL = "SELECT * FROM [Test]"
            objAdapter = New OleDbDataAdapter(strSQL, objConnection)
            objAdapter.Fill(objDataset)
Avatar billede reds2001 Nybegynder
20. oktober 2003 - 08:24 #6
thor.ostergaard>>Jeg har prøvet at køre det samme kodeeksempel som du har gjort overfor og selvom at jeg laver et simpelt regneark bestående af to kolonner med tal får jeg samme fejl.
Avatar billede thor.ostergaard Nybegynder
20. oktober 2003 - 09:08 #7
Hrmmm...
Kan du ikke sende mig din kode og dit regneark så kigger jeg på det. Du kan sende til thor@kursusmaterialer.dk
Det bliver nok først i aften jeg får tid til det - skal holde ASP.NET II kursus hele dagen :-)
Avatar billede reds2001 Nybegynder
20. oktober 2003 - 13:31 #8
thor.ostergaard>>Nu har jeg fået det til at virke med det sidste eks. Det viser sig dog at de Excelfiler som jeg skal bruger bliver gemt i et forkert format(Understøtter åbenbart ikke Text(tab delimitted)). For at kunne indlæse disse filer i et dataset skal jeg åben filen og tage stilling til hvordan jeg vil gemme den. Er der en måde hvorpå jeg kan finde mine Excel filer og åbne/gemme dem i programkoden?
Avatar billede thor.ostergaard Nybegynder
20. oktober 2003 - 17:27 #9
Det sidste kan jeg ikke lige hjælpe dig med, men det burde kunne lade sig gøre.
Avatar billede reds2001 Nybegynder
21. oktober 2003 - 08:56 #10
Ok thor, du skal ha' tak for hjælpen.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester