SQL

t-sql remove diacritical marks and accents

F. Zomer — Mon, 16 May 2011 12:40:00 GMT

alter FUNCTION fnRemoveAccents(@String VARCHAR(1000))

RETURNS VARCHAR(1000)

BEGIN

SET @String = REPLACE(@String,'','n')

SET @String = REPLACE(@String,'','e')

SET @String = REPLACE(@String,'','o')

SET @String = REPLACE(@String,'','i')

SET @String = REPLACE(@String,'','a')

SET @String = REPLACE(@String,'','y')

SET @String = REPLACE(@String,'','u')

RETURN (SELECT @String)

END

t-sql: write database to filesystem (excel)

F. Zomer — Tue, 23 Nov 2010 10:29:00 GMT

Dit script haal alle tabellen van een database over naar file system.

voorbereiding:

1. rechten op xp_cmdshell moeten worden geactiveerd.

2. maak op de server een map aan die dezelfde naam heeft als de database.

Bron: http://www.siccolo.com/Articles/SQLScripts/how-to-create-sql-to-mass-export-all-tables-to-excel.html

--1. rechten

--sp_configure 'show advanced options',1

--GO

--RECONFIGURE

--GO

--sp_configure xp_cmdshell,1

--GO

--RECONFIGURE

--het script dat tabellen uitleest en als xls bestand opslaat.

set nocount on

declare @databasename as varchar(255)

set @databasename = 'nedasco_productie_wvp'

declare @table_name varchar(255)

declare @command varchar(7000)

declare @file_name_data varchar(500),

@file_name_header varchar(500),

@path varchar(255)

-- folder for a database already created!!!

set @path = 'c:\' + db_name() + '\'

print @path

declare all_tables cursor for

select name from sysobjects where type = 'U' order by name

for read only

open all_tables

fetch next from all_tables into @table_name

while @@fetch_status=0

begin

set @file_name_data = @path + @table_name + '.xls'

set @file_name_header = @path + @table_name + '_column_info.xls'

--///////////HEADER samenstellen\\\\\\\\\\\\\\\

--1. hoeveel kolom velden zijn er?

declare @aantalheadervelden int

set @aantalheadervelden = (select COUNT(*) from INFORMATION_SCHEMA.COLUMNS where TABLE_NAME = '' + @table_name + '')

print @aantalheadervelden

declare @loop int

declare @regel varchar(4000)

set @loop = 0

set @regel = ''

while @loop < @aantalheadervelden

BEGIN

set @loop = @loop + 1

if @regel = ''

BEGIN

set @regel = (select column_name from INFORMATION_SCHEMA.COLUMNS where ORDINAL_POSITION = @loop and TABLE_NAME = '' + @table_name + '')

END

else

BEGIN

set @regel = @regel + ' ' + (select column_name from INFORMATION_SCHEMA.COLUMNS where ORDINAL_POSITION = @loop and TABLE_NAME = '' + @table_name + '')

END

declare @cmdtxt as varchar(255)

select @cmdtxt = 'echo ' + @regel + ' >> ' + @file_name_header

print @regel

exec master..xp_cmdshell @cmdtxt

set @regel = ''

-- //////////////get data into excel:\\\\\\\\\\\\\\\\\\

set @command = 'bcp ' + db_name() + '.dbo.' + @table_name + ' out ' + @file_name_data + ' -c -t\t -T '

print @command

exec master..xp_cmdshell @command, NO_OUTPUT

--samenvoegen van de header + data bestanden in een txt bestand

select @cmdtxt = 'copy ' + @file_name_header + ' + ' + @file_name_data + ' c:\' + @databasename +'\' + @table_name + '.txt'

print @cmdtxt

exec master..xp_cmdshell @cmdtxt

--verwijderen header en data bestanden

select @cmdtxt = 'del ' + @file_name_header

exec master..xp_cmdshell @cmdtxt

select @cmdtxt = 'del ' + @file_name_data

exec master..xp_cmdshell @cmdtxt

--rename van txt bestand naar xls bestand

select @cmdtxt = 'move c:\' + @databasename + '\' + @table_name + '.txt c:\' + @databasename + '\' + @table_name + '.xls'

print 'copy: ' + @cmdtxt

exec master..xp_cmdshell @cmdtxt

fetch next from all_tables into @table_name

END

close all_tables

deallocate all_tables

set nocount off

t-sql: count rows in tables from 1 database.

F. Zomer — Tue, 16 Nov 2010 11:52:00 GMT

CREATE TABLE #foo

(
tablename VARCHAR(255),
rc INT
)

INSERT #foo
EXEC sp_msForEachTable
'SELECT PARSENAME(''?'', 1), COUNT(*) FROM ?'
SELECT tablename, rc
FROM #foo
ORDER BY 1 asc

t-sql: return value from stored procedure

F. Zomer — Thu, 04 Nov 2010 10:00:00 GMT

method1

create procedure ProdTest @trigger as int, @test varchar(15) output
as
begin
if @trigger = 0
begin
set @test = '0 result'
end
else
begin
set @test = '1 result'
end
end

----------------------

declare @getOuputValue as varchar(20)
execute dbo.ProdTest 0,@getOuputValue output
select @getOuputValue

----------------------

0 result

method2

ALTER PROCEDURE test99 (@input varchar(10))
AS
BEGIN
SET NOCOUNT ON;
select @input, @input
END
GO

------

exec test99 'halo'

---------

(No column name) (No column name)
halo halo

t-sql: how to use a variable in a TOP command and get random records

F. Zomer — Tue, 24 Aug 2010 13:56:00 GMT

SELECT TOP X COLUMNS FROM TABLE

X = variable

Assignment: show only 5 percent of a given range.....

Solution:

declare @cntRows int

set @cntRows = (select count(*) from tablename where date = getdate()) --set total

set @cntRows = (@cntRows * 0.05) --set 5 percent

select top (@cntRows ) * from tablename where date = getdate() order by newid() --get 5 percent of random records!!!!!

t-sql: how to exit a stored procedure

F. Zomer — Thu, 15 Jul 2010 16:38:00 GMT

Hi, I want to exit a stored procure when certain conditions are true.
You can use stored proc the RETURN statement for that.
.
..
...

DECLARE @CHECK001 AS INT
SET @CHECK001 = (SELECT COUNT(*) FROM tablename) -->create condition

if (@CHECK001 = 0) -->check condition
BEGIN
PRINT 'There are no records to process!'
RETURN -->exit the stored proc from here
END

...
..
.

t-sql: how to call a sql stored procedure from msaccess

F. Zomer — Thu, 08 Jul 2010 16:57:00 GMT

How to call a ms-sql stored procedure from MsAccess?

Here i use also the parameters (emailadres and some_text)

1. start a msaccess application.
2. create a button a a form and paste the next code to it.

Dim emailadres As String
emailadres = InputBox("Uw emailadres is:... ")

    If len(emailadres) <> 0 Then
        test (emailadres)
    End If

3. next create a new module and past the next code to it.

Sub test(emailadres)

Dim cmd As New ADODB.Command

Dim param As New ADODB.Parameter
With param
     .Type = adChar
     .Size = 100
     .Value = emailadres
   cmd.Parameters.Append param
End With

Dim param2 As New ADODB.Parameter
With param2
    .Type = adChar
    .Size = 100
    .Value = "some text"
cmd.Parameters.Append param2
End With

cmd.ActiveConnection = "Provider=SQLOLEDB;Data Source=servername;Initial Catalog=databasename;UID=loginname;PWD=password;"
cmd.CommandTimeout = 600
cmd.CommandType = adCmdStoredProc
cmd.CommandText = emailadres
cmd.Execute

End Sub

4. goto sql server and add a stored procedure to it. Like this one:

CREATE PROCEDURE [dbo].[emailMe]
(
@emailadres as varchar(10) --param
,@onderwerp as varchar(50) --param2
)

AS
BEGIN

EXEC master.dbo.xp_sendmail
@recipients = @emailadres
, @subject = @onderwerp
END

and voila! Sending a email initiated from msaccess.

t-sql: avoiding problems when using a MSDAQL query

F. Zomer — Wed, 07 Jul 2010 10:05:00 GMT

Running my query gives the next error statement.

The expected data length is 5, while the returned data length is 1

or in other words

'MSDASQL' returned an unexpected data length for the fixed-length column

By using: DBCC TRACEON(8765)
As first line in my query was the solution.
Don't know why but it works!!

Example:

DBCC TRACEON(8765)
Select * from openquery(Transoft, ' select field1, field2 from table)

Transsoft = driver I use

t-sql: [The data value violated the integrity constraints for the column.]

F. Zomer — Mon, 05 Jul 2010 15:52:00 GMT

I was inserting my datetime values from sql server 2000 to a column in a sql server 2008 database.
The result was:

OLE DB provider 'SQLOLEDB' could not INSERT INTO table '[...]' because of column '...'. The data value violated the integrity constraints for the column.

This was a not nullable field. Because there is (I verified this) always a filled field.

When I made it nullable, the insert processed with no problems.
And ALL the fields where filled with datetime values.

Is this a bug?

or am I missing a conversion here?

t-sql: How to store results using the function sp_columns

F. Zomer — Mon, 05 Jul 2010 09:59:00 GMT

I needed to know what kind of datatype a certain column was.
By opening the table in object explorer is one way to do it.

I found another (easier?) way of doing it.

1. first create and empty temp table
2. fill this table with the desired table using sp_columns
3. retrieve the values.

--create table

create table #ColumnInfo(
TABLE_QUALIFIER sysname null,
TABLE_OWNER sysname null,
TABLE_NAME sysname null,
COLUMN_NAME sysname null,
DATA_TYPE sysname null,
TYPE_NAME sysname null,
[PRECISION] int null,
LENGTH int null,
SCALE int null,
RADIX int null,
NULLABLE bit null,
REMARKS nvarchar(4000) Null,
COLUMN_DEF sysname null,
SQL_DATA_TYPE int null,
SQL_DATETIME_SUB int null,
CHAR_OCTET_LENGTH int null,
ORDINAL_POSITION int null,
IS_NULLABLE char(3) null,
SS_DATA_TYPE int null)

--fill table

insert into #ColumnInfo
exec sp_columns 'table_name'

--retrieve values

select column_name, type_name, [precision], length, nullable
from #ColumnInfo where column_name like '%column_name%'

example result:
column_name type_name precision length nullable
ID int identity 10 4 0
etc