CLR: .Net / Mono / Boo / Otros CLR > VB .NET
ALTAS EN EXCEL
(1/1)
inthemoon:
Hola que tal estoy tratando de hacer un sistema de altas y bajas con vb.net 2005 y excel. Utilice el siguiente codigo para ingresar datos en un hoja de excel que tomare como mi tabla de altas donde tengo 2 columnas 'ID' y 'NOMBRE' las cuales lleno con Textbox1 y Textbox 2 respectivamente:
--- Código: vb.net ---Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim conexion As System.Data.OleDb.OleDbConnection Dim comando As New System.Data.OleDb.OleDbCommand Dim sql As String conexion = New System.Data.OleDb.OleDbConnection("provider=microsoft.jet.OLEDB.4.0; Data Source='C:ALTAS.xls'; Extended properties=Excel 8.0;") conexion.Open() comando.Connection = conexion sql = "Insert into [hoja1$] (id,nombre) values('" & TextBox1.Text & "','" & TextBox2.Text & "')" comando.CommandText = sql comando.ExecuteNonQuery() conexion.Close() MsgBox("Informacion Agregada")End sub
Este codigo va agregando los datos en la fila vacia siguiente, me funciona bien siempre y cuando no tenga texto que aparezca en las filas que estan arriba de los encabezados de las dos columnas (ID y NOMBRE) osea que no puedo poner un encabezado a la hoja en las primeras filas (lo cual es necesario para mi) y abajo la tabla porque me dice que lo campos ID y NOMBRE no existen, es como si no los encontrara si hay texto antes de ellos.
Saben alguna manera de arreglar este problema o alguna otra forma de llenar mi tabla con los datos de los text box?
inthemoon:
Pues logre solucionar el problema.
Solo hay que definir el rango de la tabla, poner la celda donde empiesan los encabezados de la tabla (B10) y despues la celda donde termina la tabla (I40)
--- Código: vb.net ---sql = "Insert into [hoja1$B10:I40] (id,nombre) values('" & TextBox1.Text & "','" & TextBox2.Text & "')"
Gracias a todos los que almenos leyeron mi mensaje :hola:
Navegación
Ir a la versión completa