form1.vb

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

Imports System.Data.SqlServerCe
Imports System.Text

Public Class Form1

    Private Const SSCE_M_CYCLEDETECTED As Integer = 25083

    Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
        Try
            SetupForeignKey.DefineKey()
            MessageBox.Show("Foreign Key Created!")
        Catch ex As SqlCeException
            If ex.NativeError = SSCE_M_CYCLEDETECTED Then
                MessageBox.Show("Key already exists. Continuing...")
            Else
                DisplaySQLCEErrors(ex)
            End If
        End Try
    End Sub

    Private Sub DisplaySQLCEErrors(ByVal e As SqlCeException)
        Dim errorCollection As SqlCeErrorCollection = e.Errors

        Dim bld As StringBuilder = New StringBuilder()
        Dim inner As Exception = e.InnerException

        If Not inner Is Nothing Then
            MessageBox.Show("Inner Exception: " + inner.ToString())
        End If
        ' Enumerate the errors to a message box.
        Dim err As SqlCeError
        For Each err In errorCollection
            bld.Append("\n Error Code: " + err.HResult.ToString("X"))
            bld.Append("\n Message   : " + err.Message)
            bld.Append("\n Minor Err.: " + err.NativeError)
            bld.Append("\n Source    : " + err.Source)

            ' Enumerate each numeric parameter for the error.
            Dim numPar As Integer
            For Each numPar In err.NumericErrorParameters
                If 0 <> numPar Then
                    bld.Append("\n Num. Par. : " + numPar)
                End If
            Next

            ' Enumerate each string parameter for the error.
            Dim errPar As String
            For Each errPar In err.ErrorParameters
                If String.Empty <> errPar Then
                    bld.Append("\n Err. Par. : " + errPar)
                End If
            Next

            MessageBox.Show(bld.ToString())
            bld.Remove(0, bld.Length)
        Next
    End Sub

End Class