Problemer med relations.add mellem 2 databaser
Jeg har 2 databaser, hvor dene ene indeholder personoplysninger og hvor den anden indeholder fotos. Da jeg skal bruge fotos til mange forskellige områder skal jeg kunne knytte fotodatabasen sammen med en række forskellige database.Jeg har lavet følgende kode, men der kommer fejlmeddelelse om at de 2 kolonner ikke har unikke værdier.
Er der nogen der kan hjælpe med en vejledning i at flette 2 databaser?
række = Request.QueryString("rækkeid")
openDB("ama_info")
ssql = "SELECT hold_kategori.*, hold_person.*, hold_række.*, hold_person.person_række FROM (hold_kategori INNER JOIN hold_række ON hold_kategori.hold_id = hold_række.række_hold) INNER JOIN hold_person ON hold_række.række_id = hold_person.person_række WHERE (((hold_person.person_række)=1));"
dim objAdapter As new OleDBDataAdapter (sSql, Objconn)
dim objDataSet As new Dataset()
objAdapter.Fill(objDataSet, "dtpersoner")
closedb()
openDB("foto")
ssql = "SELECT fotooversigt.*, placering.* FROM placering INNER JOIN fotooversigt ON placering.placering_id = fotooversigt.foto_mappe;"
Dim cmd2 As OleDBDataAdapter = New OleDBDataAdapter(ssql, Objconn)
cmd2.Fill(objDataSet, "dtfoto")
closedb()
objDataSet.Relations.Add("myrelation", objDataSet.Tables("dtpersoner").Columns("person_foto"), objDataSet.Tables("dtfoto").Columns("foto_id"))
kategorier.Datasource=objDataSet.Tables("dtpersoner").DefaultView
DataBind()
