Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Module Module1
Sub Main()
Dim strConn As String = "Provider=SQLOLEDB;User ID=sa;Password=gatsol;Initial Catalog=vins;Data Source=211.236.186.207;"
Dim cn As New OleDbConnection(strConn)
Dim PdsBoardSQL As String = " Select Idx, Pwd, [Name], [Title], Num, MyRef, NewStep, NewLevel, Email, Url, RegDate, File1, File2, File3, FormTypeID from PdsBoard"
Dim daPdsBoard As New OleDbDataAdapter(PdsBoardSQL, cn)
Dim FormTypeSQL As String = " Select FormTypeID, FormTypeName from FormType "
Dim daFormType As New OleDbDataAdapter(FormTypeSQL, cn)
Dim ds As New DataSet()
ds.DataSetName = "Chapter9"
cn.Open()
daPdsBoard.FillSchema(ds, SchemaType.Source, "PdsBoard")
daFormType.FillSchema(ds, SchemaType.Source, "FormType")
cn.Close()
ds.Relations.Add("FormPdsBoard", _
ds.Tables("PdsBoard").Columns("FormTypeID"), _
ds.Tables("FormType").Columns("FormTypeID"))
ds.WriteXmlSchema("C:\Chapter9.xsd")
End Sub
End Module
