• Lunes 18 de Noviembre de 2024, 10:36

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - mpatino06

Páginas: [1]
1
ASP .NET / Active Directory Code Behin Vb
« en: Martes 6 de Junio de 2006, 23:44 »
q mas gente del foro tengo un codigo en vb.net con asp.net donde se muetran la cuentas del active directory el problema es q solo me muetra los datos de la cuenta donde estoy iniciando el programa y la idea es q me muestra todos los usuario, para poder guardarlos en la base de datos y de esta manera crear roles para cada uno de ellos,, les agradezco mucho su ayuda
''''''''''''''''''''''''''''
Dim ResultCount As Integer
        Dim RcdCount As Integer
        Dim selec As String
        Dim username As String
        Dim pwd As String
        Dim strPath As String
        Dim strDomain As String
        Dim domainAndUsername As String
        Dim DirectoryEn As String

        username = "Prueba"
        pwd = "1234"
        strPath = "LDAP://net.servi.com/DC=net,DC=servi,DC=com"
        strDomain = "net"
        domainAndUsername = strDomain + "\" + username
        Dim root As New DirectoryServices.DirectoryEntry(strPath, username, pwd)
        Dim rootSearch As New DirectorySearcher(root)

        Dim SearchResult As SearchResult
        Dim results As SearchResultCollection
        Dim SearchScope As SearchScope
        SearchScope = SearchScope.Subtree

        Dim pam
        pam = Split(Me.User.Identity.Name, "\")
        rootSearch.Filter = ("(samaccountname=" & pam(1) & ")")
        results = rootSearch.FindAll

        For Each SearchResult In results
            Lista.Text &= SearchResult.Properties("samaccountname").Item(0) & "<BR>"
            Lista.Text &= SearchResult.Properties("CN").Item(0) & "<BR>"
            Lista.Text &= SearchResult.Properties("mail").Item(0) & "<BR>"
            Lista.Text &= SearchResult.Properties("company").Item(0)
        Next

2
ASP .NET / Re: Crystal Report
« en: Miércoles 22 de Marzo de 2006, 13:26 »
q mas Ing Marco , creo que te nemos el mismo problema debajo de tu mensaje deje otro mensaje titulado "No Mesale Reporte"y coloque lo siguiente:::

////////////////////////////////////////////////////////////////////////////
A quien me Pueda ayudar le agradezco mucho, esto realizando una aplicacion en asp.net con lenguaje vb diseñe mi reporte con el crysta q el tiene y no me sale el reporte haber si me pueden ayudar este es el procedimiento q utilice

1 Cree una conexion de base de datos sqlserver
2 Cree mi dataset
3 Arrastre de mi conexion de sqlserver la tabla "Equipos", al dataset
4 cree un reporte
5 En origen de datos en el reporte, selecione datos del proyecto
y selecione donde se encontraba el dataset q habia creado e ingrese la tabla Equipos
6 cree un formulario y coloque el CrystalReportViewer1, en el form load del formulario coloque lo siguiente

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.DataSet
Imports System.Configuration.ConfigurationSettings
Imports System.Data.MissingSchemaAction
Imports System.Data.OleDb
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Public Class WebForm2
Inherits System.Web.UI.Page


Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ResultCount As Integer
Dim RcdCount As Integer
Dim selec As String
Dim moDS As New Dataset1
Dim moReportSource As New Cr1

Dim SQLSelect As String = "Select * FROM Equipos"
Dim conn As New SqlConnection(connectionstring)
Dim cmd As New SqlCommand(SQLSelect, conn)
Dim adapter As New SqlDataAdapter(cmd)
Dim ds As New DataSet

conn.Open()
adapter.Fill(moDS)
'conn.Close()

moReportSource.SetDataSource(moDS)
Me.CrystalReportViewer1.ReportSource = moReportSource
Me.CrystalReportViewer1.DataBind()
'''''''


conn.Close()
End Sub


End Class
//////
bueno el reporte me sale con el diseño y el logo pero la cuestio es q no me muestra los datos , si alguien tiene conocimiento de esto le agredeceria su ayuda ya q es para mi culminar mi proyecto de tesis, bueno Gracias por su colaboracion

///////////////////////

bueno ing si encuentras alguien que te ayude te agredeceria q me comentaras como lo hiciste, bueno muchas gracias!!!!

3
ASP .NET / Re: Programar El Enter En Asp.net
« en: Martes 21 de Marzo de 2006, 19:05 »
:unsure: la version 1 en vb.net 2003

4
ASP .NET / Re: Programar El Enter En Asp.net
« en: Martes 21 de Marzo de 2006, 14:33 »
q mas ricardo La rosa , no se si me puedes ayudar, pues no te entiendo bien estoy programado el evento ENTER en una caja de texto, y lo hago con el TextChanged, no se si es lo apropiado, bueno , lo importante es q funciona, pero cuando ingreso texto en la caja de texto , el me hace la busqueda y a la vez me abre otra ventana
q se abre por medio de un boton q hay en ese formulario, en verdad no doy , para como hacer q cuando le de ENTER sobre la caja de texto me haga la busqueda , mas no me abra la ventana,, si hay otra manera de hacerlo te lo agradezco Ricardo, bueno muchas gracias

5
ASP .NET / Re: No Me Sale Datos Del Reporte
« en: Lunes 20 de Marzo de 2006, 15:30 »
A quien me Pueda ayudar le agradezco mucho, esto realizando una aplicacion en asp.net con lenguaje vb diseñe mi reporte con el crysta q el tiene y no me sale el reporte haber si me pueden ayudar este es el procedimiento q utilice

1 Cree una conexion de base de datos sqlserver
2 Cree mi dataset
3 Arrastre de mi conexion de sqlserver la tabla "Equipos", al dataset
4 cree un reporte
5 En origen de datos en el reporte, selecione datos del proyecto
  y selecione donde se encontraba el dataset q habia creado e ingrese la tabla Equipos
6 cree un formulario y coloque el CrystalReportViewer1, en el form load del formulario coloque lo siguiente

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.DataSet
Imports System.Configuration.ConfigurationSettings
Imports System.Data.MissingSchemaAction
Imports System.Data.OleDb
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Public Class WebForm2
    Inherits System.Web.UI.Page


    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ResultCount As Integer
        Dim RcdCount As Integer
        Dim selec As String
        Dim moDS As New Dataset1
        Dim moReportSource As New Cr1

        Dim SQLSelect As String = "Select * FROM Equipos"
        Dim conn As New SqlConnection(connectionstring)
        Dim cmd As New SqlCommand(SQLSelect, conn)
        Dim adapter As New SqlDataAdapter(cmd)
        Dim ds As New DataSet

        conn.Open()
        adapter.Fill(moDS)
        'conn.Close()

        moReportSource.SetDataSource(moDS)
        Me.CrystalReportViewer1.ReportSource = moReportSource
        Me.CrystalReportViewer1.DataBind()
        '''''''


        conn.Close()
    End Sub


End Class
//////
bueno el reporte me sale con el diseño y el logo pero la cuestio es q no me muestra los datos , si alguien tiene conocimiento de esto le agredeceria su ayuda ya q es para mi culminar mi proyecto de tesis, bueno Gracias por su colaboracion

6
ASP .NET / Programar El Enter En Asp.net
« en: Lunes 20 de Marzo de 2006, 14:44 »
muy buenas gente del foro, les cuento q estoy trabajando en una aplicacion en vb.net, utilizando asp.net, con lenguaje vb, bueno mi pregunta es sencilla como haria para hacer busquedas ingresando texto  en una caja de texto, y al ingresar lo q dseseo buscar, al darle enter me haga la busqueda,,,



no se si me explique pero en visual basic 6 lo hacia con el evento keypress, aqui como seria?

gracias y muy  agradaecido con su ayuda!!!

7
ASP .NET / No Me Sale Datos Del Reporte
« en: Miércoles 15 de Marzo de 2006, 21:02 »
q mas gente del foro tengo!! un problema en verdad soy nuevo creando reportes con el crystal de vb.net, bueno el problema es el esiguiente estoy desarrollando una aplicacionen asp.net con codigo vb, cree mi dataset y el reporte, en un fomulario puse el CrystalReportViewer y en el page_load de esa pagina coloque lo siguiente

Dim moReportSource As New Cr1
Dim moDS As New Dataset1


moReportSource.SetDataSource(moDS)
Me.CrystalReportViewer1.ReportSource = moReportSource
Me.CrystalReportViewer1.DataBind()


bueno, cuando cargo la pagina me sale el reporte solamente con el encaberzado y no me muestra ninguno de los datos, por favor si algiin me pude esplicar lo q sucede le agradeceria mucho, gracias

Páginas: [1]