Rick Caminiti dotCOM » T-SQL Get Week (Day of Week) UDF – Rick Caminiti dotCom

T-SQL Get Week (Day of Week) UDF

NothingMan — Wed, 01 Jul 2009 14:32:29 +0000

SET ANSI_NULLS ON

SET QUOTED_IDENTIFIER ON

CREATE FUNCTION getWeekByDoW

(

– Add the parameters for the function here

@date datetime,

@day varchar(3)

)

RETURNS datetime

BEGIN

DECLARE @dowNum int,

@truncDate datetime,

@retDate datetime;

select @truncDate = cast(convert(varchar, @date, 101) as datetime)

,@dowNum =

case

when @day = ‘Sun’

then 1

when @day = ‘Mon’

then 2

when @day = ‘Tue’

then 3

when @day = ‘Wed’

then 4

when @day = ‘Thu’

then 5

when @day = ‘Fri’

then 6

when @day = ‘Sat’

then 7

else 0

end

select @retDate = DATEADD(DD, @dowNum - DATEPART(DW, @truncDate), @truncDate)

RETURN @retDate

END

select getWeekByDoW(getdate(), ‘Sun’) Sun,

getWeekByDoW(getdate(), ‘Mon’) Mon,

getWeekByDoW(getdate(), ‘Tue’) Tue,

getWeekByDoW(getdate(), ‘Wed’) Wed,

getWeekByDoW(getdate(), ‘Thu’) Thu,

getWeekByDoW(getdate(), ‘Fri’) Fri,

getWeekByDoW(getdate(), ‘Sat’) Sat

Sun	Mon	Tue	Wed	Thu	Fri	Sat
6/28/2009	6/29/2009	6/30/2009	7/1/2009	7/2/2009	7/3/2009	7/4/2009

Using a T-SQL Cursor

NothingMan — Thu, 18 Jun 2009 16:48:19 +0000

I needed to loop through a large table by date, one month at a time and process the data. This is the basic cursor that I wrote in T-SQL. It’s pretty straight-forward.

First, you declare the cursor as a select statement.

Then you open the cursor (make sure you CLOSE it and DEALLOCATE it when you’re done!!)

Declare cursor-scope variables to fetch the data into and fetch the data from the cursor.

Loop through the data while the fetch status is “SUCCESS”.

Then check to make sure the fetch status indicates that the row was loaded properly and do whatever processing you need to do.

When done processing, fetch the next row and continue looping.

After the looping, close the cursor and deallocate it from memory.

DECLARE cur CURSOR

FOR select distinct cast(convert(varchar(25),dateadd(dd,-(day([date_column])-1),[date_column]),101) as datetime) begdate

,cast(convert(varchar(25),dateadd(dd,-(day(dateadd(mm,1,[date_column]))-1),dateadd(mm,1,[date_column])),101) as datetime) enddate

from [dbo].[StagingTable]

order by 1;

OPEN cur

DECLARE @begdate datetime, @enddate datetime;

FETCH NEXT from cur INTO @begdate, @enddate

WHILE (@@FETCH_STATUS <> -1)

BEGIN

IF (@@FETCH_STATUS <> -2)

BEGIN

INSERT INTO [dbo].[DestTable]

([col1]

,[col2]

,[col3]

,[col4]

,[col5])

SELECT [col1]

,[col2]

,[col3]

,[col4]

,[col5]

FROM [dbo].[StagingTable]

WHERE [date_column] >= @begdate

AND [date_column] < @enddate;

/*SELECT @begdate begdate, @enddate enddate, @@ROWCOUNT insrows;*/

DELETE

FROM [dbo].[StagingTable]

WHERE [date_column] >= @begdate

AND [date_column] < @enddate;

/*SELECT @begdate begdate, @enddate enddate, @@ROWCOUNT delrows;*/

END

FETCH NEXT from cur INTO @begdate, @enddate

END

CLOSE cur

DEALLOCATE cur

Return value	Description
0	The FETCH statement was successful.
-1	The FETCH statement failed or the row was beyond the result set.
-2	The row fetched is missing.

Rpad and Lpad Equivalent in T-SQL

NothingMan — Tue, 16 Jun 2009 18:11:02 +0000

Somehow, there’s no built-in function equivalent to Oracle’s LPAD or RPAD in SQL. There are several ways to do this, in fact, I posted another way to do RPAD at http://rickcaminiti.com/bi/t-sql-equivalent-of-oracles-rpad/. Unfortunately, this leaor
ves no way to do an LPAD.

So here’s the scenario: You have, let’s say an account number that is stored as a number in one system and as a char in another system with leading zeros. So, 123 might look like 000123 in the other system. So if you need to represent 123 as 000123, you need to turn it into a char(6) and add 3 zeros to the begining. That’s exactly what this LPAD function would do.

CREATE FUNCTION LPAD


               (@SourceString VARCHAR(MAX), 
                @FinalLength  INT, 
                @PadChar      CHAR(1)) 
RETURNS VARCHAR(MAX) 
AS 
  BEGIN 
    RETURN 
      (SELECT Replicate(@PadChar,@FinalLength - Len(@SourceString)) + @SourceString) 
  END 
GO 
 
 
REATE FUNCTION RPAD 
               (@SourceString VARCHAR(MAX), 
                @FinalLength  INT, 
                @PadChar      CHAR(1)) 
RETURNS VARCHAR(MAX) 
AS 
  BEGIN 
    RETURN 
      (SELECT @SourceString + Replicate(@PadChar,@FinalLength - Len(@SourceString))) 
  END

GO

In the example above, you would accomplish this like so:

EXEC dbo.LPAD(Cast(123 AS VARCHAR),6,'0')
OR

SELECT NewString = dbo.LPAD(Cast(123 AS VARCHAR),6,'0')

Here’s where I found it. http://www.sqlusa.com/bestpractices2005/padleadingzeros/

Obscure Timestamp DataType in SQL

NothingMan — Mon, 15 Jun 2009 21:20:42 +0000

In SQL Server, a Timestamp field helps to keep track of changes to a table in a Database.
To use it, you simply define a field without a name, and a data type of TIMESTAMP.
SQL Server automatically inserts an internal identifier into the column whenever a row is inserted or updated. To get the current value use ‘SELECT @@DBTS.


 
CREATE TABLE .t2
      (
      a int NULL,
      b int NULL,
      timestamp NULL
      )  ON [PRIMARY]
GO
COMMIT
 
 
 
insert into t
(a, b)
values (1, 2)
 
SELECT @@DBTS DBTS




DBTS




0x00000000000007E6




 
 
select * from t




a


b


timestamp




1


2


0x00000000000007E2




1


2


0x00000000000007E3




1


2


0x00000000000007E4




1


2


0x00000000000007E5




1


2


0x00000000000007E6

User Defined IsNumeric Function in PL/SQL

NothingMan — Sun, 14 Jun 2009 20:48:28 +0000

Short and sweet. Accept a varchar input parameter, try to convert it to a number. If the conversion fails for any reason, return FALSE, else, return TRUE.

CREATE OR REPLACE FUNCTION is_numeric (


   p_data   VARCHAR2
)
   RETURN NUMBER 
IS
   v_number   NUMBER;
   o_bool     BOOLEAN := TRUE;
BEGIN
   BEGIN
      v_number := p_data;
   EXCEPTION
      WHEN OTHERS THEN
         o_bool := FALSE;
   END;
 
   RETURN o_bool;
END isnumber;

Quick Reference to SQL Server Date Formats

NothingMan — Sat, 13 Jun 2009 20:36:27 +0000

Just stumbled upon this site that has a great list of common SQL Server date formats. It’s never easy in SQL to format dates, but with this list, it should be simple.

This also includes 3 simple ways to get JUST the date portion of a datetime field. When you’re just starting with SQL, this is about the most common question.

CAST(CONVERT(VARCHAR(10), @pInputDate, 111) AS DATETIME)
CAST(CAST(YEAR(@pInputDate) AS VARCHAR(4)) + '/' + CAST(MONTH(@pInputDate) AS VARCHAR(2)) + '/' + CAST(DAY(@pInputDate) AS VARCHAR(2)) AS DATETIME)
CAST(FLOOR(CAST(@pInputDate AS DECIMAL(12, 5))) AS DATETIME)

http://www.sql-server-helper.com/tips/date-formats.aspx

Alternative, Efficient Way to Get Table’s RowCount in SQL

NothingMan — Fri, 12 Jun 2009 00:49:35 +0000

I found this post about a more efficient way to get the table rowcount from a given table.

SELECT COUNT(*) statements make a full table scans to return the total table’s row count, it can take a lot of time and a lot of “energy” for a large table.

There is another way to determine the total row count in a table by using the sysindexes system table. There is a column (ROWS) in it that contains the total row count for each table in your database.

You can use the syntax below to speed up the query by several times. You can see this by setting statistics on, as shown below.


SET STATISTICS IO ON

GO
SELECT count(*) FROM tbTest

GO
SELECT rows FROM sysindexes WHERE id = OBJECT_ID('tbTest') AND indid < 2

GO
SET STATISTICS IO OFF

GO

———–
10000

(1 row(s) affected)

Table ‘tbTest’. Scan count 1, logical reads 32, physical reads 0, read-ahead reads 0.
rows
———–
10000

(1 row(s) affected)

Table ‘sysindexes’. Scan count 1, logical reads 2, physical reads 0, read-ahead reads 0.

SQL Server Computed Column

NothingMan — Wed, 10 Jun 2009 15:36:20 +0000

I always thought the only way to have a computed or derived column in SQL was to use some kind of a view in place, but I found out that you can actually create a computed column on a table and that you can even “persist” the data and have it indexed.

I’m only guessing that behind the scenes, SQL treats this somewhat like a trigger, like a before-trigger, where just prior to the transaction being posted, the calculations are applied and the column is populated, then the full transaction is applied.

Here’s the article where I found this information.

And here’s an example:


use database 
 
create table t 
( a int, b int); 
 
--adding the computed column
alter table t add 
x as case a  
            when -1 then 
                  b 
            else 
                  a 
            end persisted not null
--using "persisted" is required if you want to make column "not null".  I believe "persisted" is somewhat implied if computed column is derived from PK columns.
 
--just showing that you can create an index on the new column
create index z on t (x) 
 
 
insert into t values (1, -1) 
insert into t values (2, -1) 
insert into t values (-1, 4) 
insert into t values (-1, 3) 
insert into t values (-1, -1) 
 
select * from t 
 
 
 
--you can see that the computed column worked.
a       b       x      
1       -1      1      
2       -1      2      
-1      4       4      
-1      3       3      
-1      -1      -1

Escape Syntax in T-SQL LIKE Statement with ‘_’

NothingMan — Wed, 27 May 2009 21:33:05 +0000

In a like statement, “%” is a wildcard for everything after or before it and “_” is a wildcard for one character. Observe:

LIKE ‘%Z’ would return ANYthing that ended with Z.

LIKE ‘%Z%’ would return ANYthing with a Z in it.

LIKE ‘Z__’ would return anything that started with Z and had at least 2 characters after it, like:

ZOO, ZXY, ZAP

but would not return:

ZA, ZO, Z, or XYZ

LIKE ‘Z%’ would return anything that STARTED with Z.

LIKE ‘_Z%’ would return anything that had one character, then a Z, then anything or nothing else like:

YZX, YZ, ZZZ

but would not return:

XYZ, ABCZ

However, if you want to look for the literal value of ‘%’ or ‘_’, you need to escape it. For instance, if you want to look for anything that begins with ‘Z_’, then you would need to escape the ‘_’, otherwise, you would be looking for anything that started with ‘Z’ followed by one wildcard character ‘_’, followed by a wildcard of any number of characters ‘%’, returning anything that just started with ‘Z’ and had at lease one character after it.

select table_catalog, column_name, table_schema, table_name from information_schema.columns where column_name like 'Z\_%' escape '\'

This would only return data that started with 'Z_'.

Generate ROWNUM pseudo-column in SSIS

NothingMan — Wed, 27 May 2009 15:43:32 +0000

I posted earlier on how to generate a rownumber in SQL 2000, but that would not work as a source query in SSIS for some reason. Without having to create a stored procedure or temp tables based on other temp tables, I wanted a simple way to generate this rownum in SSIS. I was considering something with variable expressions, but then I found a way to do it with a Script Component.

Drag a Script Component Task into your DataFlow and connect it between your source and destination tasks. Open it up and click “Inputs and Outputs”. Double Click “Output 0″ and highlight “Output Columns” and click Add Column. For this code to work, name that new column “rownum“.

Then open the script tab and click “Design Script” and paste this code over what is already there:

Imports System

Imports System.Data

Imports System.Math

Imports Microsoft.SqlServer.Dts.Pipeline.Wrapper

Imports Microsoft.SqlServer.Dts.Runtime.Wrapper

Public Class ScriptMain

Inherits UserComponent

Dim counter As Integer = 0

Public Overrides Sub Input0_ProcessInputRow(ByVal Row As Input0Buffer)

Row.rownum= counter

counter = counter + 1

End Sub

End Class

T-SQL Delete Join

NothingMan — Fri, 22 May 2009 14:56:15 +0000

Here’s are two quick ways to Delete data in one table based on another table. This works perfectly in an ETL job where you have a staging table that indicate whether to Insert, Update, or Delete the data in the other table.

The first one uses an inner join, the second uses a simple EXISTS clause.


DELETE b
  FROM [dbo].[TABLE_1] b
 INNER JOIN [dbo].[TABLE_2] w
    ON b.[ROW_ID] = w.[ROW_ID]
 WHERE w.[CTRL_CD] = 'D'
 
 
DELETE b
  FROM [dbo].[TABLE_1] b
 WHERE EXISTS (
            SELECT 1
          FROM [dbo].[TABLE_2] w
         WHERE b.[ROW_ID] = w.[ROW_ID]
           AND w.[CTRL_CD] = 'D')

Google Geocoding in SSIS

NothingMan — Wed, 20 May 2009 17:46:18 +0000

I have an old YouTube tutorial on how to use Google Geocoding within SSIS, but I lost all the downloadable scripts. I recently had a few people asking me if I could send them the scripts, so I deiceded to rewrite them.

Again, you can check out the YouTub video (it’s rough) for more details, just go to http://www.youtube.com/watch?v=HTSHzR-wSgc with this DISCLAIMER: This code was just thrown together and is quite ugly and my microphone was terrible, I usually sound much better than that :-)

In a nutshell, I sniped about 18,000 golfcourses off the web with a PHP script and got basic course information for all of them, including the address information. I wanted to use Google Maps to display these courses, so I thought I’d use Google Geocoding. Caution, they don’t like it when you hit them 1000 times per second, so I would recommend using a Sleep command in your code like I did so you can throttle it without getting kicked off.

So, I have an OLE Source task that reads from my database. I created a Derived Column task to create placeholders for latitude, longitude, and level of accuracy. I created a Script Component and selected street, city, state, and zip as input columns and added lat, long, and accuracy as read/write columns.

Open the script editor, add a reference to System.Web, then create a new class called Google GeoCode, or whatever the heck you want to call it and paste in this code:

Option Strict Off


''' Might need this, might not
Imports System
Imports System.Data
Imports System.Math
Imports System.Net
Imports System.Web
Imports System.IO
Namespace GoogleGeoCoder
    Public Interface ISpatialCoordinate
        Property latitude() As Double
        Property longitude() As Double
    End Interface
    ''' 
    
    ''' Coordiate structure. Holds Latitude and Longitude.    
    ''' 
    
    Public Structure Coordinate
        Implements ISpatialCoordinate
 
        Private _latitude As Double
        Private _longitude As Double
 
        Public Sub New(ByVal lattitude As Double, ByVal longitude As Double)
            _latitude = lattitude
            _longitude = longitude
        End Sub
 
        Public Property latitude() As Double Implements ISpatialCoordinate.latitude
            Get
                Return _latitude
            End Get
            Set(ByVal value As Double)
                _latitude = value
            End Set
        End Property
 
        Public Property longitude() As Double Implements ISpatialCoordinate.longitude
            Get
                Return _longitude
            End Get
            Set(ByVal value As Double)
                _longitude = value
            End Set
        End Property
 
    End Structure
    Public Class GeoCode
        Const _googleUri As String = "http://maps.google.com/maps/geo?q="
        Const _googleKey As String = "yourgooglekeyhere"  ' get your own        
        Const _outputType As String = "csv"
        Private Shared Function GetGeoCodeUri(ByVal address As String) As Uri
            address = HttpUtility.UrlEncode(address)
            Return New Uri(String.Format("{0}{1}&output={2}&key={3}", _googleUri, address, _outputType, _googleKey))
        End Function
        ''' 
        
        ''' Gets a Coordinate from a address.        
        ''' 
        
        ''' An address.        
        '''         
        ''' 1600 Amphitheatre Parkway Mountain View, CA 94043        
        '''         
        '''         
        ''' A spatial coordinate that contains the latitude and longitude of the address.        
        Public Shared Function GetCoordinates(ByVal address As String) As Coordinate
            Dim client As WebClient = New WebClient()
            Dim uri As Uri = GetGeoCodeUri(address)
            Dim geoCodeInfo As String()
            'The first number is the status code,             
            'the second is the accuracy,             
            'the third is the latitude,             
            'the fourth one is the longitude.            
            Try
                geoCodeInfo = client.DownloadString(uri).Split(",")
                Return New Coordinate(Convert.ToDouble(geoCodeInfo(2)), Convert.ToDouble(geoCodeInfo(3)))
            Catch ex As Exception
                Return New Coordinate(0.0, 0.0)
            End Try
        End Function
    End Class
End Namespace

Save it and then go back to the main script and add Import that class (see code). Notice, the way I’m getting the level of accuracy with my ugly nested IF statements isn’t the prettiest way to do this, use your imagination. Copy in this code into the Main Script:


' Microsoft SQL Server Integration Services user script component
' This is your new script component in Microsoft Visual Basic .NET
' ScriptMain is the entrypoint class for script components
 
Imports System
Imports System.Data
Imports System.Math
Imports Microsoft.SqlServer.Dts.Pipeline.Wrapper
Imports Microsoft.SqlServer.Dts.Runtime.Wrapper
Imports ScriptComponent_4a8732cababc49a999159a91c737082a.GoogleGeoCoder
 
Public Class ScriptMain
    Inherits UserComponent
 
    Public Overrides Sub Input0_ProcessInputRow(ByVal Row As Input0Buffer)
 
        Dim coordinate As Coordinate = GeoCode.GetCoordinates(Row.street & ", " & Row.city & ", " & Row.state & ", " & Row.zip)
 
        If ((coordinate.latitude <> 0) And (coordinate.longitude <> 0)) Then
            Row.lat = Convert.ToDecimal(coordinate.latitude)
            Row.long = Convert.ToDecimal(coordinate.longitude)
            Row.acc = 1
        Else
            coordinate = GeoCode.GetCoordinates(Row.city & ", " & Row.state & ", " & Row.zip)
            If ((coordinate.latitude <> 0) And (coordinate.longitude <> 0)) Then
                Row.lat = Convert.ToDecimal(coordinate.latitude)
                Row.long = Convert.ToDecimal(coordinate.longitude)
                Row.acc = 2
            Else
                coordinate = GeoCode.GetCoordinates(Row.zip)
                If ((coordinate.latitude <> 0) And (coordinate.longitude <> 0)) Then
                    Row.lat = Convert.ToDecimal(coordinate.latitude)
                    Row.long = Convert.ToDecimal(coordinate.longitude)
                    Row.acc = 3
                Else
                    coordinate = GeoCode.GetCoordinates(Row.city & ", " & Row.state)
                    If ((coordinate.latitude <> 0) And (coordinate.longitude <> 0)) Then
                        Row.lat = Convert.ToDecimal(coordinate.latitude)
                        Row.long = Convert.ToDecimal(coordinate.longitude)
                        Row.acc = 4
                    Else
                        coordinate = GeoCode.GetCoordinates(Row.state)
                        If ((coordinate.latitude <> 0) And (coordinate.longitude <> 0)) Then
                            Row.lat = Convert.ToDecimal(coordinate.latitude)
                            Row.long = Convert.ToDecimal(coordinate.longitude)
                            Row.acc = 5
                        End If
                    End If
                End If
            End If
        End If
    End Sub
 
End Class

RowNum() Equivalent in SQL 2000+

NothingMan — Mon, 18 May 2009 15:02:06 +0000

Oracle has a pseudo-column called ROWNUM that allows you to display the row number for each row. There are infinite reasons why you might want to use the ROWNUM, but in SQL it’s not nearly as easy to determine.

In Oracle, it’s simply

SELECT ROWNUM from table_name

In SQL 2005+, there is actually a ROW_NUMBER() function, but you have to give it some more information to use it.

ROW_NUMBER ( ) OVER ( [ ] )

For example:
use [Database] select row_number() over (order by data_srce_id desc) rownum

,data_srce_id from data_srce

rownum	data_srce_id
1	8
2	7
3	6
4	5
5	4
6	3
7	2
8	1
9	-1

However, in SQL 2000 it’s a little more difficult. The only way I’ve found is using the IDENTITY() function, which requires an INTO statement, so you pretty much have to load the results into a #temporary table and then select from the #temporary table like this:

use [Database]


SELECT IDENTITY(int, 1,1) id
      ,t1.[column1]           col1
      ,t1.[column2]           col2
      ,t1.[column3]           col3
      ,t2.[column2]           col4
  INTO #Temp
  FROM [dbo].[Table] t1
 INNER JOIN [dbo].[Table2] t2
    ON t.[column] = t2.[column]
 
select *

from #Temp

Sending Mail with MSSQL

NothingMan — Fri, 15 May 2009 16:13:42 +0000

Here’s a quick and dirty way to send email via MSSQL. For some reason, we’re not allowed to send email using the Email Task in SSIS, so I chose this option. Unfortunately, even if you have access to execute sp_SQLSMTPMail, you might not have access to run xp_cmdshell.

I ended up having to create my SSIS package with a SQL Task that runs this proc, then I had to run it with a SQL Agent Job with a proxy account that had access to xp_cmdshell. Fun stuff.

declare @developerperson varchar(80)

declare @message_body varchar(1000)

set @message_body =

‘Dear ‘ + @developerperson + ‘Use \n for line breaks and escape your ”s’

EXECUTE dbo.sp_SQLSMTPMail

@vcTo = ‘You@you.com’,

@vcCC= ‘Them@them.com’,

@vcSubject = ‘Super Cool SQL Email’,

@vcBody = @message_body,

@vcFrom = ‘Me@me.com’,

@vcSMTPServer = ‘SMTPName’,

@vcSenderName = ‘Some One’,

@vcServerName = @@SERVERNAME –no need to specify because this is the default anyway

Or, lets say you want to email query results as an attachment:

EXECUTE dbo.sp_SQLSMTPMail

@vcTo=‘you@you.com’

, @vcCC=‘them@them.com’

, @vcSubject=‘Here is your wonderful report that is terribly formatted as a txt file attachment’

, @vcquery= ‘select col1, col2, col3, col4 from database.schema.table’

Here’s the actual Proc definition:

Create Procedure dbo.sp_SQLSMTPMail

@vcFrom varchar(128) = null,

@vcTo varchar(2048) = null,

@vcSubject varchar(255) = null,

@vcBody varchar(8000) = ”,

@vcCC varchar(2048) = ”,

@vcBCC varchar(2048) = ”,

@vcAttachments varchar(1024) = null,

@vcQuery varchar(8000) = null,

@vcSMTPServer varchar(255) = ’192.168.1.55′, – PUT YOUR LOCAL SMTP SERVER HERE

@cSendUsing char(1) = ’2′,

@vcPort varchar(3) = ’25′,

@cAuthenticate char(1) = ’0′,

@vcDSNOptions varchar(2) = ’0′,

@vcTimeout varchar(2) = ’30′,

@vcSenderName varchar(128) = null,

@vcServerName sysname = null

Set nocount on

– Determine if the user requested syntax.

If @vcTo = ‘?’

Begin

Print ‘Syntax for sp_SQLSMTPMail (based on CDOSYS):’

Print ‘Exec master.dbo.sp_SQLSMTPMail’

Print ‘ @vcTo (varchar(2048)) – Recipient e-mail address list separating each with a ”;” ‘

Print ‘ or a ”,”. Use a ”?” to return the syntax.’

Print ‘ @vcBody (varchar(8000)) – Text body; use embedded char(13) + char(10)’

Print ‘ for carriage returns. The default is nothing’

Print ‘ @vcSubject (varchar(255))) – E-mail subject. The default is a message from’

Print ‘ @@servername.’

Print ‘ @vcAttachments (varchar(1024)) – Attachment list separating each with a ”;”.’

Print ‘ The default is no attachments.’

Print ‘ @vcQuery (varchar(8000)) – In-line query or a query file path; do not ‘

Print ‘ use double quotes within the query.’

Print ‘ @vcFrom (varchar(128)) - Sender list defaulted to @@ServerName.’

Print ‘ @vcCC (varchar(2048)) – CC list separating each with a ”;” or a ”,”’

Print ‘ The default is no CC addresses.’

Print ‘ @vcBCC (varchar(2048)) – Blind CC list separating each with a ”;” or a ”,”’

Print ‘ The default is no BCC addresses.’

Print ‘ @vcSMTPServer (varchar(255)) - Network smtp server defaulted to your companies network’

Print ‘ smtp server. Set this in the stored proc code.’

Print ‘ @cSendUsing (char(1)) - Specifies the smpt server method, local or network. The’

Print ‘ default is network, a value of ”2”.’

Print ‘ @vcPort (varchar(3)) - The smtp server communication port defaulted to ”25”.’

Print ‘ @cAuthenticate (char(1)) - The smtp server authentication method defaulted to ‘

Print ‘ anonymous, a value of ”0”.’

Print ‘ @vcDSNOptions (varchar(2)) - The smtp server delivery status defaulted to none,’

Print ‘ a value of ”0”.’

Print ‘ @vcTimeout (varchar(2)) - The smtp server connection timeout defaulted to 30 seconds.’

Print ‘ @vcSenderName (varchar(128)) - Primary sender name defaulted to @@ServerName.’

Print ‘ @vcServerName (sysname) - SQL Server to which the query is directed defaulted’

Print ‘ to @@ServerName.’

Print ”

Print ‘Example:’

Print ‘sp_SQLSMTPMail ””, ”This is a test”, @vcSMTPServer = ’

Print ”

Print ‘The above example will send an smpt e-mail to from @@ServerName’

Print ‘with a subject of ”Message from SQL Server <@@ServerName>” and a’

Print ‘text body of ”This is a test” using the network smtp server specified.’

Print ‘See the MSDN online library, Messaging and Collaboration, at ‘

Print ‘http://www.msdn.microsoft.com/library/ for details about CDOSYS.’

Print ‘subheadings: Messaging and Collaboration>Collaboration Data Objects>CDO for Windows 2000>’

Print ‘Reference>Fields>http://schemas.microsoft.com/cdo/configuration/>smtpserver field’

Print ”

Print ‘Be sure to set the default for @vcSMTPServer before compiling this stored procedure.’

Print ”

Return

End

– Declare variables

Declare @iMessageObjId int

Declare @iHr int

Declare @iRtn int

Declare @iFileExists tinyint

Declare @vcCmd varchar(255)

Declare @vcQueryOutPath varchar(50)

Declare @dtDatetime datetime

Declare @vcErrMssg varchar(255)

Declare @vcAttachment varchar(1024)

Declare @iPos int

Declare @vcErrSource varchar(255)

Declare @vcErrDescription varchar(255)

– Set local variables.

Set @dtDatetime = getdate()

Set @iHr = 0

– Check for minimum parameters.

If @vcTo is null

Begin

Set @vcErrMssg = ‘You must supply at least 1 recipient.’

Goto ErrMssg

End

– CDOSYS uses commas to separate recipients. Allow users to use

– either a comma or a semi-colon by replacing semi-colons in the

– To, CCs and BCCs.

Select @vcTo = Replace(@vcTo, ‘;’, ‘,’)

Select @vcCC = Replace(@vcCC, ‘;’, ‘,’)

Select @vcBCC = Replace(@vcBCC, ‘;’, ‘,’)

– Set the default SQL Server to the local SQL Server if one

– is not provided to accommodate instances in SQL 2000.

If @vcServerName is null

Set @vcServerName = @@servername

– Set a default “subject” if one is not provided.

If @vcSubject is null

Set @vcSubject = ‘Message from SQL Server ‘ + @vcServerName

– Set a default “from” if one is not provided.

If @vcFrom is null

Set @vcFrom = ‘SQL-’ + Replace(@vcServerName,‘\’,‘_’)

– Set a default “sender name” if one is not provided.

If @vcSenderName is null

Set @vcSenderName = ‘SQL-’ + Replace(@vcServerName,‘\’,‘_’)

– Create the SMTP message object.

EXEC @iHr = sp_OACreate ‘CDO.Message’, @iMessageObjId OUT

IF @iHr <> 0

Begin

Set @vcErrMssg = ‘Error creating object CDO.Message.’

Goto ErrMssg

End

– Set SMTP message object parameters.

– To

EXEC @iHr = sp_OASetProperty @iMessageObjId, ‘To’, @vcTo

IF @iHr <> 0

Begin

Set @vcErrMssg = ‘Error setting Message parameter “To”.’

Goto ErrMssg

End

– Subject

EXEC @iHr = sp_OASetProperty @iMessageObjId, ‘Subject’, @vcSubject

IF @iHr <> 0

Begin

Set @vcErrMssg = ‘Error setting Message parameter “Subject”.’

Goto ErrMssg

End

– From

EXEC @iHr = sp_OASetProperty @iMessageObjId, ‘From’, @vcFrom

IF @iHr <> 0

Begin

Set @vcErrMssg = ‘Error setting Message parameter “From”.’

Goto ErrMssg

End

– CC

EXEC @iHr = sp_OASetProperty @iMessageObjId, ‘CC’, @vcCC

IF @iHr <> 0

Begin

Set @vcErrMssg = ‘Error setting Message parameter “CC”.’

Goto ErrMssg

End

– BCC

EXEC @iHr = sp_OASetProperty @iMessageObjId, ‘BCC’, @vcBCC

IF @iHr <> 0

Begin

Set @vcErrMssg = ‘Error setting Message parameter “BCC”.’

Goto ErrMssg

End

– DSNOptions

EXEC @iHr = sp_OASetProperty @iMessageObjId, ‘DSNOptions’, @vcDSNOptions

IF @iHr <> 0

Begin

Set @vcErrMssg = ‘Error setting Message parameter “DSNOptions”.’

Goto ErrMssg

End

– Sender

EXEC @iHr = sp_OASetProperty @iMessageObjId, ‘Sender’, @vcSenderName

IF @iHr <> 0

Begin

Set @vcErrMssg = ‘Error setting Message parameter “Sender”.’

Goto ErrMssg

End

– Is there a query to run?

If @vcQuery is not null and @vcQuery <> ”

Begin

– We have a query result to include; temporarily send the output to the

– drive with the most free space. Use xp_fixeddrives to determine this.

– If a temp table exists with the following name drop it.

If (Select object_id(‘tempdb.dbo.#fixeddrives’)) > 0

Exec (‘Drop table #fixeddrives’)

– Create a temp table to work with xp_fixeddrives.

Create table #fixeddrives(

Drive char(1) null,

FreeSpace varchar(15) null)

– Get the fixeddrive info.

Insert into #fixeddrives Exec master.dbo.xp_fixeddrives

– Get the drive letter of the drive with the most free space

– Note: The OSQL output file name must be unique for each call within the same session.

– Apparently OSQL does not release its lock on the first file created until the session ends.

– Hence this alleviates a problem with queries from multiple calls in a cursor or other loop.

Select @vcQueryOutPath = Drive + ‘:\TempQueryOut’ +

ltrim(str(datepart(hh,getdate()))) +

ltrim(str(datepart(mi,getdate()))) +

ltrim(str(datepart(ss,getdate()))) +

ltrim(str(datepart(ms,getdate()))) + ‘.txt’

from #fixeddrives

where FreeSpace = (select max(FreeSpace) from #fixeddrives )

– Check for a pattern of ‘\\*\’ or ‘?:\’.

– If found assume the query is a file path.

If Left(@vcQuery, 35) like ‘\\%\%’ or Left(@vcQuery, 5) like ‘_:\%’

Begin

Select @vcCmd = ‘osql /S’ + @vcServerName + ‘ /E /i’ +

convert(varchar(1024),@vcQuery) +

‘ /o’ + @vcQueryOutPath + ‘ -n -w5000 ‘

End

Else

Begin

Select @vcCmd = ‘osql /S’ + @vcServerName + ‘ /E /Q”‘ + @vcQuery +

‘” /o’ + @vcQueryOutPath + ‘ -n -w5000 ‘

End

– Execute the query

Exec master.dbo.xp_cmdshell @vcCmd, no_output

– Add the query results as an attachment if the file was successfully created.

– Check to see if the file exists. Use xp_fileexist to determine this.

– If a temp table exists with the following name drop it.

If (Select object_id(‘tempdb.dbo.#fileexists’)) > 0

Exec (‘Drop table #fileexists’)

– Create a temp table to work with xp_fileexist.

Create table #fileexists(

FileExists tinyint null,

FileIsDirectory tinyint null,

ParentDirectoryExists tinyint null)

– Execute xp_fileexist

Insert into #fileexists exec master.dbo.xp_fileexist @vcQueryOutPath

– Now see if we need to add the file as an attachment

If (select FileExists from #fileexists) = 1

Begin

– Set a variable for later use to delete the file.

Select @iFileExists = 1

– Add the file path to the attachment variable.

If @vcAttachments is null

Select @vcAttachments = @vcQueryOutPath

Else

Select @vcAttachments = @vcAttachments + ‘; ‘ + @vcQueryOutPath

End

– Check for multiple attachments separated by a semi-colon ‘;’.

If @vcAttachments is not null

Begin

If right(@vcAttachments,1) <> ‘;’

Select @vcAttachments = @vcAttachments + ‘; ‘

Select @iPos = CharIndex(‘;’, @vcAttachments, 1)

While @iPos > 0

Begin

Select @vcAttachment = ltrim(rtrim(substring(@vcAttachments, 1, @iPos -1)))

Select @vcAttachments = substring(@vcAttachments, @iPos + 1, Len(@vcAttachments)-@iPos)

EXEC @iHr = sp_OAMethod @iMessageObjId, ‘AddAttachment’, @iRtn Out, @vcAttachment

IF @iHr <> 0

Begin

EXEC sp_OAGetErrorInfo @iMessageObjId, @vcErrSource Out, @vcErrDescription Out

Select @vcBody = @vcBody + char(13) + char(10) + char(13) + char(10) +

char(13) + char(10) + ‘Error adding attachment: ‘ +

char(13) + char(10) + @vcErrSource + char(13) + char(10) +

@vcAttachment

End

Select @iPos = CharIndex(‘;’, @vcAttachments, 1)

End

– TextBody

EXEC @iHr = sp_OASetProperty @iMessageObjId, ‘TextBody’, @vcBody

IF @iHr <> 0

Begin

Set @vcErrMssg = ‘Error setting Message parameter “TextBody”.’

Goto ErrMssg

End

– Other Message parameters for reference

–EXEC @iHr = sp_OASetProperty @iMessageObjId, ‘MimeFormatted’, False

–EXEC @iHr = sp_OASetProperty @iMessageObjId, ‘AutoGenerateTextBody’, False

–EXEC @iHr = sp_OASetProperty @iMessageObjId, ‘MDNRequested’, True

– Set SMTP Message configuration property values.

– Network SMTP Server location

EXEC @iHr = sp_OASetProperty @iMessageObjId,

‘Configuration.Fields(“http://schemas.microsoft.com/cdo/configuration/smtpserver”).Value’,

@vcSMTPServer

IF @iHr <> 0

Begin

Set @vcErrMssg = ‘Error setting Message configuraton field “smtpserver”.’

Goto ErrMssg

End

– Sendusing

EXEC @iHr = sp_OASetProperty @iMessageObjId,

‘Configuration.Fields(“http://schemas.microsoft.com/cdo/configuration/sendusing”).Value’,

@cSendUsing

IF @iHr <> 0

Begin

Set @vcErrMssg = ‘Error setting Message configuraton field “sendusing”.’

Goto ErrMssg

End

– SMTPConnectionTimeout

EXEC @iHr = sp_OASetProperty @iMessageObjId,

‘Configuration.Fields(“http://schemas.microsoft.com/cdo/configuration/SMTPConnectionTimeout”).Value’,

@vcTimeout

IF @iHr <> 0

Begin

Set @vcErrMssg = ‘Error setting Message configuraton field “SMTPConnectionTimeout”.’

Goto ErrMssg

End

– SMTPServerPort

EXEC @iHr = sp_OASetProperty @iMessageObjId,

‘Configuration.Fields(“http://schemas.microsoft.com/cdo/configuration/SMTPServerPort”).Value’,

@vcPort

IF @iHr <> 0

Begin

Set @vcErrMssg = ‘Error setting Message configuraton field “SMTPServerPort”.’

Goto ErrMssg

End

– SMTPAuthenticate

EXEC @iHr = sp_OASetProperty @iMessageObjId,

‘Configuration.Fields(“http://schemas.microsoft.com/cdo/configuration/SMTPAuthenticate”).Value’,

@cAuthenticate

IF @iHr <> 0

Begin

Set @vcErrMssg = ‘Error setting Message configuraton field “SMTPAuthenticate”.’

Goto ErrMssg

End

– Other Message Configuration fields for reference