L
Luis Esteban Valencia
I have this
i need to show the datagrid with columns of 2 datatables
Dim myadap As New SqlDataAdapter
myconn.Open()
myadap.TableMappings().Add("Table", "vistaUsuarios")
Dim mysqlcmd As New SqlCommand("select * from vistaUsuarios order by
strnombre asc", myconn)
mysqlcmd.CommandType = CommandType.Text
myadap.SelectCommand = mysqlcmd
myadap.Fill(myds)
myconn.Close()
Dim myadapccos As New SqlDataAdapter
myconn2.Open()
myadapccos.TableMappings.Add("Table", "gn_ccost")
Dim mysqlcmdcos As New SqlCommand("select * from gn_ccost", myconn2)
mysqlcmdcos.CommandType = CommandType.Text
myadapccos.SelectCommand = mysqlcmdcos
myadapccos.Fill(myds)
myconn2.Close()
Dim dr As DataRelation
Dim dc1 As DataColumn
Dim dc2 As DataColumn
dc1 = myds.Tables("vistausuarios").Columns("strIdCentroCosto")
dc2 = myds.Tables("gn_ccos").Columns("cos_ccos")
dr = New System.Data.DataRelation("EmpleadosCentros", dc1, dc2)
myds.Relations.Add(dr)
i need to show the datagrid with columns of 2 datatables
Dim myadap As New SqlDataAdapter
myconn.Open()
myadap.TableMappings().Add("Table", "vistaUsuarios")
Dim mysqlcmd As New SqlCommand("select * from vistaUsuarios order by
strnombre asc", myconn)
mysqlcmd.CommandType = CommandType.Text
myadap.SelectCommand = mysqlcmd
myadap.Fill(myds)
myconn.Close()
Dim myadapccos As New SqlDataAdapter
myconn2.Open()
myadapccos.TableMappings.Add("Table", "gn_ccost")
Dim mysqlcmdcos As New SqlCommand("select * from gn_ccost", myconn2)
mysqlcmdcos.CommandType = CommandType.Text
myadapccos.SelectCommand = mysqlcmdcos
myadapccos.Fill(myds)
myconn2.Close()
Dim dr As DataRelation
Dim dc1 As DataColumn
Dim dc2 As DataColumn
dc1 = myds.Tables("vistausuarios").Columns("strIdCentroCosto")
dc2 = myds.Tables("gn_ccos").Columns("cos_ccos")
dr = New System.Data.DataRelation("EmpleadosCentros", dc1, dc2)
myds.Relations.Add(dr)