' --- Setup schema for frk.csv
Dim outfilew As New StreamWriter("schema.ini")
outfilew.WriteLine("[frk.csv]")
outfilew.WriteLine("Format=CSVDelimited")
outfilew.WriteLine("ColNameHeader=False")
outfilew.WriteLine("MaxScanRows=0")
outfilew.WriteLine("CharacterSet=ANSI")
outfilew.WriteLine("DecimalSymbol=.")
outfilew.WriteLine("CurrencyDecimalSymbol=.")
outfilew.Close()
' --- Import
Dim mytable As DataTable
Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=""Text;HDR=No"";Data Source=."
Dim objConn As New OleDbConnection(sConnectionString)
Dim objCmdSelect As New OleDbCommand("SELECT * FROM frk.csv", objConn)
Dim objAdapter1 As New OleDbDataAdapter
Dim objDataset1 As New DataSet
objConn.Open()
objAdapter1.SelectCommand = objCmdSelect
objAdapter1.Fill(objDataset1, "import")
mytable = objDataset1.Tables(0)
objConn.Close()
' --- Other import types
outfilew.WriteLine("Format=CSVDelimited") ' --- delimiter is a ,
outfilew.WriteLine("Format=TABDelimited") ' --- delimiter is a tab
outfilew.WriteLine("Format=Delimited(;)") ' --- delimiter is a ; (or any other custom char)
outfilew.WriteLine("Format=FixedLength") ' --- fixed length fields. (specifiy fields in scheme.ini)more information: http://msdn.microsoft.com/en-us/library/ms709353%28VS.85%29.aspx