Mensajes

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

Código (vbnet) [Seleccionar] Expandir

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