Creazione Tabella e DB

[RiminiRimini]

Ciao a tutti, ho cercato qua e la, ma non ho trovato per ASP.NET un esempio di creazione Database e tabelle da codice.

Io ho questo script, ma ovviamente non funziona dice che le ADOX non esistono (o una cosa simile)


Dim Dovedatabase As String = "C:\" & giornata & "campionato"
Dim strconn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Dovedatabase


'Qui creo tabella con la tattica
Dim objADOXDb = Server.CreateObject("ADOX.Catalog") ' QUI ERRORE IN FASE ESECUZIONE

Dim objTable = Server.CreateObject("ADOX.Table")

objADOXDb = Server.CreateObject("ADO.Catalog")

' creo l'oggetto per manipolare le tabelle
objTable = Server.CreateObject("ADO.Table")

' nome della tabella
objTable.Name = "Lista"

' colonne da creare
objTable.Columns.Append("ID")
objTable.Columns.Append("E-mail")

' creo una chiave primaria
objTable.Keys.Append("PK_ID", 1, "ID")

' aggiungo effettivamente la tabella
objADOXDb.Tables.Append(objTable)

' libero risorse
objTable = Nothing
objADOXDb = Nothing

Io purtroppo brancolo nel buio, tra l'altro questo non è asp e non asp.net?

[RiminiRimini]

Questo è quello che son riuscito a fare cercando qua e la.
Dim strconn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Dovedatabase
Dim connetti As New OleDbConnection(strconn)

connetti.Open()

Dim schemaTable As DataTable = connetti.GetOleDbSchemaTable(OleDbSchemaGuid.Table s, New Object() {Nothing, Nothing, nomesquadra})

Dim datasettimi As New DataSet

Dim strSQL As New StringBuilder
Dim objCommand As New OleDbCommand(strSQL.ToString, connetti)

Try
objCommand.ExecuteNonQuery()
Catch ex As Exception
MsgBox("Tabella esistente Faccio update")
GoTo aggiorna

End Try

strSQL.Append("CREATE TABLE ")
strSQL.Append("nomeditta")
strSQL.Append(" (Nome varchar(40), Numero int,Cognome varchar(40))")
objCommand.ExecuteNonQuery()


Creo una tabella "Nomeditta" e inserisco al suo interno le colonne Nome,Numero,Cognome.

La soluzione try la usano quasi tutti, ma c'è un'altra soluzione per sapere se la tabella esiste tipo questa ..

Dim schemaTable As DataTable = connetti.GetOleDbSchemaTable(OleDbSchemaGuid.Table s, New Object() {Nothing, Nothing, nomesquadra})
If schemaTable.Container = "Nomeditta" Then MsgBox("ESISTE") ma la risposta è sempre positiva come posso fare?