把这段代码放在后台编码里面
Sub Page_Load
Dim conPubs As SqlConnection
Dim cmdSelect As SqlCommand
Dim dtrTitles As SqlDataReader conPubs = New SqlConnection( "Server=localhost;UID=sa;PWD=secret;Database=Pubs" )
cmdSelect = New SqlCommand( "Select Title From Titles", conPubs )
conPubs.Open()
dtrTitles = cmdSelect.ExecuteReader() dlstTitles.DataSource = dtrTitles
dlstTitles.DataBind() dtrTitles.Close()
conPubs.Close()
End Sub
就可以了
Sub Page_Load
Dim conPubs As SqlConnection
Dim cmdSelect As SqlCommand
Dim dtrTitles As SqlDataReader conPubs = New SqlConnection( "Server=localhost;UID=sa;PWD=secret;Database=Pubs" )
cmdSelect = New SqlCommand( "Select Title From Titles", conPubs )
conPubs.Open()
dtrTitles = cmdSelect.ExecuteReader() dlstTitles.DataSource = dtrTitles
dlstTitles.DataBind() dtrTitles.Close()
conPubs.Close()
End Sub
就可以了
(2)要想去掉模板列也是没有问题的。
思路就是:先把数据读入:dtrTitles = cmdSelect.ExecuteReader()
然后从阅读器中循环取数据。用 while dtrTitles.read
每读一次,就生成数据表格 的一行,赋值给这一行就可以了e