Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Работа с данными

Страница:

 

  Вопрос: DATASet ADO.NET Вывод связанных таблиц Добавлено: 20.08.03 13:57  

Автор вопроса:  dennis_w

Dim cn As SqlConnection

Dim cmdGetAll As SqlCommand

Dim addAllInfo As SqlDataAdapter

Dim m_dsWork As DataSet

cn = New SqlConnection("User ID=sa;password=sa;Initial Catalog=BankKomp;Data Source=NTS")

addAllInfo = New SqlDataAdapter()

m_dsWork = New DataSet()

cmdGetAll = New SqlCommand("spGetAll", cn)

cmdGetAll.CommandType = CommandType.StoredProcedure

addAllInfo.SelectCommand = cmdGetAll

addAllInfo.TableMappings.Add("Table", "tblMain")

addAllInfo.TableMappings.Add("Table1", "tblMain_Child")

cn.Open()

addAllInfo.Fill(m_dsWork)

cn.Close()

Dim colSSNP, colSSNE As DataColumn

colSSNP = m_dsWork.Tables("tblMain").Columns("id")

colSSNE = m_dsWork.Tables("tblMain_Child").Columns("id")

'Создаем первичные ключи

Dim arPersKey(1) As DataColumn

Dim arEmplKey(2) As DataColumn

arPersKey(0) = colSSNP

arEmplKey(0) = colSSNE

arEmplKey(1) = m_dsWork.Tables("tblMain_Child").Columns("id1")

m_dsWork.Tables("tblMain").PrimaryKey = arPersKey

m_dsWork.Tables("tblMain_Child").PrimaryKey = arEmplKey

Dim fkSSN As ForeignKeyConstraint

fkSSN = New ForeignKeyConstraint("SSNForKey", colSSNP, colSSNE)

fkSSN.DeleteRule = Rule.Cascade

m_dsWork.Tables("tblMain_Child").Constraints.Add(fkSSN)

m_dsWork.Relations.Add("CustOrders", m_dsWork.Tables("tblMain").Columns("ID"), m_dsWork.Tables("tblMain_Child").Columns("ID"))

 

DataGrid1.DataSource = m_dsWork

DataGrid1.DataMember = "tblMain"

DataGrid1.CaptionText = "tblMain"

DataGrid2.DataSource = m_dsWork

DataGrid2.DataMember = "tblMain_Child"

DataGrid2.CaptionText = "tblMain_Child"

После вывода информации в DataGrid2 выводятся все строки из дочерней таблицы а не те что соответствуют ID tblMain, в чем ошибка

Ответить

  Ответы Всего ответов: 0  

Нет ответов

Страница:

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам