复制代码 代码如下:

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()

文件下载