📄 datareader.aspx

📁 聊天聊天聊天聊天聊天聊天

💻 ASPX

字号:

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<html>
<script language="VB" runat="server">
Dim myConnection As OleDbConnection
Dim myCommand    As OleDbDataAdapter
Dim ds           As New DataSet
Dim ConnStr      As String
Dim SQL          As String
Sub Page_Load(Source As Object, E As EventArgs) 
	if NOT (isPostBack)
	FillList
	end if	
End Sub

SUB FillList()
	ConnStr = "Provider=SQLOLEDB; Data Source=(local); Initial Catalog=ASPNET;User ID=sa;"
	 myConnection = New OleDbConnection(ConnStr)      
	Dim dbRead AS OleDbDataReader
	Dim dbComm AS OleDbCommand
	SQL = "Select * from groups ORDER BY code_value"
	dbComm = New OleDbCommand(SQL,myConnection)
	myconnection.Open()
	dbRead=dbComm.ExecuteReader()
	While dbRead.Read()
		ddList.items.add(New ListItem(dbRead.Item("code_display")))
	End While
end sub
</script>
    <body>
       <h3><font face="Verdana">DropDownList & Reader </font></h3>
       <form  runat=server>
	  <asp:DropDownList id="ddlist" runat="server"
    	DataTextField = "code_display"/>
       </form>
    </body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -