Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta| Hay un total de 204 Preguntas. | << >> |
| Pregunta: | 67846 - CREAR CLASS1 EN VB DE OPERACIONES |
| Autor: | JUAN MA HUERTA |
| Por favor necesito orientación. Tengo un el codigo visual basic.net y contiene todo lo necesario para realizar operaciones se + - * / Module Module1 Function sumar(ByVal x As Double, ByVal y As Double) As Double Dim resultado As Double = 0 resultado = x + y Return resultado End Function Function restar(ByVal x As Double, ByVal y As Double) As Double Dim resultado As Double = 0 resultado = x - y Return resultado End Function Function multiplicar(ByVal x As Double, ByVal y As Double) As Double Dim resultado As Double = 0 resultado = x * y Return resultado End Function Function dividir(ByVal x As Double, ByVal y As Double) As Double Dim resultado As Double = 0 resultado = x / y Return resultado End Function Sub Main() Dim a As Double = 67 Dim b As Double = 23 Dim s As Double = 0 Dim r As Double = 0 Dim m As Double = 0 Dim d As Double = 0 s = sumar(a, b) System.Console.WriteLine("sumar= " & s) r = restar(a, b) System.Console.WriteLine("restar= " & r) m = multiplicar(a, b) System.Console.WriteLine("multiplicar= " & m) d = dividir(a, b) System.Console.WriteLine("dividir= " & d) System.Console.ReadLine() End Sub End Module NECESITO AYUDA PARA CONSTRUIR UNA CLASE NUEVA CON EL NOMBRE OPEARITME Y NO TENDO IDEA DE COMO HACERLO YA QUE REALIEC UNO MUY SENCILLO CLASS 1 Public Class Class1 Public Sub monto(ByVal y As Integer) System.Console.WriteLine(y) System.Console.ReadKey() End Sub End Class MODULE Module Module1 Sub Main() Dim c As Integer Dim cuenta As New Class1 c = 60 cuenta.monto(c) End Sub End Module Por favor un rumbo, se que es pregunta de novato pero por algún lado tengo que empezar. Gracias. | |
| Contestar |
| Pregunta: | 67874 - ORDENAR EN DATAGRIDVIEW COLUMNAS DE TIPO COMBOBOX CON DATASO |
| Autor: | Fernando |
| Buen día, estoy programando en VB 2008 .NET y me encontré con el siguiente problema. Tengo un DataGridView (DGV) enlazado a una base de datos (origen de datos BindingSource) y una de las columnas del DGV es de tipo ComboBox con DataSource, en el cual el ValueMember es un Id (numérico) y el DisplayMember es un nombre o descripción. El problema reside al correr la aplicación, cuando al hacer click en el encabezado de la columna del ComboBox para ordenar los datos de la misma, los ordena por el Id del ValueMember y no por el DisplayMember que es el que se muestra, provocando que no quede ordenada alfabéticamente sino numéricamente y por un valor que ni siquiera se muestra. Si alguien sabe como resolver este problema le estaré muy agradecido. Saludos! | |
| Contestar |
| Pregunta: | 67909 - DIBUJO DE BORDES EN UN CONTROL DATAGRIDVIEW |
| Autor: | Oswaldo Feo |
| Hola experto, estoy dibujando sobre un control DatagridView, en este le dibujo estilos de bordes diferentes a los que trae por defecto la propiedad BorderStyle con las funciones graficas que me proporciona el evento OnPaint. Mi problema radica mas que todo en el efecto de visualizaciòn cuando me desplazo atravès de la barra de desplazamiento que tiene el control datagidview, el cual me redibuja el control a medida que me desplazo pero las lineas del borde derecho se adhieren a las columnas que cuando realizo el desplazamiento se van visualizando rayas verticales en todas las columnas del control visualizandose un efecto no deseado. serìa de gran ayuda si me ayudaran a corregir este problema. De ante mano muchas gracias. | |
| Contestar |
| Pregunta: | 67967 - PASAR PARAMETROS DE LISTBOX A CRYSTAL REPORTS |
| Autor: | Mario Zaldívar |
| Como puedo pasar parametros de listbox a crystal reports, por medio de seleccion multiple. El crystal reports esta configurado para recibir parametros por rango Agradecere sus comentarios Saludos Mario | |
| Contestar |
| Pregunta: | 67970 - ERRO EN PAGINACION EN VB Y ASPX NO SE VE LOS DATOS |
| Autor: | Sandra B |
| Hola, no se mucho o casi nada de VB y asp.net, pero utilice una paginacion que encontre en la web, pero necesitaba colocarle un filtro especifico. Cuando la consulta es Select * FROM capacitacion funciona perfectamente y se muestra los datos de la consulta pero cuando la consulta es Select * FROM capacitacion WHERE id=1 no se muestran los datos... es como si quedara totalmente vacia envio el codigo para ver donde esta el error, Aclaro que poco se de esto :-) Muchas gracias ------------- .vb Imports System.Data Imports System.Configuration Imports System.Web Imports System.Web.Security Imports System.Web.UI Imports System.Web.UI.WebControls Imports System.Web.UI.WebControls.WebParts Imports System.Web.UI.HtmlControls Imports System.Data.SqlClient Imports System.IO Imports System.Web.Hosting Partial Public Class productos_busqueda ' TODO: *** Comprobar si es Inherits o Implements *** Inherits System.Web.UI.Page Property cnx As SqlConnection Property cmd As SqlCommand Property resultado As SqlDataReader Dim tip As String Dim are As String Dim inten As String Dim moda As String Dim fecha As String Dim palabra As String Dim tip2 As String Dim are2 As String Dim inten2 As String Dim moda2 As String Dim fecha2 As String Dim palabra2 As String Dim strPaginacion As String = String.Empty Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load ''If Not Page.IsPostBack Then 'bindData() ' End If End Sub Private Sub bindData() Me.tip2 = Request.QueryString("tipo") Me.are2 = Request.QueryString("area") Me.moda2 = Request.QueryString("modalidad") Me.inten2 = Request.QueryString("intensidadhorario") Me.palabra2 = Request.QueryString("palabra") Me.fecha2 = Request.QueryString("fecha") '''' If Request.QueryString("tipo") = 0 Then tip = " AND idTipo > 0" Else tip = " AND idTipo = '" + tip2 + "'" End If '''' If Request.QueryString("area") = 0 Then are = " AND idArea > 0" Else are = " AND idArea = '" + are2 + "'" End If '''' If Request.QueryString("modalidad") = 0 Then moda = " AND idModalidad > 0" Else moda = " AND idModalidad = '" + moda2 + "'" End If '''' If Request.QueryString("intensidadhorario") = 0 Then inten = " AND idIntensidad > 0" Else inten = " AND idintensidad = '" + inten2 + "'" End If '''' If Request.QueryString("palabra") = "" Then palabra = "" Else palabra = " AND titulo LIKE '" + palabra2 + "' OR descripcion LIKE '" + palabra2 + "'" End If '''' If Request.QueryString("fecha") = "" Then fecha = "" Else fecha = " AND fecha >= '" + fecha2 + "'" End If Dim conn As New SqlConnection("Server='';Database='';Uid='';Pwd=''") Dim cmd As New SqlCommand("Select * FROM capacitacion where activo='A' " + tip + " " + moda + " " + inten + " " + are + " " + palabra + " " + fecha + " ORDER BY titulo", conn) Dim ds As New DataSet() Dim da As New SqlDataAdapter(cmd) da.Fill(ds) Dim objPds As New PagedDataSource() objPds.DataSource = ds.Tables(0).DefaultView objPds.AllowPaging = True objPds.PageSize = 3 Dim CurPage As Integer If Request.QueryString("IDP") IsNot Nothing Then CurPage = Convert.ToInt32(Request.QueryString("IDP")) Else CurPage = 1 End If objPds.CurrentPageIndex = CurPage - 1 strPaginacion = "" If Not objPds.IsFirstPage Then strPaginacion = "<a href='productos.aspx?IDP=" & Convert.ToString(CurPage - 1) & "' class=pag_button>« anterior</a>" End If If objPds.PageCount > 0 Then strPaginacion += "<span class='pag_button'> " & CurPage.ToString() & " de " & objPds.PageCount.ToString() & " </span> " End If If objPds.PageCount > 1 Then If Not objPds.IsLastPage Then strPaginacion += "<a href='productos.aspx?IDP=" & Convert.ToString(CurPage + 1) & "' class=pag_button>siguiente »</a>" End If DataList1.DataSource = objPds End If DataList1.DataBind() End Sub ' Protected Function GetPaginacion() As String Return (strPaginacion) End Function End Class ---------------------pagina que es como si mostrara la consulta vacia <asp:Repeater ID="DataList1" runat="server"> <ItemTemplate> <%# DataBinder.Eval(Container.DataItem, "titulo")%> </ItemTemplate> <FooterTemplate> <div > <a ><%= GetPaginacion() %></a> </div> <!-- end --> </FooterTemplate> </asp:Repeater> ------------------ De antemano MIL GRACIAS por su tiempo y su colaboracion | |
| Contestar |
| Pregunta: | 68070 - DAYABINDINGSOURCE ENTRE TABLAS RELACIONADAS |
| Autor: | Eduardo Bernal Alvarez |
| Hola, Estoy teniendo mi primer contacto con VB.net, y estoy tratando de hacer funcionar un proyecto sencillo que consiste básicamente en la conectar y gestionar los registros de una base de datos de MS Access a través de formularios “Windows Forms” creados con “Visual Studio 2010”. A base de videos y foros he conseguido lo mas básico y funciona, pero llevo ya bastante tiempo atrancado en una asunto que no logro entender. En mi base de datos de Access hay tres tablas relacionadas: tDOCUMENTACION, tRESPONSABLE, tHISTORIAL La tabla tDOCUMENTACION está relacionada con la tabla tHISTORIAL mediante una relación "uno a varios" donde tDOCUMENTACION.IdDocumento es la clave primaria y tHISTORIAL.IdDocumento es la clave externa La tabla tRESPONSABLE está relacionada con la tabla tDOCUMENTO mediante una relación "uno a varios" donde tRESPONSABLE.IdResponsable es la clave primaria y tDOCUMENTO.IdResponsable es la clave externa. Mediante los "wizards" de VB Studio he conseguido vincular el DataSource de un control DataGridView (dgvDocumento) a la tabla tDOCUMENTO, creándose automáticamente un databindingsource (tDOCUMENTObindingSource) que lo controla, y, de la misma forma he conseguido vincular el DataSource de otro control DataGridView (dgvHistorial) a la tabla tHISTORIAL que está sincronizado a la selección de la fila que haga en el "dgvDocumento", de forma que la información del "dgvHistorial" va variando a medida que se van seleccionando los diferentes registros del "dgvDocumento". He estado investigando un poco y he observado que para llevar a cabo esta sincronización entre ambos controles "DataGridView" el origen de datos del control "dgvHistorial"es un "DataBindingSource" que tiene como "DataSource" la relación entre las tablas DOCUMENTO e HISTORIAL del DATASET. Hasta aquí todo bien.., el problema comienza cuando quiero que se presente sobre el mismo formulario un control TEXTBOX (txtNombreResponsable)que muestre la información de una columna (NombreResponsable)de la tabla tRESPONSABLE, a medida que cambio de registro en el dgvDocumento. De esta forma, a medida que me muevo sobre las filas del dgvDocumento podría ir visualizando la información relacionada de la tabla tHISTORIAL en el dgvHistorial y el nombre de la persona responsable del documento en cuestión contenida en la tabla tRESPONSABLE (relacionada con la tabla tDOCUMENTO) en el control "txtNombreResponsable" Lo que he intentado ha sido añadir un "DataBindingSource" (tDocumentotResponsableBindingSource) en el formulario cuya "DataSource" sea el "tDOCUMENTObindingsource", y el "DataMember" la relación existente en el DataSet entre las tablas tDOCUMENTO y tRESPONSABLE, con la intención de, hecho esto, utilizar la línea de código: Me.txtNombreResponsable.DataBindings.Add("text", DocumentoResponsableBindingSource, "NombreResponsable") El caso es que cuando creo el "tDocumentotResponsableBindingSource" y le asocio como "DataDource" el "DOCUMENTObindingSource" no me permite asociar como "DataMember" la relación entre las tablas tDOCUMENTO y tRESPONSABLE, dejándome como única opción para el DataMember la relación entre la tablas tDOCUMENTO e tHISTORIAL, que es la que utilicé para asociar el "dgvHistorial" al "dgvDocumento". El mensaje de error que me sale es “El valor de la propiedad no es válido: La propiedad DataMember 'tblRESPONSABLEtblDOCUMENTO' no se encontró en DataSource” ¿cómo debo hacerlo?, muchas gracias y perdón por el rollete, pero es muy complicado para mí explicar esto con palabras. saludos. | |
| Contestar |
| Pregunta: | 68084 - AYUDA CON VB 2010 Y CRYSTAL REPORTS |
| Autor: | eduardo del angel |
| quiero que me ayuden con este problema lo que pasa es que estoy haciendo una aplicacion en VB.net de visualstudio 2010 y no trae el Crystal Reports lo que ice es descargarlo e instalarlo pero al momento de agregar un archivo .rpt para hacer el reporte me abre una pagina que dice que descargue la vercion de Crystal Reports para vb 2010. ya lo e instalado con anterioridad pero lo volvi a descargar e instalar y sigue = no se como hacerle o poruqe sale esto. espero que me ayuden gracias =) | |
| Contestar |
| Pregunta: | 68094 - CONSUMIR WEB SERVICES DESDE APLICACION ESCRITORIO |
| Autor: | Juan Mamani |
| Alguien tiene idea como consumir un web serivce desde una aplicación de escritorio? Ya sea desde Java, PHP, Visual Studio????????? mediante SOAP y XML Puedo ver los servicios pero la mayoria solo explican como hacerlo desde una apliación montada en un servidor web. Yo quiero hacerlo desde una apliación de escritorio. gracias! | |
| Contestar |
| Pregunta: | 68102 - ELIMINAR DIRECCION DE ARCHIVO |
| Autor: | Victor Manuel Alvarez Lopez |
| hola amigos espero que me puedan ayudar , estoy intentado hacer un reproductor en visual basic. net pero al momento de llamar la cancion que quiero escuchar me aparece con todo y la direccion y solo quiero que paresca el nombre de la cancion como podria hacer para que no me aparesca la ubicacion de la cancion | |
| Contestar |
| Pregunta: | 68127 - PORQUE ME MUESTRA EL PRIMER REPORTE? |
| Autor: | eduardo del angel |
| estoy creando reportes con Cristal report y cree el primero mandando a llamar un procedimiento almacenado ____________________________________________________ Dim dt As New DataTable dt = principal.reportes("exec sp_SISBEI_RepCarreras '" + cmbCarreras.SelectedIndex.ToString + "'") Dim repo As New rpBecasCarrer repo.SetDataSource(dt) crvBecasCarrera.ReportSource = repo _____________________________________________________ esta es la forma. pero al crear otro me manda este mismo reporte y no el nuevo que acabo de crear _____________________________________________________ Dim dt As New DataTable dt = principal.reportes("exec sp_SISBEI_Encuesta1 '" + cmbTipoBecas.SelectedIndex.ToString + "'") Dim repo As New rpBecasCarrer repo.SetDataSource(dt) crvBecaEncuesta.ReportSource = repo _____________________________________________________ los dos les paso parametros de la sig manera _____________________________________________________ dt_carre = principal.consultaDSSQ("select chrClvTipoBecaInt, vchNombreBecaInt from tbl_SISBEI_TiposBecasInt") cmbTipoBecas.ValueMember = "chrClvTipoBecaInt" cmbTipoBecas.DisplayMember = "vchNombreBecaInt" cmbTipoBecas.DataSource = dt_carre _____________________________________________________ en el SelectedIndexChanged de un combobox los dos estan en diferentes formularios y los crystalreportview estan en un formulario cada uno con diferente nombre y el combo es igual diferente con diferente consulta. y cada uno tiene su propio dataset y los reportes no es el mismo son 2 diferentes.... el problema es q siempre me manda el reporte que cree primero y los demas no me los muestra en el reportview | |
| Contestar |
| |< << 11 12 13 14 15 16 17 18 19 20 21 >> >| |