Vraag : SQL 2008: hoe te om schema of gegevens van één lijst aan te kopiëren een andere die REEDS bestaat?

MILIEU: Dit is op SQL 2008, die van SQL 2005.

STATUS zeer VERSCHILLEND schijnt te zijn: Één lijst heeft het gewenste schema, maar geen gegevens.  De andere lijst heeft de gegevens, maar ongewenste schema.

GOAL:  
(1) hoe krijg ik het schema van de lege lijst, over op de volledige lijst,
~or~
(2) hoe krijg ik de gegevens, van de volledige lijst, over aan de lege lijst? GENOMEN

ACTIONS: Ik heb alle zelfde kolommen verzekerd en de gegevenstypes passen nu op beide lijsten (en primaire sleutel aan eveneens).

PROBLEM:  Het tussenvoegsel in zal en keert dat niet de fout terug „daar is reeds een voorwerp werken… in het gegevensbestand wordt genoemd. „

Antwoord : SQL 2008: hoe te om schema of gegevens van één lijst aan te kopiëren een andere die REEDS bestaat?

probeer dit,

Het gebruikt kolom A slechts, en gebruikt vind om macthing rijen (één of meer) in OpenItaly snel te vinden en te schrappen

De snelle vondstcode is gebaseerd op http://www.experts-exchange.com/A_29119.html

Juicht toe

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:

Privé SubWorksheet_Change (Doel ByVal als Waaier)
    Schemerige ws als Aantekenvel
    Schemerige rng1 als Waaier
    Schemerige rng2 als Waaier
    Schemerige cel1 als Waaier

    Als is Application.Intersect (Kolommen („A“), Doel) niets toen ga Sub weg

    Met Toepassing
        .ScreenUpdating = Vals
    Eind met

    Vastgesteld ws = Bladen („OpenItaly“)
    Reeks rng1 = ws. Waaier (ws. [a2], ws. Cellen (Rows.Count, „A“). Eind (xlUp))
    Reeks cel1 = rng1.Find (Valse Target.Value, xlValues, xlWhole, xlByRows,)
    Als niet cel1 dan niets is
        Reeks rng2 = cel1
        strFirstAddress = cel1.Address
        
            Plaats cel1 = rng1.FindNext (cel1)
            Plaats rng2 = Unie (rng2.EntireRow, cel1)
        Lijn terwijl strFirstAddress <> cel1.Address
    Eind als

    Als niet rng2 niets toen rng2.EntireRow.Delete is
    Application.ScreenUpdating = Waar
 
Sub van het eind
Andere oplossingen  
 
programming4us programming4us