PREGUNTAS CONTESTADAS - Visual Basic.NET

Hay un total de 338 Preguntas.

<< >>

Pregunta:	60684 - GUARDAR XLS A CSV SIN TENER INSTALADO EXCEL
Autor:	Alberto
Buenas tardes, tengo el sgte problema, espero que me puedan ayudar o darme un norte para solucionar este incoveniente, anticipadamente agradezco mucho la ayuda que se me brinda; cree un vbs el cual me permite guardar un archivo(el cual tiene celdas combinadas) excel , formato xls a csv Set objExcel = CreateObject("Excel.Application") En el script necesariamente abro el excel para guardarlo en csv, el problema es que en el ordenador donde se va a ejecutar dicho script no tiene instalado el Excel y no lo van a instalar por temas de licencia; la pregunta es como en el titulo ¿como puedo guardar un archivo xls en formato csv sin tener instalado el excel? Gracias por toda su ayuda Saludos.

Respuesta:	A.F.G.S
Mira a ver si esto te puede orientar un poco. http://support.microsoft.com/kb/163410

Contestar

Pregunta:	60687 - BACKUP POR TABLAS DESDE UN DATABASE
Autor:	claudio vasquez
como se hace backup por tablas desde un database indicado en visual.net agradesco sus respuestas...saludos

Respuesta:	miguel bedolla
dim dir as string txtruta.text="c:ackup.sql" dir = "/c " & Chr(34) & "C:Archivos de programaMySQLMySQL Server 5.0inmysqldump.exe" & Chr(34) & " --user=tuuser --password=tupwd --host=localhost --databases tubd> " & txtRuta.Text Process.Start("cmd.exe", dir) El unico incoveniente es que el directorio destino no tiene que llevar espacios saludos!!

Contestar

Pregunta:	60816 - IP DE LA MAQUINA
Autor:	Ronald Lopez Conrado
Hola estoy haciendo un sistemita y necesito una Funcion o algun codigo para obtener la direccion IP de la Maquina en la q se ejecuta el programa asi como tambien el DNS De la maquina

Respuesta:	Leonardo Alfaro A.
'--- En Vb.net Private Sub MostrarDatosPC() Dim strNombrePC As String strNombrePC = System.Net.Dns.GetHostName() Dim h As System.Net.IPHostEntry = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName) Dim strLocalIp As String = h.AddressList.GetValue(0).ToString MsgBox("Nombre del pc: " & strNombrePC & "; Direccion IP: " & strLocalIp) End Sub

Contestar

Pregunta:	61136 - COMO IMPRIMIR 2 TEXTBOX EN LA MISMA LINEA
Autor:	diana porras
hola quisiera ver si alguien me puede ayudar con una duda que tengo quisiera saber como imprimir varios textbox en una misma linea sin que salte uno del otro. gracias

Respuesta:

César Trujillo

Hola Diana, lo que necesitas tu... se llama Concatenar cadenas de texto
osea.. si en textbox1 tienes "HOLA"
textbox2 tienes "ME LLAMO"
y textbox3 tienes "DIANA"

puedes hacer esto:
textbox4.text = textbox1.text & textbox2.text & textbox3.text

y te kedaria asi

"HOLAME LLAMODIANA"" asi querias dejar todo junto.. como por ejemplo juntar numeros, ese codigo te sirve... par juntar numeros y quedar de esta manera.. 145895
pero si es texto que lleve espacio.. has esto:
textbox4.text = textbox1.text & " " & textbox2.text & " " & textbox3.text

con esto habras puesto un espacio en blanco entre textbox y te keda asi

"HOLA ME LLAMO DIANA"

suerte =)

Contestar

Pregunta:	61784 - ACTUALIZAR GRIDVIEW AL HACER UN CAMBIO EN LA BASE DE DATOS
Autor:	Nicolas Laderach
Hola, les paso a contar mi problema, tengo en un gridview una lista de laboratorios y lo que hago es agregar un laboratorio, modificarle algun dato, o eliminar un laboratorio, lo cual me lo hace en la base de datos en sql server, pero en el gridview no me lo actualiza, muestra el mismo listado sin modificaciones. si me pueden ayudar les agradeceria, muchas gracias

Respuesta:	Leonardo Alfaro A.
Te falta la instrucción: Gridview.Databind()

Contestar

Pregunta:	61828 - MOSTRAR CONSULTA SQL EN UN TEXBOX DE VISUAL BASIC
Autor:	julio cesar llavilla ccama
hola muchachos les estare agradecido eternamente mi problema es lo siguiente tengo un procedimiento almacenado en sql CREATE PROCEDURE busca_num_fac AS select max(num_fac) from factura GO ahora el resultado quiero mostrarlo en un texbox de visual basic como lo hago, lo he intentado de muchas formas pero nada. muchas gracias de antemano por su respuesta.

Respuesta:	Fenix xineF
Hola. Facil, creas un DataTable, cargas el dato en él y asignas el valor a la caja de texto. La asignacion es mas o menos asi: txt_factura.Text = datatable1.Rows(0)(0)

Contestar

Pregunta:	61831 - GUARDAR ARCHIVO .JPG DESDE UN PICTURE BOX SIN SAVEDIALOG
Autor:	Octavio Navarro Llamas
Tengo un problemon!!! He buscado por todos lados y no logro resolver mi problema =(. Me gustaria saber como Guardar desde un picturebox una archivo *.jpg. Pero sin usar Common dialog (Open dialog ni save dialog). El lugar donde lo voy a guardar sera en una ruta estatica que es la de mi sistema. Guardo la direccion en este lugar para meter la foto. dim direccion as string direccion = My.Application.Info.DirectoryPath & "fotos" & txtfolio.Text + ".jpg" Alguien tiene la respuesta? Habla un programador compulsivo desesperado.

Respuesta:

Octavio Navarro Llamas

Hola, soy el propietario de esta pregunta y encontre la solucion.

Try
Dim myImg As Image 'Objeto Image para guardar la imagen del Picture
myImg = picfoto.Image 'Guardar la imagen del PictureBox en el objeto Image
myImg.Save(direccion, Imaging.ImageFormat.Jpeg) 'Guardar en formato JPG
Catch ex As Exception
MsgBox("Ocurrió el siguiente error: " & ex.Message, MsgBoxStyle.Critical, "Error!")
End Try

Creo que la respuesta era muy sencilla pero si batalle varios dias tratando de encontrar la respuesta.

Aun asi, no contestaron, pero no importa, lo importante es que encontre la respuesta y que la comparto con ustedes

Contestar

Pregunta:	61877 - TRASLADO DE REPORTE A EXCEL 2003
Autor:	marcela perez
hola a todos necesito ayuda con esto soy nueva en reportes y necesitio trasladar un reporte por medio de un boton el reporte tiene sub totales logro parsarlo a excel pero sin esos sub totales boton: Private Sub BtnTrasladoExcel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTrasladoExcel.Click '' excel 2003 Dim oExcel As Excel.ApplicationClass Dim oBooks As Excel.Workbooks Dim oBook As Excel.WorkbookClass Dim oSheet As Excel.Worksheet '' Inicia Excel y abre el workbook oExcel = CreateObject("Excel.Application") oExcel.Visible = True oBooks = oExcel.Workbooks oBook = oExcel.Workbooks.Add oSheet = oBook.Sheets(1) Const ROW_FIRST = 2 Dim iRow As Int64 = 1 '' Encabezado oSheet.Cells(ROW_FIRST, 1) = "CODIGO" oSheet.Cells(ROW_FIRST, 2) = "CUENTA" oSheet.Cells(ROW_FIRST, 3) = "ENERO" oSheet.Cells(ROW_FIRST, 4) = "FEBRERO" oSheet.Cells(ROW_FIRST, 5) = "MARZO" oSheet.Cells(ROW_FIRST, 6) = "ABRIL" oSheet.Cells(ROW_FIRST, 7) = "MAYO" oSheet.Cells(ROW_FIRST, 8) = "JUNIO" oSheet.Cells(ROW_FIRST, 9) = "ACUMULADO" oSheet.Columns(1).ColumnWidth = 10 oSheet.Columns(2).ColumnWidth = 40 oSheet.Columns(3).ColumnWidth = 15 oSheet.Columns(4).ColumnWidth = 15 oSheet.Columns(5).ColumnWidth = 15 oSheet.Columns(6).ColumnWidth = 15 oSheet.Columns(7).ColumnWidth = 15 oSheet.Columns(8).ColumnWidth = 15 oSheet.Columns(9).ColumnWidth = 15 '' Loop que almacena los datos Dim rowCustomer As DSReportesFinancieros.ReportesFinancierosResultadosMensualAnualRow For Each rowCustomer In Me.DsReportesFinancieros1.ReportesFinancierosResultadosMensualAnual Dim iCurrRow As Int64 = ROW_FIRST + iRow + 1 oSheet.Cells(iCurrRow, 1) = rowCustomer.codigo_cuenta_contable oSheet.Cells(iCurrRow, 2) = rowCustomer.nombre_cuenta_contable ' oSheet.Cells(iCurrRow, 3) = rowCustomer.mes01 If rowCustomer.IsNull("mes01") = True Then oSheet.Cells(iCurrRow, 3) = "" Else oSheet.Cells(iCurrRow, 3) = rowCustomer.mes01 End If If rowCustomer.IsNull("mes02") = True Then oSheet.Cells(iCurrRow, 4) = "" Else oSheet.Cells(iCurrRow, 4) = rowCustomer.mes02 End If If rowCustomer.IsNull("mes03") = True Then oSheet.Cells(iCurrRow, 5) = "" Else oSheet.Cells(iCurrRow, 5) = rowCustomer.mes03 End If If rowCustomer.IsNull("mes04") = True Then oSheet.Cells(iCurrRow, 6) = "" Else oSheet.Cells(iCurrRow, 6) = rowCustomer.mes04 End If If rowCustomer.IsNull("mes05") = True Then oSheet.Cells(iCurrRow, 7) = "" Else oSheet.Cells(iCurrRow, 7) = rowCustomer.mes05 End If If rowCustomer.IsNull("mes06") = True Then oSheet.Cells(iCurrRow, 8) = "" Else oSheet.Cells(iCurrRow, 8) = rowCustomer.mes06 End If If rowCustomer.IsNull("acumulado") = True Then oSheet.Cells(iCurrRow, 9) = "" Else oSheet.Cells(iCurrRow, 9) = rowCustomer.acumulado End If iRow += 1 Next '' Fórmula oSheet.Cells(ROW_FIRST + iRow + 1, 3) = "=SUMA(C" & (ROW_FIRST + 1) & ".." & "C" & (ROW_FIRST + iRow - 1) & ")" ''Guardar oExcel.Application.ActiveWorkbook.SaveAs("E:reporte.xls") MessageBox.Show("Finalizado", " Verificación ", MessageBoxButtons.OK, MessageBoxIcon.Information)

Respuesta:

WALTER DANIEL PARRAGA

lo hice de la siguiente forma:

Dim colum As Integer

Dim m_Excel As New Excel.Application
m_Excel.Cursor = Excel.XlMousePointer.xlWait
m_Excel.Visible = True
Dim objLibroExcel As Excel.Workbook = m_Excel.Workbooks.Add
Dim objHojaExcel As Excel.Worksheet = objLibroExcel.Worksheets(1)
With objHojaExcel
.Visible = Excel.XlSheetVisibility.xlSheetVisible
.Activate()

''Estilo a titulos de la tabla
.Range("A1").HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter
.Range("A1:F1").Merge()
.Range("A1:F1").Value = "GAD MUNICIPAL"
.Range("A1:F1").Font.Bold = True
.Range("A1:F1").Font.Size = 16
.Range("A2").HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter
.Range("A2:F2").Merge()
.Range("A2:F2").Value = "DEPOSITOS DE RECAUDACIÓN DE IMPUESTOS"
.Range("A2:F2").Font.Bold = True
.Range("A2:F2").Font.Size = 12
.Range("A3").HorizontalAlignment = Excel.XlHAlign.xlHAlignRight
.Range("A3").Value = "DESDE:"
.Range("A3").Font.Bold = True
.Range("B3").Value = Format(dtpdesde.Value, "dd/MM/yyyy")
.Range("C3").HorizontalAlignment = Excel.XlHAlign.xlHAlignRight
.Range("C3").Value = "HASTA:"
.Range("C3").Font.Bold = True
.Range("D3").HorizontalAlignment = Excel.XlHAlign.xlHAlignLeft
.Range("D3:E3").Merge()
.Range("D3:E3").Value = Format(dtphasta.Value, "dd/MM/yyyy")

Const primeraLetra As Char = "A"
Const primerNumero As Short = 4
Dim Letra As Char, UltimaLetra As Char
Dim Numero As Integer, UltimoNumero As Integer
Dim cod_letra As Byte = Asc(primeraLetra) - 1
Dim strColumna As String = ""
Dim LetraIzq As String = ""
Dim cod_LetraIzq As Byte = Asc(primeraLetra) - 1
Letra = primeraLetra
Numero = primerNumero
Dim objCelda As Excel.Range
For Each c As DataGridViewColumn In gridat.Columns

If c.Visible Then
: If Letra = "Z" Then
Letra = primeraLetra
cod_letra = Asc(primeraLetra)
cod_LetraIzq += 1
LetraIzq = Chr(cod_LetraIzq)
Else
cod_letra += 1
Letra = Chr(cod_letra)
End If
strColumna = LetraIzq + Letra + Numero.ToString
objCelda = .Range(strColumna, Type.Missing)
objCelda.Value = c.HeaderText
objCelda.EntireColumn.Font.Size = 10
End If
Next
Dim objRangoEncab As Excel.Range = .Range(primeraLetra + Numero.ToString, LetraIzq + Letra + Numero.ToString)
objRangoEncab.BorderAround(1, Excel.XlBorderWeight.xlMedium)
UltimaLetra = Letra
Dim UltimaLetraIzq As String = LetraIzq
'Cargar Datos del DataGridView.
Dim i As Integer = Numero + 1
colum = i
For Each reg As DataGridViewRow In gridat.Rows
LetraIzq = ""
cod_LetraIzq = Asc(primeraLetra) - 1
Letra = primeraLetra
cod_letra = Asc(primeraLetra) - 1
For Each c As DataGridViewColumn In gridat.Columns
If c.Visible Then
If Letra = "Z" Then
Letra = primeraLetra
cod_letra = Asc(primeraLetra)
cod_LetraIzq += 1
LetraIzq = Chr(cod_LetraIzq)
Else
cod_letra += 1
Letra = Chr(cod_letra)
End If
strColumna = LetraIzq + Letra
'Aqui se realiza la carga de datos.
.Cells(i, strColumna) = IIf(IsDBNull(reg.ToString), "", reg.Cells(c.Index).Value)
End If
Next
Dim objRangoReg As Excel.Range = .Range(primeraLetra + i.ToString, strColumna + i.ToString)
objRangoReg.Rows.BorderAround()
objRangoReg.Select()
i += 1
Next

''FORMULA PARA SUMA
Dim sumacelda As String
sumacelda = Microsoft.VisualBasic.Right(strColumna & i, 5)
.Range(sumacelda).Value = "=SUMA(F" & colum & ".." & "F" & i - 1 & ")"
.Range(sumacelda).Font.Bold = True
.Range(sumacelda).Font.Size = 12

UltimoNumero = i
'Dibujar las líneas de las columnas.
LetraIzq = ""
cod_LetraIzq = Asc("A")
cod_letra = Asc(primeraLetra)
Letra = primeraLetra
For Each c As DataGridViewColumn In gridat.Columns
If c.Visible Then
objCelda = .Range(LetraIzq + Letra + primerNumero.ToString, LetraIzq + Letra + (UltimoNumero - 1).ToString)
objCelda.BorderAround()
If Letra = "Z" Then
Letra = primeraLetra
cod_letra = Asc(primeraLetra)
LetraIzq = Chr(cod_LetraIzq)
cod_LetraIzq += 1
Else
cod_letra += 1
Letra = Chr(cod_letra)
End If
End If
Next
'Dibujar el border exterior grueso de la tabla.
Dim objRango As Excel.Range = .Range(primeraLetra + primerNumero.ToString, UltimaLetraIzq + UltimaLetra + (UltimoNumero - 1).ToString)
objRango.Select()
objRango.Columns.AutoFit()
objRango.Columns.BorderAround(1, Excel.XlBorderWeight.xlMedium)
End With
m_Excel.Cursor = Excel.XlMousePointer.xlDefault

Contestar

Pregunta:	62030 - MODIFICAR A MANO UN DATATABLE
Autor:	Cesar Trujillo
Hola a todos, estoy trabajando visual basic .net y sql, en consultas, lo que hago es con un sqladapter lleno un datatable desde codigo y despues pongo esa tabla como datasource de un datagridview, todo me funciona perfecto, solo que para aumentar la seguridad, me han pedido que los datos sean guardados cifrados, sigo sin problema.. el problema viene.. que con ese mismo modo de consulta me trae los datos cifrados.. y no he encontrado el modo de modificar ese dataadapter o el datatable para mandar a llamar la funcion que decifra la cadena. les paso el fragmento de codigo de como lleno el grid. Public Class Form1 Private _dt As New DataTable Dim cn As New System.Data.SqlClient.SqlConnection("data source=(local); initial catalog=Inventario; User Id=sa;password=sa") Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim da As New System.Data.SqlClient.SqlDataAdapter("SELECT * FROM Articulo", cn) _dt.Clear() da.Fill(_dt) ListBox1.DataSource = _dt ListBox1.DisplayMember = "proveedor" datagridview1.datasource = _dt End Sub End Class gracias de antemano

Respuesta:	abel montalvo
Hola... ¿Exactamente qué quieres descifrar, una columna o qué?

Contestar

Pregunta:	62177 - CONEXION MYSQ/.NET2005
Autor:	juan carlos valle corona
hola a todos los programadores me podrian ayudar, necesito codigo para hacer una conexion desde visual .net 2005 a mysql. De antemano gracias.

Respuesta:	Leonardo Alfaro A.
Saludos. Se ve un poco tonto, pero te dejo una guía muy explícita aquí : http://programandoideas.com/conectar-visual-basic-net-y-mysql/

Contestar

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