Pergunta : SQL 2008: como copiar o esquema ou os dados de uma tabela a outra que JÁ existe?

AMBIENTE: Isto está no SQL 2008, que parece ser MUITO DIFERENTE de SQL 2005.

STATUS: Uma tabela não tem o esquema desejado, mas nenhum dados.  A outra tabela tem os dados, mas schema.

GOAL:  o
(1) como eu começ o esquema da tabela vazia, sobre na tabela cheia, o
~or~/>(2) como mim começ os dados, da tabela cheia, sobre à tabela vazia?

ACTIONS TOMADO: Eu assegurei-me de que todas as mesmos colunas e tipos de dados combinassem agora em ambas as tabelas (e na chave preliminar também).

PROBLEM:  A inserção em não trabalhará e não retorna o erro “lá é já um objeto nomeado… na base de dados. “
 class= do

Resposta : SQL 2008: como copiar o esquema ou os dados de uma tabela a outra que JÁ existe?

tentar isto,

Usa a coluna A somente, e o achado usado para encontrar e suprimir rapidamente de fileiras macthing (umas ou várias) em OpenItaly

O código rápido do achado é baseado em http://www.experts-exchange.com/A_29119.html

Elogios

Dave
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

Worksheet_Change secundário confidencial (alvo de ByVal como a escala)
    WS não ofuscante como a folha
    Rng1 não ofuscante como a escala
    Rng2 não ofuscante como a escala
    Cel1 não ofuscante como a escala

    Se Application.Intersect (colunas (“A”), alvo) não é nada então retirar o submarino

    Com aplicação
        .ScreenUpdating = falso
    Extremidade com

    Ajustar WS = folhas (“OpenItaly”)
    Ajustar rng1 = WS. Escala (WS. [a2], WS. Pilhas (Rows.Count, “A”). Extremidade (xlUp))
    Ajustar cel1 = rng1.Find (Target.Value, xlValues, xlWhole, xlByRows, falsos)
    Se não cel1 não é nada então
        Ajustar rng2 = cel1
        strFirstAddress = cel1.Address
        Fazer
            Ajustar cel1 = rng1.FindNext (cel1)
            Ajustar rng2 = união (rng2.EntireRow, cel1)
        Dar laços quando os strFirstAddress <> cel1.Address
    Terminar se

    Se não rng2 não é nada então rng2.EntireRow.Delete
    Application.ScreenUpdating = retificam
 
Submarino da extremidade
Outras soluções  
 
programming4us programming4us