还有sqlcommand 跟sqldatareader 等. 但在页面中可以正常使用。请高手指教,谢谢!
解决方案 »
- 很简单的问题
- 在html页面如何播放flv文件
- 再发一帖,服务器按钮控件不响应。
- 请问离开当前页面session值自动设置为null怎么写?
- datalist里动态添加控件
- 要在页面中显示大量文字,但是不想用textbox控件,用什么控件好?
- 服務端按鈕按過一次以後。每次按F5都會執行按鈕裏面的代碼,怎麽解決。
- 向大家请教网页框架的问题??
- 急(在线等待)
- .Net下的DataSet有这个功能吗?
- |M| 当xmlhttp.open("POST","http://www.cz88.net/ip/viewip468.aspx",true) 的时候浏览器会提示:该页正在访问其控制范围之外的信息。这
- 问一个要命的问题,为何我动态加载的WebUserControl ,点击一个服务器控件Button 的时候补触发事件?
If Not Me.IsPostBack Then
Dim conn As New sqlconnection(ConfigurationSettings.AppSettings("DBConnStr"))
Dim cmd As New sqlcommand("select distinct username from agentuser", conn)
conn.open()
Dim dr As sqldatareader = cmd.executereader
ddlclass.DataSource = dr
ddlclass.DataTextField = "username"
ddlclass.DataBind()
dr.close()
conn.close()
End If
这是代码
Dim cmd As New sqlcommand("select distinct username from agentuser", conn)
改为
Dim conn As New SqlConnection
conn = New SqlConnection(ConfigurationSettings.AppSettings("DBConnStr"))
Dim cmd As New sqlcommand
cmd=New sqlcommand(("select distinct username from agentuser", conn)
Inherits System.Web.UI.Page
#Region " Web 窗体设计器生成的代码 " '该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.SqlConnection = New System.Data.SqlClient.SqlConnection
'
'SqlConnection
'
Me.SqlConnection.ConnectionString = "workstation id=""COMMONOR-034F3E"";packet size=4096;user id=roab;password=15283;dat" & _
"a source=""(local)"";persist security info=False;initial catalog=agent" End Sub
Protected WithEvents SqlConnection As System.Data.SqlClient.SqlConnection
Protected WithEvents ddlclass As System.Web.UI.WebControls.DropDownList '注意: 以下占位符声明是 Web 窗体设计器所必需的。
'不要删除或移动它。
Private designerPlaceholderDeclaration As System.Object Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
If Not Me.IsPostBack Then
Dim conn As New sqlconnection(ConfigurationSettings.AppSettings("DBConnStr"))
Dim cmd As New sqlcommand("select distinct username from agentuser", conn)
conn.open()
Dim dr As sqldatareader = cmd.executereader
ddlclass.DataSource = dr
ddlclass.DataTextField = "username"
ddlclass.DataBind()
dr.close()
conn.close()
End If
End Sub
End Class
整个load 事件代码
using System.Collections;
页面代码如下imports system.data.sqlclient
page_load事件中 If Not Me.IsPostBack Then
Dim conn As New sqlconnection(ConfigurationSettings.AppSettings("DBConnStr"))
Dim cmd As New sqlcommand("select distinct username from agentuser", conn)
conn.open()
Dim dr As sqldatareader = cmd.executereader
ddlclass.DataSource = dr
ddlclass.DataTextField = "username"
ddlclass.DataBind()
dr.close()
conn.close()
End If
End Sublz 你的代码不会是 copy到页面上的吧