Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Function FillHiearchy() As DataTable Dim ds As New DataSet If DatabaseToUse() = BizObjs.DBType.Access Then Dim sTracks As String = String.Empty Dim sCars As String = String.Empty Dim sSessions As String = String.Empty Dim sRaces As String = String.Empty sTracks = "Select * from qTracks" sCars = "Select * from qCars" sSessions = "Select * from qSessionsLaps" sRaces = "Select * from qRaces" Dim dc As New OleDb.OleDbConnection(ConnectionString) 'Dim cmd As New OleDb.OleDbCommand(str, dc) Dim dTr As New OleDb.OleDbDataAdapter(sTracks, dc) Dim dCa As New OleDb.OleDbDataAdapter(sCars, dc) Dim dSe As New OleDb.OleDbDataAdapter(sSessions, dc) Dim dRa As New OleDb.OleDbDataAdapter(sRaces, dc) Try dCa.Fill(ds, "Cars") 'parent dTr.Fill(ds, "Tracks") 'child dRa.Fill(ds, "Races") 'child dSe.Fill(ds, "Sessions") 'child ds.Relations.Add(?????????? dc.Close() Catch ex As Exception MessageBox.Show(ex.Message) dc.Close() End Try End If Return GenerateDataTable(ds) End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.