Fråga : SQL 2008: hur man kopierar schemaen eller data från en bordlägga till another som finns REDAN?

MILJÖ: Detta är på SQL 2008, som verkar att vara MYCKET OLIK från SQL 2005.

STATUS: Man bordlägger har den önskade schemaen, men inga data.  Annat bordlägger har datan, men oönskad schema.

GOAL:  
(1) hur jag får schemaen från det tomt, bordlägger, över på det fullt bordlägger,
(2) för
~or~ hur jag får datan, från det fullt bordlägger, över till det tomt bordlägger? TAGEN

ACTIONS: Jag har sett till att alla samma kolonner och datatyper matchar nu på båda bordlägger (och det primärt stämm som väl).

PROBLEM:  Mellanlägget in i ska inte arbete och retur felet ”där är redan en anmärka som namnges… i databasen. ”
 " klar "

Svar : SQL 2008: hur man kopierar schemaen eller data från en bordlägga till another som finns REDAN?

försök detta,

Det använder kolonn A endast, och det använda fyndet som snabbt finner, och borttagnings som macthing, ror (one or more) i OpenItaly

Fastafyndet kodifierar baseras på http://www.experts-exchange.com/A_29119.html

Jubel

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:

Privata underWorksheet_Change (ByVal uppsätta som mål som spänner),
    Dunkel ws som arbetssedeln
    Dunkel rng1 som spänner
    Dunkel rng2 som spänner
    Dunkel cel1 som spänner

    Om Application.Intersect (kolonner (”A”), uppsätta som mål), är ingenting går ut därefter suben

    Med applikation
        .ScreenUpdating = falskt
    Avsluta med

    Uppsättningen ws = täcker (”OpenItaly”)
    Uppsättning rng1 = ws. Spänna (ws. [a2], ws. Celler (Rows.Count, ”A”). Avsluta (xlUp))
    Uppsättning cel1 = rng1.Find (Target.Value, xlValues, xlWhole, xlByRows, som, är falska)
    Om inte cel1 är ingenting därefter
        Uppsättning rng2 = cel1
        strFirstAddress = cel1.Address
        Gör
            Uppsättning cel1 = rng1.FindNext (cel1)
            Uppsättning rng2 = union (rng2.EntireRow, cel1)
        Kretsa stundstrFirstAddress <> cel1.Address
    Avsluta om

    Om inte rng2 är ingenting därefter rng2.EntireRow.Delete
    Application.ScreenUpdating = True
 
Avsluta suben
Andra lösningar  
 
programming4us programming4us