Dim sDatabaseName As String

Dim sConnectionString As String

sDatabaseName = "My Documents\Listin.sdf"

sConnectionString = "Data Source = " + sDatabaseName + ";"

If Not File.Exists(sDatabaseName) Then

   Dim se As New SqlCeEngine

   se.LocalConnectionString = sConnectionString

   se.CreateDatabase()

End If

Fuente 1

Dim cn As New SqlCeConnection(sConnectionString)

Dim cmd As New SqlCeCommand(_

"CREATE TABLE Listin (Nombre nvarchar(40) NOT NULL,_

Telefono nvarchar(12) NOT NULL)")

cmd.Connection = cn

cn.Open()

cmd.ExecuteNonQuery()

cn.Close()
 

Fuente 2

Private Sub CargarDatos()

    Dim cnGR As SqlCeConnection

    Dim cmGR As SqlCeCommand

    Dim drGR As SqlCeDataReader

    Dim nItem As Integer = lvListin.Items.Count

    Dim sDatabaseName As String

    Dim sConnectionString As String

    Dim s As String

    sDatabaseName = "My Documents\\Listin.sdf"

    sConnectionString = "Data Source = " + sDatabaseName + ";"

    Try

        cnGR = New SqlCeConnection(sConnectionString)

        cmGR = New SqlCeCommand("SELECT * FROM Listin")

        cnGR.Open()

        cmGR.Connection = cnGR

        drGR = cmGR.ExecuteReader()

        While drGR.Read()

            s = drGR("Nombre")

            lvListin.Items.Add(New ListViewItem(s))

            s = drGR("Telefono")

            lvListin.Items(nItem).SubItems.Add(s)

            nItem += 1

        End While

        cnGR.Close()

    Catch ex As Exception

        MessageBox.Show(ex.Message)

    End Try

End Sub
 

Fuente 3

Dim oWnd As New frmEdit

oWnd.ShowDialog()
 

Fuente 4

Private Sub cmdAceptar_Click(ByVal sender As System.Object, _

                             ByVal e As System.EventArgs) _

            Handles cmdAceptar.Click

    Dim cn As New SqlCeConnection("Data Source = My Documents\\Listin.sdf;")

    Dim cmd As New SqlCeCommand("INSERT INTO Listin (Nombre,Telefono) _

   VALUES('" & txtNombre.Text & "','" & _

   txtTelefono.Text & "')")

    cmd.Connection = cn

    cn.Open()

    cmd.ExecuteNonQuery()

    cn.Close()

    Me.Close()

End Sub
 

Fuente 5

Private Sub mnuSalir_Click(ByVal sender As System.Object, _

                           ByVal e As System.EventArgs) _

            Handles mnuSalir.Click

    Me.Close()

End Sub
 

Fuente 6

[Version]

Signature="$Windows NT$"

Provider="My Company"

CESignature="$Windows CE$"

[CEStrings]

AppName="Test"

InstallDir=%CE1%\%AppName%

Fuente 7