Hola amigos que tal?
Quiero pedirles su ayuda, yo estoy comenzando a programar y no se mucho de programacion..
le explico lo que tiene que realizar el sistema tengo 3 dataview
en el nro 1 cargo un archivo de texto plano tiene una sola columna y contine solo id
en el nro 2 cargo una base de datos access con registros que tienen datos como id, descr, empresa, entre otros datos
en el nro 3 quiero cargar datos de resultado
la funcion que no se como hacer es para el dataview3 la idea es que al precionar un boton recorra de forma automatica el dataview1("id" archivo txt) y busque en la base de datos access y vaya agregando los datos en el dataview3 asi podre tener un informe completo en el dataview3
adjunto imagen del From que tengo hasta el momento
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
