BULK
INSERT TIENDA
FROM 'D:\BASES DE DATOS\DATOS.txt'--Ruta archivo
WITH
( FIELDTERMINATOR = ',', --separa campos
ROWTERMINATOR = '\n' ) --separa filas
GO
jueves, 17 de agosto de 2017
viernes, 4 de agosto de 2017
Importar Excel a Visual Studio 2015
Sub importarExcel(ByVal tabla As DataGridView)
Dim myFileDialog As New OpenFileDialog()
Dim xSheet As String = ""
With myFileDialog
.Filter = "Excel Files |*.xlsx"
.Title = "Open File"
.ShowDialog()
End With
If myFileDialog.FileName.ToString <> "" Then
Dim ExcelFile As String = myFileDialog.FileName.ToString
Dim ds As New DataSet
Dim da As OleDbDataAdapter
Dim dt As DataTable
Dim conn As OleDbConnection
xSheet = InputBox("Digite el nombre de la Hoja que desea importar", "Complete")
conn = New OleDbConnection( _
"Provider=Microsoft.ACE.OLEDB.12.0;" & _
"data source=" & ExcelFile & "; " & _
"Extended Properties='Excel 12.0 Xml;HDR=Yes'")
Try
da = New OleDbDataAdapter("SELECT * FROM [" & xSheet & "$]", conn)
conn.Open()
da.Fill(ds, "MyData")
dt = ds.Tables("MyData")
tabla.DataSource = ds
tabla.DataMember = "MyData"
Catch ex As Exception
MsgBox("Inserte un nombre valido de la Hoja que desea importar", MsgBoxStyle.Information, "Informacion")
Finally
conn.Close()
End Try
End If
MsgBox("Tabla cargada exitosamente", MsgBoxStyle.Information, "Importado con exito")
End Sub
Dim myFileDialog As New OpenFileDialog()
Dim xSheet As String = ""
With myFileDialog
.Filter = "Excel Files |*.xlsx"
.Title = "Open File"
.ShowDialog()
End With
If myFileDialog.FileName.ToString <> "" Then
Dim ExcelFile As String = myFileDialog.FileName.ToString
Dim ds As New DataSet
Dim da As OleDbDataAdapter
Dim dt As DataTable
Dim conn As OleDbConnection
xSheet = InputBox("Digite el nombre de la Hoja que desea importar", "Complete")
conn = New OleDbConnection( _
"Provider=Microsoft.ACE.OLEDB.12.0;" & _
"data source=" & ExcelFile & "; " & _
"Extended Properties='Excel 12.0 Xml;HDR=Yes'")
Try
da = New OleDbDataAdapter("SELECT * FROM [" & xSheet & "$]", conn)
conn.Open()
da.Fill(ds, "MyData")
dt = ds.Tables("MyData")
tabla.DataSource = ds
tabla.DataMember = "MyData"
Catch ex As Exception
MsgBox("Inserte un nombre valido de la Hoja que desea importar", MsgBoxStyle.Information, "Informacion")
Finally
conn.Close()
End Try
End If
MsgBox("Tabla cargada exitosamente", MsgBoxStyle.Information, "Importado con exito")
End Sub
miércoles, 2 de agosto de 2017
Recorrer una tabla sin Cursor en SQL
--Creamos una tabla temporal con un campo clave de tipo integer identity
DECLARE @Tmp_Cliente TABLE(
Id int identity(1,1) not null primary key
,DNI varchar(100) not null
,Nombre varchar(100) null
)
--Insertamos en la tabla declarada la consulta que queremos obtener
INSERT INTO @Tmp_Cliente(Dni,nombre)
SELECT TOP 10 Dni,Nombre
FROM Cliente
DECLARE @nRegistros Int --Almacena la cantidad de registro que retorna la consulta.
SET @nRegistros=(SELECT COUNT(*) FROM @Tmp_Cliente)
DECLARE @nWhile Int --Almacenará la cantidad de veces que se esta recorriendo en el Bucle.
SET @nWhile=1
--Recorremos la tabla mediante un bucle While.
WHILE(@nRegistros>0 AND @nWhile<=@nRegistros)
BEGIN
DECLARE @Dni VARCHAR(8)
SET @Dni=(SELECT Dni FROM @Tmp_Cliente WHERE Id=@nWhile)
--usar los valores de la tabla para realizar cualquier accion (Insert, Update, Delete)
--En este caso solo se va a imprimir el Dni.
PRINT @Dni
SET @nWhile=@nWhile+1
END
DECLARE @Tmp_Cliente TABLE(
Id int identity(1,1) not null primary key
,DNI varchar(100) not null
,Nombre varchar(100) null
)
--Insertamos en la tabla declarada la consulta que queremos obtener
INSERT INTO @Tmp_Cliente(Dni,nombre)
SELECT TOP 10 Dni,Nombre
FROM Cliente
DECLARE @nRegistros Int --Almacena la cantidad de registro que retorna la consulta.
SET @nRegistros=(SELECT COUNT(*) FROM @Tmp_Cliente)
DECLARE @nWhile Int --Almacenará la cantidad de veces que se esta recorriendo en el Bucle.
SET @nWhile=1
--Recorremos la tabla mediante un bucle While.
WHILE(@nRegistros>0 AND @nWhile<=@nRegistros)
BEGIN
DECLARE @Dni VARCHAR(8)
SET @Dni=(SELECT Dni FROM @Tmp_Cliente WHERE Id=@nWhile)
--usar los valores de la tabla para realizar cualquier accion (Insert, Update, Delete)
--En este caso solo se va a imprimir el Dni.
PRINT @Dni
SET @nWhile=@nWhile+1
END
Suscribirse a:
Comentarios (Atom)
Macro Exportar a txt
Sub proceso () 'por luismondelo ruta = ActiveWorkbook.Path & "\" Open ruta & "ejemplo.txt" For Output As ...
-
--Creamos una tabla temporal con un campo clave de tipo integer identity DECLARE @Tmp_Cliente TABLE( Id int identity(1,1) not null pri...
-
declare @columns nvarchar(MAX), @sql nvarchar(MAX) SET @columns = STUFF(( SELECT ',' + QUOTENAME(campo) FROM (SELECT DIST...
-
Sub proceso () 'por luismondelo ruta = ActiveWorkbook.Path & "\" Open ruta & "ejemplo.txt" For Output As ...