复制代码 代码如下: 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()
