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.
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:
É 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