FANDOM


Creación de la base de datos Editar

Option Explicit On

Imports System.Data.Linq
Imports System.Data.Linq.Mapping

Module Module1

  Public Class Discoteca
    Inherits DataContext
    Public Interpretes As Table(Of Interprete)
    Public Grabaciones As Table(Of Grabacion)

    Public Sub New(ByVal Ruta As String)
      MyBase.New(Ruta)
    End Sub
  End Class

  <Table(Name:="interpretes")> _
  Public Class Interprete
    <Column(IsPrimaryKey:=True)> _
    Public id As Long
    <Column()> _
    Public nombre As String
    <Column()> _
    Public nacionalidad As String
  End Class

  <Table(Name:="grabaciones")> _
  Public Class Grabacion
    <Column(IsPrimaryKey:=True)> _
    Public id As Long
    <Column()> _
    Public titulo As String
    <Column()> _
    Public idinterprete As Long
  End Class

  Sub Main()
    Dim bd As Discoteca = New Discoteca( _
      "C:\Users\Juan Diego\Documents\discoteca.mdf" _
    )

    If bd.DatabaseExists() Then
      bd.DeleteDatabase()
    End If
    bd.CreateDatabase()

    bd.ExecuteCommand( _
      "alter table grabaciones " & _
      "add constraint grabaciones_por_interprete " & _
      "foreign key (idinterprete) " & _
      "references interpretes (id) " _
    )

  End Sub

End Module

¡Interferencia de bloqueo de anuncios detectada!


Wikia es un sitio libre de uso que hace dinero de la publicidad. Contamos con una experiencia modificada para los visitantes que utilizan el bloqueo de anuncios

Wikia no es accesible si se han hecho aún más modificaciones. Si se quita el bloqueador de anuncios personalizado, la página cargará como se esperaba.