Cuestión : SQL 2008: ¿cómo copiar el esquema o datos a partir de una tabla a otra que existe YA?

AMBIENTE: Esto está en el SQL 2008, que aparece ser MUY DIFERENTE de SQL 2005.

STATUS: Una tabla tiene el esquema deseado, pero ningunos datos.  La otra tabla tiene los datos, pero schema.

GOAL:  ¿el
(1) cómo consigo el esquema de la tabla vacía, encima sobre la tabla llena, el
~or~/>(2) cómo yo consigo los datos, de la tabla llena, encima a la tabla vacía?

ACTIONS TOMADO: Me he asegurado que todas las mismas columnas y tipos de datos ahora emparejan en ambas tablas (y la llave primaria también).

PROBLEM:  El parte movible en no trabajará y no vuelve el error “allí es ya un objeto nombrado… en la base de datos. “
 class= del

Respuesta : SQL 2008: ¿cómo copiar el esquema o datos a partir de una tabla a otra que existe YA?

intentar esto,

Utiliza la columna A solamente, y el hallazgo usado para encontrar y para suprimir rápidamente las filas macthing (uno o más) en OpenItaly

El código rápido del hallazgo se basa en http://www.experts-exchange.com/A_29119.html

Aclamaciones

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 secundario privado (blanco de ByVal como gama)
    WS dévil como hoja de trabajo
    Rng1 dévil como gama
    Rng2 dévil como gama
    Cel1 dévil como gama

    Si Application.Intersect (columnas (“A”), blanco) no es nada entonces salir el submarino

    Con el uso
        .ScreenUpdating = falso
    Extremo con

    Fijar WS = las hojas (“OpenItaly”)
    Fijar rng1 = WS. Gama (WS. [a2], WS. Células (Rows.Count, “A”). Extremo (xlUp))
    Fijar cel1 = rng1.Find (Target.Value, xlValues, xlWhole, xlByRows, falsos)
    Si no cel1 entonces no es nada
        Fijar rng2 = cel1
        strFirstAddress = cel1.Address
        Hacer
            Fijar cel1 = rng1.FindNext (cel1)
            Fijar rng2 = la unión (rng2.EntireRow, cel1)
        Colocar mientras que los strFirstAddress <> cel1.Address
    Terminar si

    Si no rng2 no es nada entonces rng2.EntireRow.Delete
    Application.ScreenUpdating = verdad
 
Submarino del extremo
Otras soluciones  
 
programming4us programming4us