form1.vb

来自「Microsoft Mobile Development Handbook的代码」· VB 代码 · 共 67 行

Imports System.Data.SqlServerCe
Imports System.Text

Public Class Form1


    Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
        Try
            Using frm As DataSetForm = New DataSetForm()
                frm.ShowDialog()
            End Using
        Catch ex As SqlCeException
            DisplaySQLCEErrors(ex)
        End Try
    End Sub

    Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
        Try
            Using frm As ResultSetForm = New ResultSetForm()
                frm.ShowDialog()
            End Using
        Catch ex As SqlCeException
            DisplaySQLCEErrors(ex)
        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