jueves, 17 de agosto de 2017

Cargar Archivos a SQL

BULK

INSERT TIENDA
FROM 'D:\BASES DE DATOS\DATOS.txt'--Ruta archivo
WITH

( FIELDTERMINATOR = ',', --separa campos
  ROWTERMINATOR = '\n' ) --separa filas

GO

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

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

Macro Exportar a txt

Sub proceso () 'por luismondelo ruta = ActiveWorkbook.Path & "\" Open ruta & "ejemplo.txt" For Output As ...