hola como estan aca nuevamente con otro problema les cuento

tengo un DropDownList lo lleno desdee una base de datos pero necesito que quede selecionado un dato que esta guardado pero no se como se hace
ojala me puedan ayudar de antemano gracias
 el dato se lo paso de lo tengo en una variable

nmprofesor = leer("Nombre_Profesor")
 
Dim buscar1 As Data.SqlClient.SqlDataReader
 Dim consultar1 As New SqlCommand("SELECT NOMBRE FROM profesores order by nombre", conexión)
 buscar1 = consultar1.ExecuteReader()
 Profesor.DataSource = buscar1
 
 Profesor.DataTextField = "NOMBRE"
 Profesor.DataValueField = "NOMBRE"
 Profesor.DataBind()
 buscar1.Close()

 

Nota del mod: con etiquetas queda más legible

hola  lo solucione asiqye les dejo el codigo por si les sirve

Protected Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView1.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            If e.Row.Cells(5).Text = 2 Then
                e.Row.Cells(4).BackColor = Color.Green
                ' e.Row.Cells(4).ForeColor = Color.Black

                e.Row.Cells(4).Enabled = False

            Else
                e.Row.Cells(4).BackColor = Color.Yellow
            End If

        End If



    End Sub

Hola de nuevo al foro  estoy con un preblema necesito que me muestre cierta imagen una columna si se cumple una condicion uy otra imagen si se cumple otra condicion luego si esa condicion contien un valor x me deje deaabilitado una fila de otra columna
mmm se puede hacer ....

gracias de antemano  

asi  lleno el gridview

 Dim conexión As New SqlConnection(WebConfigurationManager.ConnectionStrings("LocalSqlServer").ConnectionString)
        Dim consulta As New SqlCommand("select CODCARR, CODPESTUD,nombre_c from  matricula.mt_carrer where codcarr='" & Trim(Request.QueryString("carrera")) & "'", conexión)
        conexión.Open()
        buscar = consulta.ExecuteReader()
        Do While buscar.Read()
            codpestud = buscar("codpestud")
            titulo = buscar("nombre_c")
        Loop
        buscar.Close()
        Dim consultar As New SqlCommand("SELECT  RAMO.HORAS_PLAN AS [HORAS PLAN],RAMO.CODRAMO, RAMO.NOMBRE,CURRIC.CODPESTUD,ramo.periodo FROM matricula.RA_RAMO RAMO, matricula.RA_CURRIC CURRIC WHERE (CURRIC.CODPESTUD='" & codpestud.ToString() & "')AND RAMO.CODRAMO = CURRIC.CODRAMO order by codramo", conexión)
        Dim adapter As New SqlDataAdapter()
        adapter.SelectCommand = consultar
        Dim dataset As New DataSet
        adapter.Fill(dataset, "RA_curric,RA_RAMO")
        conexión.Close()
        GridView1.DataSource = dataset
        GridView1.DataBind()

hola juan eso era lo que me faltaba super quedo impeque gracias ... muy bueno el foro una consulta al usar el control login seria la misma logica y programacion.. ?

hola juan les envio  los archivos con el codigo  

* cuando hago el logeo con mi  usuario y clave me devuelve un true y cuando no un false y depende de eso lo redirecciono

<?xml version="1.0" encoding="utf-8"?>

<configuration>
  
    <appSettings/>
  <connectionStrings>
    <remove name="LocalSqlServer" />
    <add name="LocalSqlServer"   connectionString="Data Source=xxxxx;Initial Catalog=ordenes;Integrated Security=false;User ID=xxxx;Password=xxxx ;"
        providerName="System.Data.SqlClient="/>
  </connectionStrings>
  
    <system.web>
        <compilation debug="true" strict="false" explicit="true" />
        <pages>
            <namespaces>
                <clear />
                <add namespace="System" />
                <add namespace="System.Collections" />
                <add namespace="System.Collections.Specialized" />
                <add namespace="System.Configuration" />
                <add namespace="System.Text" />
                <add namespace="System.Text.RegularExpressions" />
                <add namespace="System.Web" />
                <add namespace="System.Web.Caching" />
                <add namespace="System.Web.SessionState" />
                <add namespace="System.Web.Security" />
                <add namespace="System.Web.Profile" />
                <add namespace="System.Web.UI" />
                <add namespace="System.Web.UI.WebControls" />
                <add namespace="System.Web.UI.WebControls.WebParts" />
                <add namespace="System.Web.UI.HtmlControls" />
            </namespaces>
        </pages>

      <identity impersonate="true"/>
      <authentication mode="Forms">
        <forms loginUrl="default.aspx" protection="All" timeout="60" path="/"/>
      </authentication>
      <authorization>
        <deny users="?" />
        <!-- solo los usuarios autentificados -->
      </authorization>
      
          <customErrors mode="Off"/>
        </system.web>
    
</configuration>
y el default.aspx.vb

Partial Public Class _Default
    Inherits System.Web.UI.Page

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

    End Sub

    Protected Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim objAlumno As New Logeo()

        objAlumno.usuario = Me.txtusuario.Text
        objAlumno.clave = Me.txtclave.Text

        If objAlumno.Existe() Then
            Response.Redirect("menu.aspx")

        Else
            lblmensaje.Text = "El Usuario O Clave no Existe"
        End If

    End Sub
End Class


y la clase


Imports System.Web
Imports System.Web.Configuration
Imports System.Data
Imports System.Data.SqlClient
Public Class Logeo
    Private txtusuario As String
    Private txtclave As String

    Public Property usuario() As String
        Get
            Return Me.txtusuario

        End Get
        Set(ByVal value As String)
            Me.txtusuario = value
        End Set
    End Property
    Public Property clave() As String
        Get
            Return Me.txtclave


        End Get
        Set(ByVal value As String)
            Me.txtclave = value
        End Set
    End Property

    'Public Sub New(ByVal usuario As String, ByVal clave As String)
    '    Me.txtusuario = usuario
    '    Me.txtclave = clave

    ' End Sub

    Public Function Existe() As Boolean

        Dim blnExiste As Boolean
        Dim objConexion As New SqlConnection(WebConfigurationManager.ConnectionStrings("LocalSqlServer").ConnectionString)
        Dim objComando As SqlCommand = New SqlCommand("login", objConexion)
        objConexion.Open()
        objComando.Connection = objConexion
        objComando.CommandType = CommandType.StoredProcedure
        'ExecuteScalar de vuelve una fila y una columna
        objComando.Parameters.AddWithValue("@usuario", Me.txtusuario)
        objComando.Parameters.AddWithValue("@clave", Me.txtclave)
        blnExiste = objComando.ExecuteScalar() > 0
        objConexion.Close()
        Return blnExiste


    End Function

End Class


 

hola a todos los del foro

aca de nuevo  con otro problema

   tengo una pagina default.aspx  para  logearme  y cuando estoy registrado  la redirecciono a otra pagina que se llama menu con un  Response.Redirect("menu.aspx")

pero en la url me sale
 http://localhost:1380/default.aspx?ReturnUrl=%2fmenu.aspx
se supone que  tiene que salir

http://localhost:1380/menu.aspx 

ojala me puedan ayudar gracias de antemano
 

a ok lo lo  solucionado gracias al foro  muchas gracias
pero   haora estoy con otro problema  tengo una pagina default.aspx y la logearme cuando estoy registrado  la redirecciono a otra pagina que se llama menu con un  Response.Redirect("menu.aspx")

pero en la url me sale
 http://localhost:1380/default.aspx?ReturnUrl=%2fmenu.aspx
se supone que  tiene que salir

http://localhost:1380/menu.aspx 
ojala me puedas ayudar gracias de antemano

ok muchas gracias funciono al volver a consultar y  con lo del databind() te refieres a esto
  Dim Id As Integer = Me.grdprofesor.DataKeys(e.RowIndex).Value()

            Dim conexión As New SqlConnection(WebConfigurationManager.ConnectionStrings("LocalSqlServer").ConnectionString)
            Dim consulta As New SqlCommand("delete  FROM DETALLES_PROFESORES where Id='" & Trim(Id) & "'", conexión)
            conexión.Open()
            consulta.ExecuteReader()
            Me.grdprofesor.DataBind()
            conexión.Close()

si es asi muchas gracias el problema que me da si es que al borrar el ultimo registro da un error de intervalo aunque este con masdartos el griedview ???
 

no funciona nada asique mejor opte por sacar los acentos y las ñ de la base

hola como estan bueno primero quiero agradecer al foro que es muy bueno e solucionado varios problemas .
El problema que tengo es  teng un GridView  con un boton eliminar y editar el boton eliminar lo tengo programado  y elimina el dato de la base pero la volver al GridView  lo sigo viendo hasta que vuelvo a recargar la pagina hay recien lo elimina  
 e echo varias cosas pero no me resulta
aca dejo el codigo

desde antemano muchas gracias....


        <asp:GridView ID="grdprofesor" EnableViewState="false"   runat="server" AutoGenerateColumns="False" BackColor="Transparent" ForeColor="White" Caption="ASIGNATURAS POR PROFESOR" Height="81px"
         Width="661px" DataKeyNames="Id" onrowdeleting="grdprofesor_RowDeleting" >
            <Columns>
                <asp:CommandField HeaderText="SELECCIONAR" ShowSelectButton="True" />
                <asp:CommandField HeaderText="ELIMINAR"  ShowDeleteButton="True" />
                <asp:BoundField DataField="Id" HeaderText="IDENTIFICADOR" />
                <asp:BoundField DataField="Nombre_Profesor" HeaderText="NOMBRE" >
                </asp:BoundField>
                 <asp:BoundField DataField="Nombre_Asignatura" HeaderText="ASIGNATURA" />
                  <asp:BoundField DataField="Nombre_Carrera" HeaderText="CARRERA" />
                   <asp:BoundField DataField="Escuela" HeaderText="ESCUELA" />    
            </Columns>
            <HeaderStyle ForeColor="White" BackColor="Blue" />
        </asp:GridView>



y el codigo  de la funcion

   Protected Sub grdprofesor_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles grdprofesor.RowDeleting
        Dim Id As Integer = Me.grdprofesor.DataKeys(e.RowIndex).Value()
      

        Dim conexión As New SqlConnection(WebConfigurationManager.ConnectionStrings("LocalSqlServer").ConnectionString)
        Dim consulta As New SqlCommand("delete  FROM DETALLES_PROFESORES where Id='" & Trim(Id) & "'", conexión)

        conexión.Open()
        consulta.ExecuteReader()


        conexión.Close()
    End Sub

gracias