.NET Framework Developer Center

Public Class SqlCeResultSet
    Inherits SqlCeDataReader
    Implements IEnumerable, IListSource

Dim instance As SqlCeResultSet

public class SqlCeResultSet : SqlCeDataReader, IEnumerable, IListSource

public ref class SqlCeResultSet : public SqlCeDataReader, IEnumerable, IListSource

public class SqlCeResultSet extends SqlCeDataReader implements IEnumerable, IListSource

public class SqlCeResultSet extends SqlCeDataReader implements IEnumerable, IListSource

Dim conn As SqlCeConnection = Nothing

Try
    File.Delete("Test.sdf")

    Dim engine As New SqlCeEngine("Data Source = Test.sdf")
    engine.CreateDatabase()

    conn = New SqlCeConnection("Data Source = Test.sdf")
    conn.Open()

    Dim cmd As SqlCeCommand = conn.CreateCommand()
    cmd.CommandText = "CREATE TABLE myTable (col1 INT, col2 MONEY, col3 NVARCHAR(200))"
    cmd.ExecuteNonQuery()

    cmd.CommandText = "SELECT * FROM myTable"

    Dim rs As SqlCeResultSet = cmd.ExecuteResultSet(ResultSetOptions.Updatable Or ResultSetOptions.Scrollable)

    Dim rec As SqlCeUpdatableRecord = rs.CreateRecord()

    rec.SetInt32(0, 34)
    rec.SetDecimal(1, System.Convert.ToDecimal(44.66))
    rec.SetString(2, "Sample text")

    rs.Insert(rec)
Catch e As Exception
    MessageBox.Show(e.Message)
Finally
    conn.Close()
End Try