Jag har en klass som skall läsa in två tabeller i ett DataSet och sedan skapa en relation mellan dessa tabeller. Min kod ser ut så här. Du kan använda två DataAdapters, ett DataSet har ingen infomration om sitt utsprung. Relationer i DataSet
public function GetEvents2(strID as String)
Dim dataAdapter1 As System.Data.IDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter
Dim dataAdapter2 As System.Data.IDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter
Dim DS As System.Data.DataSet = New System.Data.DataSet
Dim objCmd1 As New OleDbCommand("select_event_klubb", objConn)
objCmd1.CommandType = CommandType.StoredProcedure
Dim objParam As New OleDbParameter("@ident",OleDbType.Char)
objParam.Value = strID
objCmd1.Parameters.Add(objParam)
Dim objCmd2 As New OleDbCommand("select_artist_all", objConn)
objCmd2.CommandType = CommandType.StoredProcedure
Try
objConn.Open
dataAdapter1.SelectCommand = objCmd1
dataAdapter2.SelectCommand = objCmd2
dataAdapter1.Fill(DS)
dataAdapter2.Fill(DS)
Dim eventTable as DataTable = DS.Tables("event")
Dim artistTable as DataTable = DS.Tables("artist")
DS.Relations.Add("klubb_artist_rel", eventTable.Columns("eventid"), artistTable.Columns("eventidFK"))
objConn.Close
Catch e As Exception
return 0
End Try
return DS
end function
DEtta fungerar inte riktigt men kan man skicka fylla ett dataset med 2 adapters för att skapa 2 tabeller i DataSetet?Sv: Relationer i DataSet
Vad får du för fel?
/Fredrik N