setupforeignkey.vb

Microsoft Mobile Development Handbook的代码,有C#,VB,C++的

Imports System.IO
Imports System.Reflection
Imports System.Data.SqlServerCe

Class SetupForeignKey
    Public Shared Sub DefineKey()
        ' Setup the connection string
        Dim databasePath As String = Path.GetDirectoryName(Assembly.GetExecutingAssembly().GetName().CodeBase)
        Dim connString As String = "Data Source=" + databasePath + "\MyDatabase.sdf; Password=MobileP@ssw0rd"

        Dim commandText As String = "ALTER TABLE Product " + _
                "ADD CONSTRAINT Product_ProductCategory_FK " + _
                "FOREIGN KEY (ProductCategoryID) REFERENCES ProductCategory(ProductCategoryID) " + _
                "ON DELETE CASCADE " + _
                "ON UPDATE CASCADE"

        Using conn As SqlCeConnection = New SqlCeConnection(connString)
            Using cmd As SqlCeCommand = New SqlCeCommand(commandText, conn)
                conn.Open()
                cmd.ExecuteNonQuery()
                conn.Close()
            End Using
        End Using

    End Sub
End Class