代码如下 sub page_load(s as object ,e as eventargs) Dim conn as oledbconnection Dim strselect As String Dim strselect1 As String Dim ascmd As OleDbCommand Dim ascmd1 As OleDbCommand Dim asreader As OleDbDataReader Dim asreader1 As OleDbDataReader Dim dbname As String dbname=server.mappath("someelse/info.mdb") conn = new oledbconnection("provider=microsoft.jet.oledb.4.0;data source="+dbname) strselect = "select top 7 * from info order by id desc" strselect1 = "select top 8 * from pic order by id desc" ascmd = New OleDbCommand(strselect, conn) ascmd1 = New OleDbCommand(strselect1, conn) conn.Open() asreader = ascmd.ExecuteReader() asreader1 = ascmd1.ExecuteReader() txt.DataSource = asreader txt.DataBind() txt2.DataSource = asreader1 txt2.DataBind() asreader.Close() asreader1.Close() conn.Close() end sub
sub page_load(s as object ,e as eventargs) Dim conn as oledbconnection Dim strselect As String Dim strselect1 As String Dim ascmd As OleDbCommand Dim ascmd1 As OleDbCommand Dim asreader As OleDbDataReader Dim asreader1 As OleDbDataReader Dim dbname As String dbname=server.mappath("someelse/info.mdb") conn = new oledbconnection("provider=microsoft.jet.oledb.4.0;data source="+dbname) strselect = "select top 7 * from info order by id desc" strselect1 = "select top 8 * from pic order by id desc" ascmd = New OleDbCommand(strselect, conn) ascmd1 = New OleDbCommand(strselect1, conn) conn.Open() asreader = ascmd.ExecuteReader() asreader1 = ascmd1.ExecuteReader() txt.DataSource = asreader txt.DataBind() asreader.Close() txt2.DataSource = asreader1 txt2.DataBind()
用DataTable来绑定吧。 [code=vb#] sub page_load(s as object ,e as eventargs) Dim conn as oledbconnection Dim strselect As String Dim strselect1 As String Dim ascmd As OleDbCommand Dim ascmd1 As OleDbCommand Dim asreader As OleDbDataReader Dim asreader1 As OleDbDataReader Dim dbname As String dbname=server.mappath("someelse/info.mdb") conn = new oledbconnection("provider=microsoft.jet.oledb.4.0;data source="+dbname) strselect = "select top 7 * from info order by id desc" strselect1 = "select top 8 * from pic order by id desc" ascmd = New OleDbCommand(strselect, conn) ascmd1 = New OleDbCommand(strselect1, conn) conn.Open() '绑定第一个数据源,完成绑定后关闭 asreader = ascmd.ExecuteReader() txt.DataSource = asreader txt.DataBind() asreader.Close() '绑定第二个数据源,完成绑定后关闭 asreader1 = ascmd1.ExecuteReader() txt2.DataSource = asreader1 txt2.DataBind() asreader1.Close() conn.Close() end sub