PREGUNTAS CONTESTADAS - Visual Basic.NET

Hay un total de 338 Preguntas.

<< >>

Pregunta:	52444 - SOBREESCRIBIR UN ARCHIVO
Autor:	Dario Reyes
HOla, tengo el siguiente problema, necesito modificar un archivo de texto de manera tal que se sobreescriban los datos ya existentes. tengo la siguiente funcion que me agrega la info al final sin problemas pero lo que yo necesito es eliminar la informacion anterior y luego anexar esta, intente creando el archivo en blanco con file.WriteAllLines y .writealltext pero no me permite ya que el archivo se encuentra en uso... agredezco cualquier cooperacion. Gracias.! Public Function cambia_Ini(ByVal id_user As String, ByVal id_server As String, ByVal id_pswd As String) As String 'Abre un archivo para escritura. Dim objEscritor As StreamWriter Dim nuevos_datos Dim ruta As String = Server.MapPath("cfg.ini") objEscritor = File.AppendText(Server.MapPath("cfg.ini")) 'Escribe en el archivo objEscritor.WriteLine("") objEscritor.WriteLine("server=" & id_server) objEscritor.WriteLine("user=" & id_user) objEscritor.WriteLine("senia=" & id_pswd) 'Cierra el archivo. objEscritor.Close() End Function

Respuesta:

Dario reyes venegas

Pues bien, ya encontre como solucionarlo, solo era tema de ordenar las instrucciones, adunto la funcion correjida y comentada.

Public Function cambia_Ini(ByVal id_user As String, ByVal id_server As String, ByVal id_pswd As String) As String

'Abre un archivo para escritura.
Dim objEscritor As StreamWriter
Dim nuevos_datos() As String = {""}
Dim ruta As String = Server.MapPath("cfg.ini")
' Abre el archivo, sobreescribe el contenido y lo cierra
File.WriteAllText(ruta, nuevos_datos(0))
' Vuelve a abrir el archivo para escribir los nuevos datos.
objEscritor = File.AppendText(Server.MapPath("cfg.ini"))
'Escribe en el archivo
objEscritor.WriteLine("server=" & id_server)
objEscritor.WriteLine("user=" & id_user)
objEscritor.WriteLine("senia=" & id_pswd)
'Cierra el archivo.
objEscritor.Close()

End Function

Contestar

Pregunta:	52449 - WIA Y .NET
Autor:	Emilio Chandia
hola a todos, estamos realizando una aplicacion en .NET que permita digitalizar imagenes desde un scanner y las guarde en una BD SQL Server, utilizando el WIA lo que estamos buscando es como hacer la conexion, o la referencia entre la aplicacion y el WIA desde ya muchas gracias

Respuesta:	Jose de Jesus Ramirez Aviles
wia solo funciona en windows versiones anteriores al vista te recomiendo usar directshow que funciona para cualquier version de windows incluso hay librerias ya hechas como directshowlib-2005.dll que te facilitara el trabajo

Contestar

Pregunta:	52649 - INCREMENTAR BARRA DE PROGRESO MIENTRAS SE COPIA UN ARCHIVO
Autor:	Boris Pérez Hernández
Salu2. Llevo un rato intentando que una ProgressBar incremente su valor mientras se copia un archivo...Ya he intentado con un timer y una función que me compara el tamaño del archivo a copiar con el tamaño de lo que se ha copiado...etc. Pero nada...ya que al utilizar System.IO.File.Copy() todo lo demás es secundario, o sea no se ejecuta hasta tanto no termine de copiarse el file....Alguna idea? Gracias

Respuesta:

Carlos Torres

Para eso puedes utilizar el componente BackgroudWorker el cual permite correr procesos de manera asincrona (es decir varios hilos de programacion al mismo tiempo). Para mas información sobre como usar este componente puedes revisar en el siguiente link, donde hay un ejemplo muy sencillo y basico sobre este componente en vb.net, c# entre otros

http://carlos-catb.blogspot.com/2007/10/utilizar-el-componente-backgroundworker.html

Contestar

Pregunta:	52721 - COMO GRAFICAR FUNCIONES EN VISUAL.NET
Autor:	Rolando Flores Lara
hola toda la comunidad, quisiera saber como puedo graficar en visual basic.net pues necesito realizar un programa que me grafique funciones de "n" polinomios; se los agradeceria de antemano. cual es la libreria que puedo usar.

Respuesta:	Angel Lopez
Buenas! oye mira a mi me toco hacer eso de tarea hace poco y he publicado en mi blog el codigo fuente de vb.net y la explicacion con imagenes y todo... te dejo el link por si aun lo necesitas ;) http://www.recursosdelweb.com/como-hacer-una-grafica-de-seno-y-coseno-en-visual-basicnet-vbnet/ saludos!

Contestar

Pregunta:	52797 - GRAFICAR FUNCIONES TRIGONOMETRICAS EN VISUAL.NET
Autor:	Fredys Alberto Simanca Herrera
Hola a todos, necesito graficar las funciones trigonometricas en Visual Basic.Net, pero necesito hacerla dentro de un PictureBox, mi pregunta especifica era que en Visual 6.0 yo le daba al Picture una escala por ejempo: (-10,2)-(10,-2), pero en Visual.net no he podido encontrar como darle la escala al Objeto PictureBox, ya que como los valores del seno y coseno no son mayores a 1 ni inferiores a -1. Gracias a quien pueda orientarme al respecto.,

Respuesta:	albe delg
has porbado multiplicar la funcion trigonometrica por la escala ejemp. x = -10 to 10 y = 5*sen(x) Y va de -5 a 5

Contestar

Pregunta:	52813 - ACTUALIZACION DE DATOS EN UNA BD DE SQL DESDE VB .NET
Autor:	Javier Campos
Estoy programando un sudoku y he intentado de varias formas guardar los valores en la base de datos y se como hacerlo. La situacion es la siguente: Tengo una BD en SQL con la tabla "SudokuInicial". Creo un adaptador del tipo SqlDataAdapter (SqlDataAdapter1) y un DataSet (DsBuscado). Declaro la tabla referida al dataSet y la lleno con la propiedad Fill. Añado un DataRow con los valores deseados a la tabla con la funcion InsertAt( ) Genero los comandos de actualizacion: Dim Comandos as SqlCommandBuilder = New SqlCommandBuilder(SqlDataAdapter1) SqlDataAdapter1.Update(DsBuscado, "Sudoku") Al ejecutar el programa me carga la base de datos, inserto un los datos nuevos, y aparecen en el programa. Cierro el programa Al volver a ejecutarlo están los datos iniciales, pero no los que añadidos. ¿A que puede ser debido? ¿Se me olvida algo en la actualizacion de datos? Gracias por anticipado, ando un poco perdido con esto

Respuesta:	Mario
lo que te falta es crear una funcion update para que te actualiza los datos de tu base para que no se te pierdan cuando los insertas

Contestar

Pregunta:	52902 - ACTUALIZAR INFORMACION DE FORM1 DESDE FORM2
Autor:	Jacke
Hola Amigos!!!! Necesito de su ayuda..... Estoy desarrollando una aplicación en VB.net 2003. Entro al Form1 y quiero realizar un búsqueda de clientes por lo que doy click al botón de buscar y llamo al form2 en donde se realiza la búsqueda del cliente, lo que necesito es lo siguiente al encontar al cliente deseo capturar los datos y actualizarlos en los textbox del form1 pero me da un error.... Este es el codigo que estoy usando... Form1/frmPedidoCliente Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim fbuscarclientes As New frmBuscarCliente fbuscarclientes.Show() End Sub Form2/frmBuscarCliente Private Sub dgClientes_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgClientes.DoubleClick Dim fila, vcodigo As Integer Dim objcod, objnombre As Object Dim vnombre As String Dim fpedidocliente As new frmPedidoCliente fila = dgClientes.CurrentRowIndex objcod = dgClientes.Item(fila, 0) vcodigo = Format(CInt(objcod)) objcod = dgClientes.Item(fila, 2) vnombre = Format(CStr(objnombre)) ***** fpedidocliente.show fpedidocliente.txtCodCliente.Text = vcodigo fpedidocliente.txtCliente.Text = vnombre Me.Hide() End Sub El ERROR \"Excepción no controlada del tipo \'System.NullReferenceException\" me lo da en esta linea ***** fpedidocliente.show Si me pudiera ayudar se lo agradeceria de corazon, Gracias de antemano

Respuesta:

juan p

bueno jacke realice tu procedimienton pero bota error de intervalo si la es opcion si funciona pero solo jala el numero de serie mas no el nombre

Private Sub dgclientes_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgclientes.DoubleClick

Dim fila, vcodigo As Integer
Dim objcod, objnombre As Object
Dim vnombre As String
Dim fpedidocliente As New frmPedidoCliente
fpedidocliente = Me.Owner
fila = dgclientes.CurrentRowIndex
objcod = dgclientes.Item(fila, 0)
vcodigo = Format(CInt(objcod))
objcod = dgclientes.Item(fila, 2) 'error de intervalo
vnombre = Format(CStr(objnombre))

fpedidocliente.txtCodcliente.Text = vcodigo
fpedidocliente.txtcliente.Text = vnombre
Me.Hide()

porfa indicame como solucionaste este problema
End Sub

Respuesta:

David Garcia

Hola a mi me pasaba algo parecido y descubri una forma de hacerlo, espero que te ayude.
Al crear el Form2 y antes de mostrarlo (.Show()) asigna a la propiedad Owner del objeto recien creado el propio formulario Form1 asi:
Dim fbuscarclientes As New frmBuscarCliente
fbuscarclientes.Owner = me
fbuscarclientes.Show()

Y luego en Form2 no instancies el formulario fpedidocliente, crea una referencia al objeto que ya has creado.

Dim fpedidocliente As frmPedidoCliente
fpedidocliente = me.Owner
.... Resto de código ....

Y no hagas fpedidocliente.Show() pues el formulario Form1 que capturará los datos de vuelta ya esta creado y solo tienes que cambiarle los datos a sus objetos...

Bueno espero que te lo solucione. Un saludo

Contestar

Pregunta:	52979 - COMO CONTROLO LO VALORES NULOS DE UN CAMPO DE UNA TABLA
Autor:	Julio Mogrovejo
SOy nuevo en Visual .Net Ante todo gracias por su apoyo Estoy mostrando valores de los campos de una tabla a mis labels, cada vez que presiono un boton siguiente y cuando el campo del registro no tiene informacion (NULO) me sale el siguiente error: Excepción no controlada del tipo 'System.InvalidCastException' en microsoft.visualbasic.dll Información adicional: La conversión del tipo 'DBNull' al tipo 'String' no es válida. he tratado de controlar el error asi: if IsDBNull(ds.Tables("mitabla").Rows(I).Item(4).GetType) =True Then MsgBox("No hay data en el campo") LblAlt_C.Text = "" Else LblAlt_C.Text = ds.Tables("mitabla").Rows(I).Item(4) End If !estoy usando una tabla de access! alguien me puede ayudar. Mil gracias

Respuesta:

Braulio Romero

puedes modificar tu codigo asi:

if IsDBNull(ds.Tables("mitabla").Rows(I).Item(4)) Then
MsgBox("No hay data en el campo")
LblAlt_C.Text = ""
Else
LblAlt_C.Text = ds.Tables("mitabla").Rows(I).Item(4)
End If

o bien, hacer solamente esto:
LblAlt_C.Text = "" & ds.Tables("mitabla").Rows(I).Item(4)

u otra opciones es que como el dato viene nulo, a veces los dataset hace como que el campo no esxiste, entonces tienes que validar que realmente exista el campo, independintemente que traiga NULL o no

ejemplo:

if ds.Tables("mitabla").Rows(I).Item(4) is nothing = false then
LblAlt_C.Text = ds.Tables("mitabla").Rows(I).Item(4)
else
LblAlt_C.Text = ""
endif

Respuesta:

Migue Rueda

Es un error muy fácil de controlar solo tienes q manejar excepciones, lo q tienes q hacer es lo siguiente:

Try
Aqui pon todos los objetos q estan recibiendo datos, y q pueden quedar blanco, para q la excepcion maneje el error q se produce x el ingreso de datos en blanco.
x ejemplo puede ser algo asi:
c=txtejemplo.text

catch ex as exception

MsgBox(ex.Message)

end try

como ves en el ejemplo q te puse, se puede ver q en algun momento tu puedes ingresar en la caja de texto un dato vacio(NULL) pero el try va a manejar ese error y en vez de cortar la ejecución de tu programa te va a mandar un mensaje de error pero tu programa va a seguir corriendo
Esto se llama manejo de una excepción y eso te sirve para todo tipo de ingreso de datos, como las cajas de texto, archivos, bases de datos, etc.
Creo q con eso esta saldada tu duda.

Migue

Contestar

Pregunta:	52980 - HEADERTEXT DE UN DATAGRID
Autor:	Sergio Villablanca
Tengo lo siguiente: Dim Sql As String = "SELECT id, cod_especie,nom_especie FROM especies" Dim dAdapter As OleDbDataAdapter Dim dSet As New DataSet() dAdapter = New OleDbDataAdapter(Sql, DB) dAdapter.Fill(dSet) DataGrid1.DataSource = dSet.Tables(0) Dim myGridStyle As DataGridTableStyle = _ New DataGridTableStyle() myGridStyle.MappingName = "especies" Dim colStyle1 As DataGridColumnStyle = _ New DataGridTextBoxColumn() colStyle1.MappingName = "id" colStyle1.HeaderText = "" Dim colStyle2 As DataGridColumnStyle = _ New DataGridBoolColumn() colStyle2.MappingName = "Codigo" colStyle2.HeaderText = "Código" Dim colStyle3 As DataGridColumnStyle = _ New DataGridBoolColumn() colStyle3.MappingName = "Nombre" colStyle3.HeaderText = "Nombre" myGridStyle.GridColumnStyles.Add(colStyle1) myGridStyle.GridColumnStyles.Add(colStyle2) myGridStyle.GridColumnStyles.Add(colStyle3) DataGrid1.TableStyles.Add(myGridStyle) y no hay caso que pueda cambiar los Headertext o las cabeceras de los campos, alguien me puede echar una manito porfavor??

Respuesta:	like
Dim encabezado1 As GridViewRow = my_grid.HeaderRow encabezado1.Cells.Item(0).Text = "Fecha compra"

Contestar

Pregunta:	53019 - COMO HAGO P/ ABRIR UN FORM (HIJO) DENTRO DEL FORM PRINCIPAL?
Autor:	Sebastián Alvarez
Hola, tengo generado un menú y quisiera que todos los forms hijos que genere se me abran dentro del form principal (Menú Principal). Es decir, tengo el menú al costado y quiero que los formularios a medida que se vayan seleccionando con un Click en el menú, se me abra en el espacio que tengo destinado dentro del form principal. Desde ya muchas gracias!!! Saludos. Sebas

Respuesta:

MIgue Rueda

Bueno lo q necesitas hacer es un formulario mdi, para empezar tienes q ir al form q has destinado como padre y ir a la propiedad "IsMdiContainer", y la pones en true, una vez hecho vas a ver q tu formulario se hace oscuro, x lo tanto, se ha vuelto el form padre.

luego vas a tu menu, y en el botón o el menuitem con el cual vas a llamar al form hijo usas el siguiente codigo:

1.- Creas una variable tipo formulario hijo, x ejemplo:
dim hijo as new form1
esta variable debe ser global

2.- vas al botón o al menu item y pones:
hijo.MDIParent=Me
hijo.Show( )
3.- Vas a los forms hijos y ingresas en las cabeceras la siguiente herencia:
inherits System.Windows.Forms.Form

Y con eso esta listo lo q querias lograr

Contestar

|< << 15 16 17 18 19 20 21 22 23 24 25 >> >|