none
DropDownList não carrega! RRS feed

  • Pergunta

  • Pessoal,

    Sabem me dizer onde está o erro, pois o DDL não está retornando os dados.

    O código é este:

    Imports System.Data
    Imports System.Data.SqlClient
    Imports System.Configuration


    Partial Class Maquina
        Inherits System.Web.UI.Page
        '------------------------------------------------------------------------------'

        ' pego a connstr
        Dim strConnStringNew As String = ConfigurationManager.ConnectionStrings.Item("SqlConnectionStringNew").ToString()
        Dim oConn As New SqlConnection(strConnStringNew)

        ' variaveis objetos
        Dim oStr As String
        Dim oCmd As SqlCommand

        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

            ' Carregando os dados da base na combobox
            Try
                Using oConn As New SqlConnection(ConfigurationManager.ConnectionStrings("SqlConnectionStringNew").ConnectionString)
                    oConn.Open()
                    oStr = "SELECT nome_departamento FROM departamento"
                    oCmd = New SqlCommand(oStr, oConn)

                    With Me.ddlDepartamento
                        .DataSource = oCmd.ExecuteReader()
                        .DataTextField = "nome_departamento"
                        .DataValueField = "id_departamento"
                        .DataBind()
                    End With
                End Using

            Catch ex As Exception

            End Try

        End Sub
    End Class


    Missão Crítica

    segunda-feira, 3 de dezembro de 2012 17:38

Respostas

  • Comece tirando esse try..catch.. 

    Como Catch esat vazio, pode ser que esteja mascarando um erro. Depois seu dataValueField usa um campo qua nao esta no select: id_departamento

    Veja:  oStr = "SELECT nome_departamento FROM departamento"

    eu creio que o codigo abaixo deva funcionar.

    Imports System.Data
    Imports System.Data.SqlClient
    Imports System.Configuration
    
    
    Partial Class Maquina
        Inherits System.Web.UI.Page
        '------------------------------------------------------------------------------'
    
        ' pego a connstr
        Dim strConnStringNew As String = ConfigurationManager.ConnectionStrings.Item("SqlConnectionStringNew").ToString()
        Dim oConn As New SqlConnection(strConnStringNew)
    
        ' variaveis objetos
        Dim oStr As String
        Dim oCmd As SqlCommand
    
        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    
            ' Carregando os dados da base na combobox
                Using oConn As New SqlConnection(ConfigurationManager.ConnectionStrings("SqlConnectionStringNew").ConnectionString)
                    oConn.Open()
                    oStr = "SELECT id_departamento, nome_departamento FROM departamento"
                    oCmd = New SqlCommand(oStr, oConn)
    
                    With Me.ddlDepartamento
                        .DataSource = oCmd.ExecuteReader()
                        .DataTextField = "nome_departamento"
                        .DataValueField = "id_departamento"
                        .DataBind()
                    End With
                End Using
    
        End Sub
    End Class


    William John Adam Trindade
    Analyste-programmeur
    ----------------------------------------------------------

    Sogi informatique ltée




    segunda-feira, 3 de dezembro de 2012 17:44
    Moderador