CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Cargar Dataview

(1/1)

dbenegas:
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


--- Código: vb.net ---Imports System.DataImports 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 SubEnd Class  

fm89-10:
hola, no te paso el codigo  de lo que pedis porque estoy muy ocupado trabajando en mi proyecto, pero mira estos ejemplos te van a servir .
http://www.recursosvisualbasic.com.ar/htm/vb-net/datagridview.htm

suerte  :hola:

Navegación

[0] Índice de Mensajes