Mostrando las entradas con la etiqueta sql. Mostrar todas las entradas
Mostrando las entradas con la etiqueta sql. Mostrar todas las entradas

martes, 25 de marzo de 2014

Removing leading zeros in a nvarchar sql -Remover ceros a la izquierda en un nvarchar sql

SUBSTRING(Col1, PATINDEX('%[^0 ]%', Col1 + ' '), LEN(Col1))
ejemplo
select SUBSTRING('0052658f', PATINDEX('%[^0 ]%', '0052658f' + ' '), LEN('0052658f'))

resultado
52658f

jueves, 31 de octubre de 2013

How to concatenate all strings from a certain column for each group--Como concatenar string de cierta columna en un grupo de registros en sql

SELECT  (SELECT STUFF((
      SELECT '/'+ cast(NombrePasajero AS NVARCHAR(255))
      FROM  tblREserva REPA
      WHERE  REPA.CodigoResrva=123
      FOR XML PATH('')
      )
      ,1,1,'')) AS Pasajeros,
      intCantAdultos,
      intCantNinos
      intCantInfantes,
     

How connect to sql database in script task SSIS --Como conectarse a una base de datos sql en un script task de SSIS

  • Create a New ADO .Net Connection  "BDRepoManager"
  • Create a script task right click and edit script
 Public Sub Main()
        Dim sqlConn As SqlClient.SqlConnection       ' Object to hold connection
        Dim sqlCmd As SqlCommand                     ' SQL Command object
        Dim rdrReader As SqlDataReader               ' Data reader to hold output of command
        Dim sqlCmdText As String                     ' SQL Command text
        sqlConn = DirectCast(Dts.Connections("BDRepoManager").AcquireConnection(Dts.Transaction), SqlClient.SqlConnection)

   sqlCmdText = Dts.Variables("User::storedProcedure").Value
        ' Execute the command and put the results into the data reader
        sqlCmd = New SqlCommand(sqlCmdText, sqlConn)
        sqlCmd.CommandType = CommandType.StoredProcedure
        Dim parameters As String = Dts.Variables("User::parameters").Value
        Dim parametersArray() As String
        parametersArray = parameters.Split(",")
        Dim paramValues As String = Dts.Variables("User::paramValues").Value
        Dim paramValuesArray() As String
        paramValuesArray = paramValues.Split(",")
        For i As Integer = 0 To parametersArray.Length - 1
            sqlCmd.Parameters.Add(New SqlParameter(parametersArray(i), paramValuesArray(i)))
        Next
        Dim sda As New SqlDataAdapter()
        Dim dt As New DataTable()
        sda.SelectCommand = sqlCmd
        sda.Fill(dt)
  End Sub