• Lunes 23 de Diciembre de 2024, 17:38

Autor Tema:  Llenar Un Datagrid De Varias Tablas De Sql  (Leído 1539 veces)

Vortice

  • Miembro MUY activo
  • ***
  • Mensajes: 135
    • Ver Perfil
Llenar Un Datagrid De Varias Tablas De Sql
« en: Lunes 1 de Octubre de 2007, 19:09 »
0
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.....
Solo el Bueno muere joven...