PREGUNTAS CONTESTADAS - Visual Basic.NET

Hay un total de 338 Preguntas.

<< >>

Pregunta:	59807 - LLENAR UN DATASET O DATAREAD CON LOS DATOS DE UNA MATRIZ
Autor:	Juan Antonio Sánchez
Buen día. tengo una matriz de variables string llamada variable(i) que ya he llenado con los datos de un texto separado por comas, es decir de un archivo de texto con el contenido siguiente: prueba1,prueba2,prueba3 he llenado una matriz de variables tipo string con la siguiente información: variable(1) = "Prueba1" variable(2) = "Prueba2" variable(3) = "Prueba3" lo que deseo es llenar un dataset con esas variables, para poder leerlos desde mi aplicacion, ya que este proceso (de lectura del archivo y llenado de la matriz y del dataset) lo estoy integrando en una clase, para poder trasladarlo a cualquier programa, donde indique el nombre del archivo, el caractér separador, y el numero de variables que va a leer para posteriormente llenar las variables que voy a usar en mi aplicación con los datos del dataset que estoy leyendo... espero no estar complicando con la exposición de motivos. Si alguien puede ayudarme se los agradeceré mucho. Saludos

Respuesta:

abel montalvo

Creo es asi....

Dim DS As DataSet = New DataSet("NombreDelDataSet") ' creo un DataSet
Dim DT As DataTable = New DataTable("NombreDelDataTable") ' creo un DataTable
Dim Columna1 As DataColumn = New DataColumn("Columna1", GetType(System.String)) ' creo una columna
DT.Columns.Add(Columna1) 'Agrego la columna al DataTable
DT.Rows.Add("Prueba1")
DT.Rows.Add("Prueba2")
DT.Rows.Add("Prueba3")
DS.Tables.Add(DT) ' Agrego la tabla al DataSet

Contestar

Pregunta:	59812 - SABER SI EL USUARIO ES DE TERMINAL SERVER.
Autor:	Ivan Ferrer Villa
Buenas a todos. Hay alguna manera de determinar desde .NET si el usuario que ejecuta una aplicación está conectado por Terminal Server o no? He probado con Process.GetCurrentProcess.SessionId y siempre me da 0. En la ayuda del FW3.5 dice que es precisamente para eso. Lo estoy probando con XP pro y Visual Studio 2008. Gracias de antemano y feliz año a todo el mundo.

Respuesta:	Ivan Ferrer Villa
Resulta que el booleano System.Windows.Forms.SystemInformation.TerminalServerSession nos dice precisamente esto.

Contestar

Pregunta:	59865 - ERROR AL SUSPENDER LA CONEXION CON LA BASE DE DATOS
Autor:	Luis alfonso hernandez domeneh
Ami me pasa que cuando voy a almacenar un nuevo registro y se sabe que para eso hay que suspender la conexion con la bases de datos...pero cuando pongo este codigo en boton nuevo.. If datos.DefaultViewManager.DataViewSettingCollectionString.IndexOf("tbl_membresia") > 0 Then enlacebase.SuspendBinding() End If me dice lo siquiente al ejecutar,,, Excepción no controlada del tipo 'System.ArgumentException' en system.dll Información adicional: '01/01/0001 0:00:00' no es un valor válido para 'Value'. 'Value' debería estar entre 'MinDate' y 'MaxDate'. y toy buscando posibles errores y no se me compone ,,,, las agradeceria su ayuda..Esta montado en .net 2002 Graxx de ante mano..

Respuesta:	Anónimo
-Al parecer el campo de base de datos que se rellena es una fecha

Contestar

Pregunta:	59890 - AYUDA PARA MANEJAR READTIMEOUTS CUANDO QUIERO LEER UN DATO D
Autor:	Diego
HOla!! Estoy teniendo problemas recibiendo datos de un puerto serie. Cuando quiero leer un dato del puerto utilizando serialport.readbyte y no tengo conectado nada al puerto serie, el programa se queda esperando el dato por siempre y se cuelga. Necesito algo que me avise que no hay nada en el puerto en vez de quedarse colgado. Encontre la propiedad readtimeout que debe ser lo que necesito, pero no se como usarla!! Cuando corro el programa y queda leyendo el puerto me sale un error de que no se controló timeout exception. busqué en msdn y google pero no ayudan mucho sobre como controlarlo. Probe algo asi como While (Not (PuertoSerie.ReadTimeout)) Variable = PuertoSerie.ReadByte End While pero cuando alcanza el timeout, en vez de salir del lazo while, me vuelve a dar el error de que no controlo timeout exception. Alguna idea????? Gracias por la ayuda!!

Respuesta:

Carlos londoño

El problema que tienes es que no controlas la excepción generada, debido a que si se cumple el 'timeout' del puerto serial, el programa se bloquea inmediatamente, por lo tanto, coloca tu código dentro de un "try - catch", el cual te va a controlar esta excepción.

Por ejemplo
do
try
Variable = PuertoSerie.ReadByte
catch ex as TimeOutException
' Cuando se cumpla el timeout el programa no va a quedarse colgado
' Solamente realiza lo que se encuentre en este "catch"

exit do
' El "exit do" te saca del loop
end try
loop

Contestar

Pregunta:	59990 - COMO HACER QUE LAS COLUMNAS DE UN DATAGRID SEAN EDITABLES
Autor:	Mary Lopez
Hola. Estoy haciendo una aplicación en visul.net y utilizo un datagrid, el cual ya lo tengo lleno, pero ocupo hacer tres columnas editables o sea manipulable por el usuario para que tengan la opción de actualizar esas columnas. Espero me puedan ayudar .. gracias.

Respuesta:	miguel bedolla
en las propiedades del datagrid selecciona readonly=false

Contestar

Pregunta:	60001 - PARA QUE EL USUARIO LE DÉ UN VALOR QUE QUIERA A UNA VARIABLE
Autor:	giovanny r
¿Como hago para que el usuario ingrese valores pero durante la compilacion para luego evaluar la variable? Asi como en pascal se coloca Read(valor) o en borlandc cin>>valor. ejemplo: module Module1 sub main() dim valor as integer write("intro un valor") ......... (valor) if valor = 3 then write("hola") end sub end module

Respuesta:	giovanny r
Muchas gracias César Trujillo [email protected], ya probe lo que me dijiste con una nueva version de VB

Respuesta:

César Trujillo

Hola Giovanni ahi te va un ejemplo muy simple

sub main()
dim valor as integer
valor=inputbox("Teclee un numero")
if valor < 10 then
messagebox.show("El numero es mayor a diez")
end sub

nota: tanto el inputbox y el messagebox, no se veran escritos en tu formulario como los verias en borland C o en pascal, sino que te muestra una cajita de texto, una con una caja de texto para que ingreses los datos y en la otra solo un texto

suerte =)

Contestar

Pregunta:	60057 - PONER UN MENU EN LA PARTE INFERIOR DE UN FORMULARIO
Autor:	luis Luna
Hola amigos quisiera ver si alguien me puede ayudar lo que sucede es que estoy trabajando en un proyecto y quisiera saber como puedo insertar un menu en la parte inferior de la forma(tal como el boton INICIO del windows), tal que el mismo se despliegue para arriba con darle click en un command button, ya intente con los menus contextuales pero me da error... Si alguien sabe la respuesta por favor ayudenme

Respuesta:	Sandra Fernández Pérez
Hola, si trabajas con el componente MenuStrip simplemente debes modificar la propiedad Dock a Bottom (por defecto es Top) y ya está... Un saludo,

Contestar

Pregunta:	60146 - MATRIZ DE CONTROLES
Autor:	ROQUE AVILEZ VILORIA
Señores expertos: Soy principiante en el mundo de Visual.Net, y en estos momentos estoy trabajando con una grilla elaborada a partir de matrices de controles (Labels, textbox, Maskedbox), pero no se cómo hacer para programar un evento cualquiera (Click, Keypress) en uno de los elementos de la matriz de controles. Espero haber sido claro con mi pregunta. Cordialmente desde Colombia.

Respuesta:

abel montalvo

aderimos el evento. espero y te ayude ....un saludo

Public Class Form1
Dim ControlesTextBox(-1) As TextBox

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim i As Integer = 0
Dim posY As Integer = 0
For i = 0 To 20 Step 1
'Creamos 21 controles y los iinicializamos
ReDim Preserve ControlesTextBox(ControlesTextBox.Length)
ControlesTextBox(ControlesTextBox.Length - 1) = New TextBox()
ControlesTextBox(ControlesTextBox.Length - 1).Name = "TextBox" + i.ToString
ControlesTextBox(ControlesTextBox.Length - 1).Text = "Texto de TextBox" + i.ToString
ControlesTextBox(ControlesTextBox.Length - 1).Location = New Point(50, posY)
Me.Controls.Add(ControlesTextBox(ControlesTextBox.Length - 1)) ' Agregamos al formulario

AddHandler ControlesTextBox(ControlesTextBox.Length - 1).Click, AddressOf ControlesTextBox_Click
posY += 20

Next
End Sub

Private Sub ControlesTextBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
'Tipo de variable 'e' depende del tipo de evento (click, paint, etc)

'puedes obtener las propiedades directamente como por ejemplo
'sender.Text = "esto es texto de prueba"

' o tambien se pude convertir con Ctype
CType(sender, TextBox).Text = "otro texto"

MsgBox((CType(sender, TextBox)).Text)

End Sub
End Class

Contestar

Pregunta:	60386 - USAR FORM DE OTRO PROYECTO EN LA MISMA SOLUCION
Autor:	Lorena Monroy
Hola a todos, espero que me puedan ayudar. Tengo una solucion ya creada que tiene varios proyectos, y agregue otro proyecto, pero quiero utilizar el .vb de autenticacion, que esta en otro (como explico mas abajo). En otro proyecto lo tienen asi: Dim vl_objFrmLogin As WindowDialogs.frmAutenticacion Asi es como esta definido en VB Solucion WindowDialogs frmAutenticacion Proyecto Nuevo Form1 (desde donde deseo usar el formulario de autenticacion) Les agradezco su ayuda

Respuesta:

César Trujillo

Hola Lorena, primero que nada debes de referenciar los proyectos secundarios.. con el que los vas a mandar a llamar

suponiendo como puedo ver ahi.. ke Form1 esta dentro de "proyecto nuevo"
y frmautenticacion esta dentro de "WindowDialogs"

pues en tu proyecto nuevo le das click derecho
y en agregar referencia.. y pues la referencia sera.. "WindowDialogs"

y entonces ya.. podras hacer uso de la linea de codigo que tienes ahi..
con una ligera modificacion.
poner hasta arriba.. (antes del public class) :

Imports WindowDialogs

Y ya para llamar al formulario:

Dim vl_objFrmLogin as NEW WindowDialogs.frmautenticacion
vl_objFrmLogin.show

suerte Lorena

Contestar

Pregunta:	60554 - EXPORTAR EXCEL
Autor:	Sayda Capacho
Hola a todos, necesito de una gran ayuda, Debo hacer una exportación a Excel y no se como hacerlo alguien me puede colaborar con esto

Respuesta:

David Enriquez

Muy facil...
primero que nada agrega la referencia Microsoft Excel XX.X Object Library...en mi caso es: Microsoft Excel 12.0 Object Library

Parte de esto lo vi en un foro... pero lo acople a mis necesidades...

Dim exApp As New Microsoft.Office.Interop.Excel.Application
Dim exLibro As Microsoft.Office.Interop.Excel.Workbook
Dim exHoja As Microsoft.Office.Interop.Excel.Worksheet
Dim Filas As Integer
Dim respuesta As Integer
Dim EXE As String = "SAS View"

Try
Filas = GridX.Rows.Count
If Filas <= 0 Then
MsgBox("No hay información para exportar a Excel", vbInformation, EXE)
'ExportaExcel = ""
Exit Sub
End If

If Filas >= 1000 Then
respuesta = MsgBox("Esta exportación tardará varios minutos..... ¿Desea continuar?", vbYesNo, EXE)
If respuesta = 6 Then 'Continuar
Else
'ExportaExcel = ""
Exit Sub
End If
End If

' -- Crear nueva instancia de Excel
exApp = CreateObject("Excel.Application")
' -- Agregar nuevo libro
exApp.Workbooks.Add()
'exApp.ActiveWorkbook.SaveAs(Path.GetFullPath("Libro1"), xlNormal, "", "", False, False)
'exLibro = exApp.Workbooks.Open(FileXLS)
' -- Referencia a la Hoja activa ( la que añade por defecto Excel )
exHoja = exApp.ActiveSheet

'exLibro = exApp.Workbooks.Add
'exHoja = exLibro.Worksheets.Add()

'Asignación de valores de total de filas y columnas
Dim NCol As Integer = GridX.ColumnCount
Dim NRow As Integer = GridX.RowCount

'Aqui recorremos todas las filas, y por cada fila todas las columnas y vamos escribiendo.
'Barra1.Maximum = NRow
'Ciclo para recorrer solo la cabecera, para obtener nombres de columnas
For i As Integer = 1 To NCol
exHoja.Cells.Item(1, i) = GridX.Columns(i - 1).Name.ToString
'exHoja.Cells.Item(1, i).HorizontalAlignment = 3
Next

'Ciclo para recorrer los datos del grid
For Fila As Integer = 0 To NRow - 1
For Col As Integer = 0 To NCol - 1
exHoja.Cells.Item(Fila + 2, Col + 1) = GridX.Rows(Fila).Cells(Col).Value
Next
'Barra1.Value = Fila
Next
'Barra1.Value = 0
'Titulo en negrita, Alineado al centro y que el tamaño de la columna se ajuste al texto
exHoja.Rows.Item(1).Font.Bold = 1
'exHoja.Rows.Item(1).font.name = "arial"
'exHoja.Rows.Item(1).font.size = 13
'

exHoja.Rows.Item(1).HorizontalAlignment = 3
exHoja.Columns.AutoFit()

'Aplicación visible
exApp.Application.Visible = True
exHoja = Nothing
exLibro = Nothing
exApp = Nothing

Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error al exportar a Excel")
exHoja = Nothing
exLibro = Nothing
exApp = Nothing
'Return False
End Try

Lo anterior sirve para exportar lo que hay en un grid a Excel...si los datos los tienes fijos en objetos solo revisa la parte del ciclo FOR para que hagas los ajustes necesarios...

buena suerte

Contestar

|< << 24 25 26 27 28 29 30 31 32 33 34 >> >|