Imports System.Data.SqlServerCe
'VB.NET und SQL Server Compact Edition 
 
 
Public Class Form1
 
    Private Sub CreateDB_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles CreateDB.Click
        Dim MyEngine As New SqlCeEngine
        MyEngine.LocalConnectionString = "datasource = c:\Temp\myDB.sdf"
        MyEngine.CreateDatabase()
    End Sub
 
    Private Sub CreateTable_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles CreateTable.Click
        SetSQL("Create Table Test (MyID int identity(0,1), Col1 nchar(100))")
    End Sub
 
    Private Sub InsertValue_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles InsertValue.Click
        SetSQL("Insert into Test (Col1) values ('Hello World')")
    End Sub
 
    Private Sub GetValue_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles GetValue.Click
        GetSQL("Select * from Test")
    End Sub
 
 
    Sub SetSQL(ByVal SQL As String)
        Dim conn As New SqlCeConnection
        Dim cmd As New SqlCeCommand
 
        conn.ConnectionString = "datasource = c:\Temp\myDB.sdf"
        cmd.Connection = conn
        cmd.CommandText = SQL
        conn.Open()
        cmd.ExecuteNonQuery()
        conn.Close()
    End Sub
 
    Sub GetSQL(ByVal SQL As String)
        Dim conn As New SqlCeConnection
        Dim cmd As New SqlCeCommand
 
        conn.ConnectionString = "datasource = c:\Temp\myDB.sdf"
        cmd.Connection = conn
        cmd.CommandText = SQL
        Dim da As New SqlCeDataAdapter(cmd)
        Dim dt As New DataTable
        conn.Open()
        da.Fill(dt)
 
        conn.Close()
        DataGridView1.DataSource = da
 
    End Sub
 
 
End Class