Dim, das als Schnur = „Provider=Microsoft.Jet.OLEDB.4.0 sConnectionString ist; Datenquelle =“ u. Path.GetDirectoryName (CSVName) u.“ \; Ausgedehnter Properties= "" Text; HDR=YES; FMT=Delimited """
Schwaches objConn als neues System.Data.OleDb.OleDbConnection (sConnectionString)
Schwaches DA als OleDb.OleDbDataAdapter
'Geöffneter Daten-Adapter, zum von der Textdatei zu lesen
Schwaches str als Schnur = „VORWÄHLEN * VON [“ u. Path.GetFileName (CSVName) u. „]“
DA = neues System.Data.OleDb.OleDbDataAdapter (str, objConn)
'Datensatz using dataadapter füllen
da.FillSchema (SystemTable, SchemaType.Mapped)
Für jede Spalte als DataColumn in SystemTable.Columns
Wenn column.ColumnName = „WINDIV“ dann column.DataType = System.Type.GetType („System.String“)
Wenn column.ColumnName = „PLCDIV“ dann column.DataType = System.Type.GetType („System.String“)
Wenn column.ColumnName = „SPDIV“ dann column.DataType = System.Type.GetType („System.String“)
Zunächst
DA. Füllen (SystemTable)
objConn.Close ()
|