[vb.net] dropdownlist da codice

[pietro09]

Si può fare in tanti modi: uno è questo.
ESEMPIO: tabella delle regioni con dropdown delle province


Nella pagina metti un

<asp:Literal ID="Literal1" runat="server" EnableViewState="false"></asp:Literal>

dove ti pare e piace

Nel codice:

Option Strict On
Imports l = libreria.ModuloWeb
Imports o = System.Data.OracleClient

Partial Class prove_a
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim connessione As o.OracleConnection = Nothing

        Try
            connessione = New o.OracleConnection(gl.StringaConnessioneSIA)
            connessione.Open()

            Me.Literal1.Text = getTabella(connessione)

        Catch ex As Exception
            l.MessaggioErrore(ex)
        Finally
            If connessione IsNot Nothing Then connessione.Close()
        End Try
    End Sub

    Private Function getTabella(ByVal connessione As o.OracleConnection) As String
        Dim dt As DataTable = msora.GetDataTable(connessione, "select * from regioni order by nome_regione")
        Dim sb As New StringBuilder()

        sb.Append("<table>")
        sb.Append("<tr>")
        sb.Append("<th>Regione</th>")
        sb.Append("<th>Province</th>")
        sb.Append("</tr>")

        For i As Integer = 0 To dt.Rows.Count - 1
            sb.Append("<tr>")

            sb.Append(String.Format("<td>{0}</td>", l.NullToSpace(dt.Rows(i)("nome_regione"))))
            sb.Append(String.Format("<td>{0}</td>", getProvince(connessione, CInt(dt.Rows(i)("id_regione")))))

            sb.Append("</tr>")
        Next
        sb.Append("</table>")
        Return sb.ToString
    End Function

    Private Function getProvince(ByVal connessione As o.OracleConnection, ByVal id_regione As Integer) As String
        Dim dt As DataTable = msora.GetDataTable(connessione, String.Format("select * from province where id_regione = {0} order by nome_provincia", id_regione))
        Dim sb As New StringBuilder()

        sb.Append("<select style=""width:200px;"">")

        For i As Integer = 0 To dt.Rows.Count - 1
            sb.Append(String.Format("<option value=""{0}"">{1}</option>", l.NullToString(dt.Rows(i)("id_provincia")), l.NullToString(dt.Rows(i)("nome_provincia"))))
        Next
        sb.Append("</select>")
        Return sb.ToString

    End Function
End Class

[djciko]

Originariamente inviato da pietro09
Imports l = libreria.ModuloWeb
Imports o = System.Data.OracleClient

VVoVe: questa mi mancava !

[pietro09]

Originariamente inviato da djciko
VVoVe: questa mi mancava !

è per accorciare il codice

[djciko]

Originariamente inviato da pietro09
è per accorciare il codice

giuro che non l'avevo mai vista

[pietro09]

Originariamente inviato da djciko
giuro che non l'avevo mai vista

Hai letto qualcosa del "Balena"? :master:

[djciko]

Originariamente inviato da pietro09
Hai letto qualcosa del "Balena"? :master:

si certo, questo

e questo

[pietro09]

Allora vai a pagina 35 del secondo libro e... leggila

[djciko]

Originariamente inviato da pietro09
Allora vai a pagina 35 del secondo libro e... leggila

non ce l'ho dove abito vedrò nel weekend

[stefanomnn]

CIAO!
se vuoi creare la ddl via codice, prova cosi:
dim myDdl as new DropDownList
myDdl.ID="pippo"
myDdl.Items.Add(new ListItem("uno","1")
myDdl.Items.Add(new ListItem("due","2"))

controlloContenitore.Controls.Add(myDdl)