Public Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
'调出系部名称
dim myConnection As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
Dim myCommand As New SqlDataAdapter("select * from [Department]", myConnection)
Dim ds As New DataSet()
myCommand.Fill(ds, "Department")
'将系部名称赋值给系部设置
D_Name.DataSource =ds.Tables("Department")
D_Name.DataTextField="D_Name"
D_Name.DataValueField ="D_ID"
D_Name.DataBind()
myConnection.close()
End sub
博客内容展示了一段代码,通过创建SqlConnection和SqlDataAdapter,使用DataSet填充数据,将系部名称从数据库中调出,并赋值给系部设置,最后关闭数据库连接,涉及信息技术中数据库数据调用相关操作。
3865

被折叠的 条评论
为什么被折叠?



