Creating a database schema from a DTD?

Assuming a DTD would lead to a well defined schema, isn't
there a tool to map DTDs to relational schemas?
SQL Server does not support DTD since it gives not enough information about
types and cannot be easily annotated as the XML-based schema formats XDR and
W3C's XML Schema.
You can either use a tool to translate your DTD into one of the XML-based
schema formats or look for a third-party tool (I think Ron Bourret had one).
Best regards
Michael
"Bob Smith" <anonymous@.discussions.microsoft.com> wrote in message
news:167901c4e55b$3336f1c0$a601280a@.phx.gbl...
> Assuming a DTD would lead to a well defined schema, isn't
> there a tool to map DTDs to relational schemas?

Creating a database schema from a DTD?

Assuming a DTD would lead to a well defined schema, isn't
there a tool to map DTDs to relational schemas?SQL Server does not support DTD since it gives not enough information about
types and cannot be easily annotated as the XML-based schema formats XDR and
W3C's XML Schema.
You can either use a tool to translate your DTD into one of the XML-based
schema formats or look for a third-party tool (I think Ron Bourret had one).
Best regards
Michael
"Bob Smith" <anonymous@.discussions.microsoft.com> wrote in message
news:167901c4e55b$3336f1c0$a601280a@.phx.gbl...
> Assuming a DTD would lead to a well defined schema, isn't
> there a tool to map DTDs to relational schemas?

CreateDataAccessObjects

I tried the following code

Sub CreateDataAccessObjects(ByVal db As Database)

' Create relational datasource

Dim ds As New RelationalDataSource("THYROID", "THYROID")

ds.ConnectionString = "Provider=MSOLAP.3;Data Source=localhost;Initial Catalog=THYROID" MsgBox(db.ID)

db.DataSources.Add(ds)

' Create connection to datasource to extract schema to dataset

Dim dset As New DataSet()

Dim cn As New SqlConnection("Data Source=localhost;Initial Catalog=" & CbDatabase.Text)

' Create the customers data adapter with the

' calculated column appended

Dim daCustomers As New SqlDataAdapter("SELECT * FROM VISITS", cn)

daCustomers.FillSchema(dset, SchemaType.Mapped, "VISITS")

to create a relational datasource but I received the following exception

Login failed for user ''. The user is not associated with a trusted SQL Server connection.

On line of

Dim daCustomers As New SqlDataAdapter("SELECT * FROM VISITS", cn.

Any suggestions?

Thank you

You need to specify security information in your connection string, e.g.

Dim cn As New SqlConnection("Data Source=localhost;Integrated Security=SSPI;Initial Catalog=" & CbDatabase.Text)