firebird Embedded模式(.net 3.5)

　　Dim connectionString = New FbConnectionStringBuilder()

　　connectionString.ClientLibrary = "fbembed.dll"

　　connectionString.ServerType = FbServerType.Embedded

　　connectionString.Database = Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "Test.Fdb")

　　connectionString.Pooling = True

　　connectionString.Dialect = 3

　　Dim conn As New FbConnection(connectionString.ToString)

　　Dim comm As New FbCommand("select first 10 * from test", conn)

　　conn.Open()

　　Dim fp As New FbDataAdapter(comm)

　　Dim ds As New DataSet

　　fp.Fill(ds)

　　fp.Dispose()

　　comm.Dispose()

　　conn.Close()

　　Repeater1.DataSource = ds.Tables(0)

　　Repeater1.DataBind()

　　ds.Dispose()