'Beispiel: VB .Net - OLEDB - DataGrid aus Textdatei füllen ' 'Benötigt: Microsoft Jet 4.0-Datenbank-Engine für Windows 98/NT 'Download : http://download.microsoft.com/download/4/3/9/4393c9ac-e69e-458d-9f6d-2fe191c51469/jet40sp8_9xnt.exe ' Microsoft Jet 4.0-Datenbank-Engine für Windows XP 'Download : http://download.microsoft.com/download/2/1/0/2100a24e-20c5-44d1-932d-6838fb08b516/windowsxp-kb829558-x86-deu.exe ' Microsoft Jet 4.0-Datenbank-Engine für Windows ME 'Download : http://download.microsoft.com/download/f/e/f/fefd6ea9-e5d8-4edf-810d-924f7d1d2de4/jet40sp7_wme.exe ' Microsoft Jet 4.0-Datenbank-Engine für Windows 2000 'Download : http://download.microsoft.com/download/2/1/0/2100a24e-20c5-44d1-932d-6838fb08b516/windowsxp-kb829558-x86-deu.exe ' 'Hinweis : Legen Sie zum Testen im Anwendungspfad eine Datei mit dem Namen ' test.txt an und tragen Sie folgende Testdaten ein: ' Beispieldaten: ' Name1;Vorname1;11061957 ' Name2;Vorname2;22021957 ' usw. ' Imports System Imports System.Drawing Imports System.Windows.Forms Imports System.IO Imports System.Data Imports System.Data.OleDb Imports System.Xml Namespace VBDotNet_OLEDB_FillDataGridFromTextfile Public Class MainForm Inherits System.Windows.Forms.Form Private button1 As System.Windows.Forms.Button Private dataGrid1 As System.Windows.Forms.DataGrid Public Shared Sub Main Dim fMainForm As New MainForm fMainForm.ShowDialog() End Sub Public Sub New() MyBase.New Me.InitializeComponent End Sub #Region " Windows Forms Designer generated code " Private Sub InitializeComponent() Me.dataGrid1 = New System.Windows.Forms.DataGrid Me.button1 = New System.Windows.Forms.Button CType(Me.dataGrid1,System.ComponentModel.ISupportInitialize).BeginInit Me.SuspendLayout ' 'dataGrid1 ' Me.dataGrid1.DataMember = "" Me.dataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText Me.dataGrid1.Location = New System.Drawing.Point(8, 48) Me.dataGrid1.Name = "dataGrid1" Me.dataGrid1.Size = New System.Drawing.Size(280, 216) Me.dataGrid1.TabIndex = 1 ' 'button1 ' Me.button1.Location = New System.Drawing.Point(8, 8) Me.button1.Name = "button1" Me.button1.Size = New System.Drawing.Size(280, 32) Me.button1.TabIndex = 0 Me.button1.Text = "&Test..." AddHandler Me.button1.Click, AddressOf Me.Button1Click ' 'MainForm ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 266) Me.Controls.Add(Me.dataGrid1) Me.Controls.Add(Me.button1) Me.Name = "MainForm" Me.Text = "Testform <OLEDB - DataGrid aus Textdatei fuellen>" CType(Me.dataGrid1,System.ComponentModel.ISupportInitialize).EndInit Me.ResumeLayout(false) End Sub #End Region Private Sub Button1Click(sender As System.Object, e As System.EventArgs) CreateTableFromTextfile(Application.StartupPath, "test.txt", dataGrid1) End Sub Private Sub CreateTableFromTextfile(ByVal Root As String, ByVal Filename As String, _ ByRef dg As System.Windows.Forms.DataGrid) Dim ds As New DataSet Dim dbConnection As OleDbConnection Try Dim ComplettePath As String = Path.Combine(Root, Filename) Dim [File] As File If [File].Exists(ComplettePath) Then '*** Delimited 'Wert Format ' 'TabDelimited Felder in der Textdatei sind durch Tabulatoren getrennt. 'CSVDelimited Felder in der Textdatei sind durch Kommas getrennt. 'Delimited(*) Felder in der Textdatei sind durch Passwortzeichen (Sternchen) getrennt. ' Außer dem doppelten Anführungszeichen ["] kann jedes Zeichen ' verwendet werden. Dim query As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & _ Root & ";Extended Properties=""Text;HDR=No;FMT=Delimited*""" 'Delimited *** dbConnection = New OleDbConnection(query) Dim da As New OleDbDataAdapter("Select * from " & Filename, dbConnection) da.Fill(ds, "TextFile") dg.DataSource = ds.Tables(0) Else Throw New Exception("Textdatei: " & Environment.NewLine & _ ComplettePath & _ "wurde nicht gefunden...") End If Catch ex As Exception MessageBox.Show(ex.Message, "Info") Finally If Not dbConnection Is Nothing Then dbConnection.Close() End Try End Sub End Class End Namespace