flere sqldataadaptere?
Kan det passe at man skal erklærerer en sqldataadapter for hver tabel man har i sin join?Jeg har ikke kunnet få nedenstående til at virke på andre måder, så jeg håber i kan vise hvordan man skal gøre det rigtigt.
oRs &= "("
oRs &= "SELECT NetsiteUsers.Username, Projects.ID, Projects.ProjectManagerID, "
oRs &= "Projects.ProjectTypeID, Projects.CreationDate, Projects.CustomerID, "
oRs &= "Projects.StartDate, Projects.Deadline, Projects.Name, "
oRs &= "ProjectTypes.Name AS TypeName, Projects.Description "
oRs &= "FROM NetsiteUsers INNER JOIN "
oRs &= "Projects ON NetsiteUsers.ID = Projects.ProjectManagerID INNER JOIN "
oRs &= "ProjectTypes ON "
oRs &= "Projects.ProjectTypeID = ProjectTypes.ID "
oRs &= "WHERE ((Projects.Active = 1) AND (Projects.ID = " & ID & "))"
oRs &= ")"
Dim ADP As New SqlDataAdapter(oRs, MyConnection)
Dim ADP1 As New SqlDataAdapter(oRs, MyConnection)
Dim ADP2 As New SqlDataAdapter(oRs, MyConnection)
Dim DS As new DataSet("dataset")
ADP.Fill(DS,"NetsiteUsers")
ADP1.Fill(DS,"Projects")
ADP2.Fill(DS,"ProjectTypes")
name.Text = DS.Tables("netsiteusers").Rows(0)("Name").ToString()
type.Text = DS.Tables("ProjectTypes").Rows(0)("TypeName").ToString()
pm.Text = DS.Tables("netsiteusers").Rows(0)("username").ToString()
Created.Text = DS.Tables("Projects").Rows(0)("CreationDate").ToString()
Startdate.Text = DS.Tables("Projects").Rows(0)("Startdate").ToString()
Deadline.Text = DS.Tables("Projects").Rows(0)("Deadline").ToString()
Description.Text = DS.Tables("Projects").Rows(0)("Description").ToString()
