Llenar un DropdownList desde una consulta SQl ASP.Net

  Private Sub cargalistaño ()
        Dim dt As New DataTable
        Dim DataReaderidt Como SqlDataReader
        Cmdincluir Dim = Nuevo SqlClient.SqlCommand ()
        Dim idtarea As String = ""
        Dim cmdcargar Como SqlClient.SqlCommand
        Dim MiDataReader Como SqlDataReader
        Dato Dim As String
        Dim IdPlan As String
        IdPlan = BuscaAño ()
        conex.Close ()
        Si coneccion_BD ("Usuario", "contraseña") = 1 Entonces
            conex.ConnectionString = strconexion
            Dim Comando1 As New SqlCommand ("intruccion de seleccionar aqui" '", conex)
            conex.Open ()
            DataReaderidt = Comando1.ExecuteReader ()
            Si DataReaderidt.HasRows = True Luego
                Do While DataReaderidt.Read = True
                    Para v = 0 Para DataReaderidt.FieldCount - 1
                        idtarea = idtarea & "'" & DataReaderidt (0) & "'"
                    Próximo
                Bucle
                Dim pelotas As Long
                no molestar = Len (idtarea) - 1
                End If
            DataReaderidt.Close ()
            conex.Close ()
                cmdcargar = Nuevo SqlClient.SqlCommand
            Con cmdcargar
              
    End Sub

Guardar en Sql (insertar)

 Try

            conex.Close()

            If coneccion_BD("usuario", "contraseña") = 1 Then

                conex.ConnectionString = strconexion

                              Dim Datos As String = "'" & id & "', " & "'" & idtarea & "','" & idprograma & "','" & Session("Origen") & "','" & TxtAlcance.Text & "','" & TxtProAud.Text & "','" & buscasigla(Session("Usuario")) & "','" & TxtReferencia.Text & "'"

                conex.Open()

                With cmdincluir

                    .Connection = conex

                    .CommandText = "INSERT INTO [AUDITORIA].[dbo].[ProgramaAuditoria]([IdPlan] ,[IdTarea] ,[IdPrograma],[Origen],[Alcance],[Procedimiento],[Elabora],[Referencia]) VALUES(" & Datos & ")"

                    .CommandType = CommandType.Text

                    .Transaction = transaccion

                End With

                iRegincluir = cmdincluir.ExecuteNonQuery 'No retorna una Consulta

                'Cerramos conexion

                conex.Close()

                          End If

        Catch ex As Exception

            'Anunciamos el error

            LblErrores.Text = ex.Message

        End Try

Inicio

Inicio la aventura en lo que es Blogger para ayudar y aprender sobre códigos de VB.Net