高手求求你们 帮帮我....我是新手.不会come on帮忙!

Question

VB.NET 数据库内容赋给select option里面 
<select id=CCN  runat="server"> 
  <option> </optiom> 
</select> 

Answer 1

        Dim Con = New DBS()
        Dim SQL = New SQL()
        Dim cmd As New OleDbCommand(SQL.SQLsecure(), Con.Conn())
        Dim reader As OleDbDataReader
        Try
            Con.DBOpen()
            reader = cmd.ExecuteReader()
            Do While reader.Read()
                Dim NewItem As New ListItem()
                NewItem.Text = reader("厚生年金告知番号")
                yys.Items.Add(reader("厚生年金告知番号"))
            Loop
            reader.Close()        Catch ex As Exception            If (Not Con.Conn Is Nothing) Then
                Con.DBClose()
            End If
        End Try自己做出来了  晕