Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Private Sub BtnCargartxt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCargartxt.Click
Dim fName As String = ""
OpenFileDialog1.InitialDirectory = "c:temp"
OpenFileDialog1.FileName = vbNullString
OpenFileDialog1.Filter = "txt files (*.txt)|*.txt"
OpenFileDialog1.FilterIndex = 2
OpenFileDialog1.RestoreDirectory = True
If (OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then
fName = OpenFileDialog1.FileName
End If
Me.TextBox1.Text = fName
Dim TextLine As String = ""
Dim SplitLine() As String
If System.
IO.
File.
Exists(fName
) = True Then Dim objReader As New System.IO.StreamReader(fName)
Do While objReader.Peek() <> -1
TextLine = objReader.ReadLine()
SplitLine = Split(TextLine, "")
Me.DataGridView1.Rows.Add(SplitLine)
Loop
End If
End Sub
Private Sub BtnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSalir.Click
Me.Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cnn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:ADAS32.mdb; User Id=admin;Password=;")
Dim da As New OleDbDataAdapter("SELECT Code, Descr, CommCompany, CommProduct, CommClient FROM HDCommercial", cnn)
Dim ds As New DataSet
da.Fill(ds)
DataGridView2.DataSource = ds.Tables(0)
End Sub
End Class