Arquivo da tag: SQL

Desenvolvimento

SQL – Listando os bancos de dados no SQL Server com T-SQL

se tem uma coisa que gosto de linguagens, programas ou mesmo tecnologias mais novas, é que elas simples o que realmente devia ser simples desde o começo. Vários são os exemplos, mas o que quero citar agora, é o do MySQL. Quando quero saber quais são os bancos de dados ou schemas do meu servidor, basta digitar um simples comando:

SHOW DATABASES;

Simples, direto, semântico. Praticamente não é preciso pensar para digitar esse comando. Mas, quando se está no SQL Server, que ultimamente tem focado quase que totalmente em ferramentas visuais, obter uma lista dessa não é impossível, mas faz você parar para pensar demais, ou até mesmo pesquisar na internet por causa disso.

Bom, se você chegou aqui por causa disso, abaixo vão alguns meios de obter a lista de banco de dados do seu servidor usando algumas linhas de T-SQL:

----SQL SERVER 2005 System Procedures
 EXEC sp_databases
 EXEC sp_helpdb
 ----SQL 2000 Method still works in SQL Server 2005
 SELECT name
 FROM sys.databases
 SELECT name
 FROM sys.sysdatabases
 ----SQL SERVER Un-Documented Procedure
 EXEC sp_msForEachDB 'PRINT ''?'''

O créditos pelo código vão para o colega Pinal Dave.

Desenvolvimento

T-SQL – Efetuando a busca de um texto em todas as tabelas do banco de dados

3 Comentários

Mais uma da série canivete suíço. 😉

Como mais uma necessidade “doida” do dia a dia que vivemos, foi preciso procurar em todas as tabelas de um banco de dados SQL Server que continham uma determinada string. Pois bem, com várias opções em mãos, a menos complicada de enviar para um ambiente de produção sem a necessidade de um Application Server era uma query SQL que fizesse o trabalho.

Depois de muito suor e testes, o resultado foi a query abaixo:

DECLARE @SQL VARCHAR(8000)
DECLARE @filtro VARCHAR(200)
DECLARE @filtro_www VARCHAR(200)
 
-- inicia a declaração do sql
SET @SQL = ''
SET @filtro = '%texto_procurado%'
 
SELECT
   tabelas.name   AS Tabela 
  ,colunas.name   AS Coluna
  ,tipos.name     AS Tipo
  ,colunas.length AS Tamanho
INTO
  #result
FROM 
  sysobjects tabelas
  INNER JOIN syscolumns colunas
  ON colunas.id = tabelas.id
  --
  INNER JOIN systypes tipos
  ON tipos.xtype = colunas.xtype
WHERE 
  tabelas.xtype = 'u'
    AND
  -- colocar aqui os tipos de coluna que serão buscados
  tipos.name IN('text', 'ntext', 'varchar', 'nvarchar')
 
 
-- cursor para varrer as tabelas
DECLARE cTabelas cursor LOCAL fast_forward FOR
SELECT DISTINCT Tabela FROM #result
 
DECLARE @nomeTabela VARCHAR(255)
 
OPEN cTabelas
 
fetch NEXT FROM cTabelas INTO @nomeTabela
 
while @@fetch_status = 0
BEGIN
 
  -- cursor para varrer as colunas da tabela corrente
  DECLARE cColunas cursor LOCAL fast_forward FOR
  SELECT Coluna, Tipo, Tamanho FROM #result WHERE Tabela = @nomeTabela
 
  DECLARE @nomeColuna VARCHAR(255)
  DECLARE @tipoColuna VARCHAR(255)
  DECLARE @tamanhoColuna VARCHAR(255)
 
  OPEN cColunas
 
  -- monta as colunas da cláusula select 
  fetch NEXT FROM cColunas INTO @nomeColuna, @tipoColuna, @tamanhoColuna
 
  while @@fetch_status = 0
  BEGIN
    -- cria a declaração da variável
    SET @SQL = 'declare @hasresults bit' + CHAR(13) + CHAR(10) + CHAR(13) + CHAR(10)
    -- cria o select
    SET @SQL = @SQL + 'select' + CHAR(13) + CHAR(10)
    SET @SQL = @SQL + CHAR(9) + '''' + @nomeTabela + ''' AS NomeTabela'
    SET @SQL = @SQL + CHAR(9) + ',' + @nomeColuna + CHAR(13) + CHAR(10)
    -- adiciona uma coluna com o tipo e o tamanho do campo
    SET @SQL = @SQL  + CHAR(9) + ',' + '''' + @tipoColuna + ''' AS ''' + @nomeColuna + '_Tipo''' + CHAR(13) + CHAR(10)
    SET @SQL = @SQL  + CHAR(9) + ',' + 'DATALENGTH(' + @nomeColuna + ') AS ''' + @nomeColuna + '_Tamanho_Ocupado''' + CHAR(13) + CHAR(10)    
    SET @SQL = @SQL  + CHAR(9) + ',' + '''' + @tamanhoColuna + ''' AS ''' + @nomeColuna + '_Tamanho_Maximo''' + CHAR(13) + CHAR(10)
 
    -- define a tabela temporária (#result)
    SET @SQL = @SQL + 'into' + CHAR(13) + CHAR(10) + CHAR(9) + '#result_' + @nomeTabela + CHAR(13) + CHAR(10)
    -- adiciona a cláusula from
    SET @SQL = @SQL +  'from' + CHAR(13) + CHAR(10) + CHAR(9) + @nomeTabela + CHAR(13) + CHAR(10)
    -- inicia a montagem do where
    SET @SQL = @SQL + 'where' + CHAR(13) + CHAR(10)
    SET @SQL = @SQL + CHAR(9) + @nomeColuna + ' like ''' + @filtro + '''' + CHAR(13) + CHAR(10)
 
    SET @SQL = @SQL + CHAR(13) + CHAR(10) + 'select @hasresults = count(*) from #result_' + @nomeTabela + CHAR(13) + CHAR(10)
    SET @SQL = @SQL + CHAR(13) + CHAR(10) + 'if @hasresults > 0'
    SET @SQL = @SQL + CHAR(13) + CHAR(10) + 'begin'
    SET @SQL = @SQL + CHAR(13) + CHAR(10) + CHAR(9) + 'select * from #result_' + @nomeTabela
    SET @SQL = @SQL + CHAR(13) + CHAR(10) + 'end' + CHAR(13) + CHAR(10)
    SET @SQL = @SQL + CHAR(13) + CHAR(10) + 'drop table #result_' + @nomeTabela
    SET @SQL = @SQL + CHAR(13) + CHAR(10)
 
    fetch NEXT FROM cColunas INTO @nomeColuna, @tipoColuna, @tamanhoColuna
	-- descomente a linha abaixo para ver o SQL produzido no janela de Messages
    -- print @sql
    EXEC(@SQL)
    SET @SQL = ''
  END
 
  close cColunas
  deallocate cColunas
 
  fetch NEXT FROM cTabelas INTO @nomeTabela
END
 
close cTabelas
deallocate cTabelas
 
DROP TABLE #result

O que ela faz exatamente?

  1. Busca no sysobjects todos as tabelas existentes no banco de dados.
  2. Faz o mesmo na tabela syscolumns para obter o nome da coluna, o tamanho e o tipo delas, conforme configuração
  3. Por fim, verifica se o texto existe na tabela e campo informado
  4. Se houver, apresente um resultset completo com o nome da tabela, o dado, o tipo do campo e tamanho
  5. A query foi testada no SQL Server 2000 e 2005, funcionando perfeitamente e ambos o casos.

É importante notar que não foram colocadas aqui considerações de desempenho ou o uso do recurso fulltext, sendo o objetivo principal resolver o problema de encontrar o texto desejado.

Bom proveito!

.NET, Desenvolvimento

C# – Retornando mais de uma tabela com DataReader

Não é muito comum, mas o ADO.NET nos dá a possibilidade de através de uma consulta feita pelo objeto Command (ou DataAdapter), retornar mais de um ResultSet ou tabela do banco de dados.

Em um exemplo, veja o código abaixo

1
2
3
4
5
6
7
8
9
10
11

string select = "select * from Categories; select * from Customers";
SqlCommand command = new SqlCommand ( select, conn );
SqlDataAdapter adapter = new SqlDataAdapter();
adapter.SelectCommand = command;
DataSet ds = new DataSet();
adapter.Fill(ds);
 
foreach(DataTable table in ds.Tables)
{
  Console.WriteLine(table.TableName);
}

Naturalmente, o comando sql podia chamar uma stored procedure existente no banco de dados, o que daria o mesmo efeito. Com isso, o DataSet ds teria como resultado 2 objetos DataTable preenchidos, Categories e Customers, resultado do comando sql disparado.

Mas, como conseguir esse efeito com um DataReader, sendo que comumente sempre esperamos um ResultSet, iterando através dos campos diretamente pelo índice ou nome deste? Simples! A interface IDataReader possui o método NextResult que permite pular para o próximo ResultSet, caso este exista. O NextResult retorna um bool, que da mesma forma que o método Read, retorna true se houver mais resultados e automaticamente “move o cursor” para o próximo ResultSet. O exemplo abaixo demonstra o funcionamento:

1
2
3
4
5
6
7
8
9
10
11
12

string select = "select * from Categories; select * from customers";
SqlCommand command = new SqlCommand ( select, conn );
conn.Open ();
SqlDataReader reader = command.ExecuteReader ();
 
do
{
  while ( reader.Read () )
  {
    Console.WriteLine ( "{0}\t\t{1}", reader[0], reader[1] );
  }
}while ( reader.NextResult () );

Referências:

http://stackoverflow.com/

Banco de Dados

SQL – Gerando Inserts de Tabelas via T-SQL

2 Comentários

Mais uma da série: me aventurando no SQL Server.

Apesar do SQL Management Studio Express ser uma ferramenta poderosa e gratuita, peca em algumas funcionalidades simples que a maioria das ferramentas free tem. A título de exemplo, as ferramentas do MySQL como o Administrator e o Query Browser são extremente completas, auxiliando inclusive em uma funcionalidade que coloque em questão aqui. A geração de scripts de dados de um banco.

Tá, conseguimos facilmente geraro script de criação das tabelas, procs, enfim, tudo mais de objetos existentes no banco através SQL Management Studio Express, clicando com o botão direto do mouse sobre o database na janela Object Explorer, indo em Tasks, Generate Scripts… Daí, basta selecionar os objetos a serem gerados e voilá! Está tudo aí, pronto para ser salvo e criado em qualquer outra servidor.

sqlmanagementstudioexpressgeneratescripts
Gerando Scripts do SQL Management Studio

O problema são os dados. Tudo bem, dá até pra fazer um backup em arquivo binário, mas e se o servidor for de acesso restrito? A rotina de backup só funciona apontando para os discos existentes no computador instalado. Com algum esforço, daria para apontar para um diretório da rede, mas nem sempre isso está acessível.

Portanto, para auxiliar nesta tarefa, o colega Mark Clerget publicou um seu blog uma query muito bacana que é capaz de gerar os inserts dos dados das tabelas de um determinado banco. Dê uma olhada no script abaixo:

CREATE TABLE #tmp (
SQLText		VARCHAR(8000) )
 
CREATE TABLE #tmp2 (
Id		INT IDENTITY,
SQLText		VARCHAR(8000) )
 
SET nocount ON
 
DELETE #tmp
DELETE #tmp2
 
DECLARE	@vsSQL		VARCHAR(8000),
@vsCols		VARCHAR(8000),
@vsTableName 	VARCHAR(40)
 
DECLARE csrTables cursor FOR
SELECT 	name
FROM 	sysobjects
WHERE 	TYPE IN ('u')
AND	name IN ('Customers')
ORDER BY name
 
OPEN csrTables
fetch NEXT FROM csrTables INTO @vsTableName
 
while (@@fetch_status = 0)
BEGIN
 
SELECT 	@vsSQL = '',
@vsCols = ''
SELECT	@vsSQL = @vsSQL +
CASE 	WHEN sc.type IN (39,47,61,111) THEN
'''''''''+' + 'isnull(rtrim(replace('+ sc.name + ','''''''','''''''''''')),'''')' + '+'''''',''+'
WHEN sc.type = 35 THEN
'''''''''+' + 'isnull(rtrim(replace(substring('+ sc.name + ',1,1000),'''''''','''''''''''')),'''')' + '+'''''',''+'
ELSE
'isnull(convert(varchar,' + sc.name + '),''null'')+'',''+'
END
FROM	syscolumns sc
WHERE	sc.id = object_id(@vsTableName)
ORDER BY ColID
 
SELECT	@vsCols = @vsCols + sc.name + ','
FROM	syscolumns sc
WHERE	sc.id = object_id(@vsTableName)
ORDER BY ColID
 
SELECT @vsSQL = SUBSTRING(@vsSQL,1,datalength(@vsSQL)-1)
 
SELECT @vsCols =  SUBSTRING(@vsCols,1,datalength(@vsCols)-1)
 
INSERT #tmp
EXEC ('select ' + @vsSQL + ' from ' + @vsTableName)
 
UPDATE #tmp
SET sqltext = 'insert ' + @vsTableName + '(' + @vsCols + ') values(' + SUBSTRING(sqltext,1,datalength(sqltext)-1) + ')'
 
INSERT #tmp2
SELECT 'DELETE from ' + @vsTableName
 
INSERT #tmp2 VALUES ('GO')
 
IF (SELECT COUNT(id) FROM syscolumns WHERE id = object_id(@vsTableName)  AND ((STATUS & 128) = 128) ) = 1
BEGIN
INSERT #tmp2
SELECT 'set identity_insert ' + @vsTableName + ' on'
END
 
INSERT #tmp2
SELECT * FROM #tmp
 
IF (SELECT COUNT(id) FROM syscolumns WHERE id = object_id(@vsTableName)  AND ((STATUS & 128) = 128) ) = 1
BEGIN
INSERT #tmp2
SELECT 'set identity_insert ' + @vsTableName + ' off'
END
 
INSERT #tmp2 VALUES ('GO')
 
INSERT #tmp2
SELECT 'update statistics ' + @vsTableName
 
INSERT #tmp2 VALUES ('GO')
 
DELETE #tmp
 
fetch NEXT FROM csrTables INTO @vsTableName
 
END
 
close      csrTables
deallocate csrTables
 
UPDATE #tmp2
SET sqltext = SUBSTRING(sqltext,1,charindex(',)',sqltext)-1) + ',NULL)'
WHERE NOT(charindex(',)',sqltext) = 0)
 
UPDATE #tmp2
SET sqltext = REPLACE(sqltext, ',''''',',null')
WHERE NOT (charindex(',''''',sqltext) = 0)
 
UPDATE #tmp2
SET sqltext = REPLACE(sqltext, '(''''',',null')
WHERE NOT (charindex('(''''',sqltext) = 0)
 
SET nocount off
 
SELECT sqltext FROM #tmp2 ORDER BY id
 
GO
 
DROP TABLE #tmp
DROP TABLE #tmp2

Atentem à linha com o código “and name in ('Customers')” pois é este que faz o filtro nas tabelas contidas em sysobjects.. Se quiser apenas um subconjunto das tabelas nas quais terão o script gerado, basta alterar este filtro. O resultado da query acima executada sobre o banco de dados Northwind na tabela Region, pode ser visto na figura abaixo:

Script Gerado
Script Gerado

É um belo macete para as horas de aperto. Porém, este script não é infalível. Para alguns tipos de campos, como o image, ainda são gerados alguns erros. Mas como eles são excessão, é possível tratá-los de maneira separada. Caso alguém tenha alguma sugestão de melhoria, é avisar!

Abraços

Tomás