If OpenFileDialog.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Dim dt As DataTable = New DataTable()
Using sr As StreamReader = New StreamReader(OpenFileDialog.FileName, System.Text.Encoding.UTF8)
While Not sr.EndOfStream
Dim currentline As String() = sr.ReadLine().Split(New String() {";"}, StringSplitOptions.None)
If dt.Columns.Count = 0 Then
For i As Integer = 0 To currentline.Length - 1
dt.Columns.Add(currentline(i))
Next
Else
dt.Rows.Add(currentline)
End If
End While
sr.Close()
End Using
DgvGrid.DataSource = dt
End If
|
|
|
Dim openFileDialog As New OpenFileDialog()
Dim fileLocation As String
openFileDialog.InitialDirectory = "c:\"
openFileDialog.Filter = "txt files (*.csv)|*.csv|All files (*.*)|*.*"
openFileDialog.FilterIndex = 1
openFileDialog.RestoreDirectory = True
If openFileDialog.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
fileLocation = openFileDialog.FileName
fileName = fileLocation
Dim file As String = IO.Path.GetFileName(fileName)
Dim path As String = IO.Directory.GetParent(fileName).FullName
Dim ds As New DataSet
Try
If IO.File.Exists(IO.Path.Combine(path, file)) Then
Dim ConStr As String =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
path & ";Extended Properties=""Text;HDR=No;FMT=Delimited\"""
Dim conn As New OleDb.OleDbConnection(ConStr)
Dim da As New OleDb.OleDbDataAdapter("Select * from " &
file, conn)
da.Fill(ds, "TextFile")
End If
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
DataGridView.DataSource = ds.Tables(0)
End If
|
|
|
da.Fill(ds, "costumers")
With DataGridView
.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
End With
|
|
|
