Imports System.Data.SqlServerCe
 
Public Class cArtikel
    Private cArtNummer As Integer
    Private cArtGruppe As Integer
    ' Hier folgen weitere Felder
 
    Const myConnstring As String = "datasource = C:\Artikel.sdf; LCID=1033"
 
    ' hier folgen Propertys 
 
    Shared Sub CreateTable()  'Soll nach Außen sichtbar sein
 
        Dim myCommand As String = "Create Table Artikel (ArtNummer int Primary" & _
          "Key not null, ArtGruppe int)"
        SetSQL(myCommand)
 
    End Sub
 
    Shared Sub SetSQL(ByVal SQLCommand As String)  ' Soll nach außen nicht 
    ' sichtbar sein
 
        Dim myConn As New SqlCeConnection
        Dim myCmd As New SqlCeCommand
 
        myConn.ConnectionString = myConnstring
        myCmd.Connection = myConn
        myCmd.CommandText = SQLCommand
        Try
            myConn.Open()
            myCmd.ExecuteNonQuery()
            myConn.Close()
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler!")
        End Try
    End Sub
 
End Class