Großer Anfänger Thread

[Vertigo21]

Hallo, ich schon wieder.

Inzwischen funktioniert mein Programm schon ganz toll. Praktisch alle Funktionen sind eingebaut und laufen prima. Aber an dem Zugriff auf die Excel-Datei beiße ich mir bislang die Zähne aus.

In meinem Beitrag vom 14.09 habe ich ja schon den Code dazu gepostet. Scheinbar bekommt er also Zugriff auf die Excel-Liste. Allerdings weiß ich trotz ausgiebigen Googelns immer noch nicht, wie ich damit umgehen soll.
Wie bringe ich die Daten (sofern denn tatsächlich welche ausgelesen wurden) in die berühmte tabellarische Form um sie auszugeben? Nach dem ich mir jetzt dieses Tutorial angesehen habe bin ich noch verwirrter. Und besonders viele Infos zu Dataset habe ich in der MSDN auch nicht gefunden.

Kann mir bitte nochmal jemand helfen? Einen Link, ein wenig Info, irgendwas? (Ich weiß ja nicht mal genau, wann man ein Dataset nimmt und wann ein Datagrid, etc... )

[Vertigo21]

OK, nach längeren Recherchen konnte ich mein Problem weiter eingrenzen und meinen Code überarbeiten. Folgende Punkte sind mir aber immer noch nicht klar:

• Wie übertrage ich den Inhalt aus MyCommand in das Dataset? (Zeile 21)
• Wie übertrage ich den Inhalt des Datasets in das Datagrid zum Ausgeben? (Z 24)
• Ist es überhaupt notwendig, die Daten vor dem Ausgeben vorher noch mal in ein Dataset zu schreiben?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Function read_from_xls(ByVal Pfad As String)
        Try
            Dim Dateiname As String = Dir(Pfad & "\*.xls")
            Dim Quellpfad As String = Pfad & Dateiname
            ' Testausgabe
            'MessageBox.Show(Quellpfad, "Quellpfad")
 
            Dim MyConnection As System.Data.OleDb.OleDbConnection
            MyConnection = New System.Data.OleDb.OleDbConnection( _
                  "provider=Microsoft.Jet.OLEDB.4.0; " & _
                  "data source= " & Quellpfad & " ; " & _
                  "Extended Properties=Excel 8.0;")
 
            ' Daten aus Tabelle1 auslesen
            Dim MyCommand As System.Data.OleDb.OleDbCommand
            MyCommand = New System.Data.OleDb.OleDbCommand( _
                  "select * from [Sheet1$]", MyConnection)
 
            'MyCommand-Daten in das DS schreiben
            Dim DS As New DataSet("Excel-Inhalt")
' ### Wie übertrage ich die Daten hier in das Dataset? ###
            'DS.?
 
' ### Wie bekomme ich die Daten hier in das Datagrid ? ###
            Dim DataGrid1 = New DataGrid
            DataGrid1.Datasource = DS.Tables("daten1")
 
            MyConnection.Close()
 
            Return DS
 
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Auslesen gescheitert")
            'Dim Wert As Exception = ex.InnerException()
            'MessageBox.Show(Wert, "Inner Exception")
            Return False
 
        End Try
    End Function