1、在web.config设置全局变量
<configuration>
............................
<appSettings>
<add key="ConnectionString" values="server=localhost;database=northwind;uid=sa;pwd=sa123"/>
<add key="UploadPath" values="Upload/"/>
</appSettings>
.................. ..........
</configuration>
在页面中引用该全局变量
Public ConnStr As String = ConfigurationSettings.AppSettings("ConnectionString")
在程序中直接用ConnStr进行数据库连接就可以了。
2、往dropdownlist中绑定数据
首先在窗体中加入dropdownlist元件,其中datatextfield是显示出来的项目,而datavaluefield是传递的值。
DropDownList ID="ddlsite" Runat="server" Width="100" DataTextField="Companyname" DataValueField="contactname"
然后添加代码,我找到了两种方法:
1〉将dropdownlist绑定datatable或dataview
Dim selectcmd As String = "select distinct companyname,contactname from customers"
Dim mydataset As DataSet = New DataSet
Dim myadapter As SqlDataAdapter = New SqlDataAdapter(selectcmd, connstr)
myadapter.Fill(mydataset, "name")
Dim row As DataRow = mydataset.Tables("name").NewRow()
row.Item(0) = "please select"
row.Item(1) = "0"
mydataset.Tables("name").Rows.InsertAt(row, 0)
'使用dataview和datatable都可以實現該功能
' Dim mydataview As New DataView(mydataset.Tables("name"))
' CUSID.DataSource = mydataview
' CUSID.DataBind()
Dim mydatatable As DataTable
mydatatable = mydataset.Tables("name")
CUSID.DataSource = mydatatable
CUSID.DataBind()
'***********************************************************
2〉使用datareader,将数据一行一行读入
ddlsite.Items.Clear()
ddlsite.Items.Add("")
Dim cmd As SqlCommand = New SqlCommand(selectcmd, conn)
Dim reader As SqlDataReader
reader = cmd.ExecuteReader()
Do While reader.Read
ddlsite.Items.Add(New ListItem(reader.Item("companyname"), reader.Item("contactname")))
Loop
reader.Close()