Imports System.Data
Imports MicroFour.StrataFrame.Business

Public Class CreatePICDataset

Private Shared GenderBO As New PICData.Gender
Private Shared InsuranceCardBO As New PICData.InsuranceCard
Private Shared InsuranceTypeBO As New PICData.InsuranceType
Private Shared LanguageBO As New PICData.Language
Private Shared PatientBO As New PICData.Patient
Private Shared PatientHistoryBO As New PICData.PatientHistory
Private Shared RaceBO As New PICData.Race
Private Shared VoterRegBO As New PICData.VoterReg
Private Shared PICDS As New DataSet

Public Shared Sub CreateDataset()
PICDS.DataSetName = "PICDataSet"
AddBOTableToDataset(GenderBO)
AddBOTableToDataset(InsuranceCardBO)
AddBOTableToDataset(InsuranceTypeBO)
AddBOTableToDataset(LanguageBO)
AddBOTableToDataset(PatientBO)
AddBOTableToDataset(PatientHistoryBO)
AddBOTableToDataset(RaceBO)
AddBOTableToDataset(VoterRegBO)
PICDS.WriteXmlSchema("C:\PICDataSet.xsd")
End Sub

Private Shared Sub AddBOTableToDataset(ByVal myBO As BusinessLayer)
myBO.FillDataTable("Select * from " & myBO.TableName & " where 1 = 0")
PICDS.Tables.Add(myBO.CurrentDataTable)
End Sub

End Class

Imports System.Data

Public Class PICDataset
Inherits DataSet

Private AppAssembly As Reflection.Assembly = Reflection.Assembly.GetExecutingAssembly()
Private AppAssemblyPath As String = Me.AppAssembly.GetName().Name().Replace(" ", "_")

Public Sub New()
Try
Me.ReadXmlSchema(GetResource("PICDataSet.xsd"))
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Private Function GetResource(ByVal FileName As String) As System.IO.Stream
Try
Return Me.AppAssembly.GetManifestResourceStream(Me.AppAssemblyPath & "." & FileName)
Catch ex As Exception
MessageBox.Show("Error returning resource: " & ex.ToString(), "GetResource!", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return Nothing
End Try
End Function

End Class