SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: Vortice en Lunes 1 de Octubre de 2007, 19:09

Título: Llenar Un Datagrid De Varias Tablas De Sql
Publicado por: Vortice en Lunes 1 de Octubre de 2007, 19:09
Camaradas espero esten bien y con salud q es lo principal, bueno mi problemas es el siguiente quiero llenar un DatGrid desde 4 tablas de una misma Base de Datos y lo hago de la siguiente manera.

conectar_bd()
Command = New SqlCommand("SELECT ID_cotizacion, Fecha_Creacion, Usuario_Crea, Estado FROM Orden_de_Compra",_    Connection)
Command.ExecuteNonQuery()
leer = Command.ExecuteReader()
Dim Tabla As New DataTable
Tabla.Columns.Add(New DataColumn("ID Cotizacion"))
Tabla.Columns.Add(New DataColumn("Fecha Creacion"))
Tabla.Columns.Add(New DataColumn("Usuario"))
Tabla.Columns.Add(New DataColumn("Estado"))
While leer.Read
     Dim fila As DataRow
     fila = Tabla.NewRow()
     For i = 0 To 3
         fila(i) = leer(i).ToString
      Next
      Tabla.Rows.Add(fila)
End While
Me.DataGrid_cotiz.DataSource = Tabla
leer.Close()

Aca asigno las 4 columnas a la Grilla con sus campos de un tabla de la BD, ningun problema, luego

Command = New SqlCommand("SELECT razon_social FROM clientes", Connection)
Command.ExecuteNonQuery()
leer = Command.ExecuteReader()
Dim Tabla1 As New DataTable
Tabla1.Columns.Add(New DataColumn("Empresa"))
While leer.Read
  Dim fila As DataRow
  fila = Tabla1.NewRow()
  For i = 0 To 0
     fila(i) = leer(i).ToString
  Next
  Tabla1.Rows.Add(fila)
End While
Me.DataGrid_cotiz.DataSource = Tabla1
leer.Close()

Y al hacer esto me crea la columna encima de las anteriores, entonces, como lo puedo hacer para q la asigne a continuacion de las 4 primeras, como puedo asignar una ubicacion especifica al DataColumn , o de q otra manera se puedes hacer, ojala y puedan ayudarme, de antemano gracias.....