Frage : SQL 2008: wie man Schema oder Daten von einer Tabelle zu anderer kopiert, die BEREITS existiert?

UMWELT: Dieses ist auf SQL 2008, der scheint, zu SQL 2005.

STATUS SEHR UNTERSCHIEDLICH zu sein: Eine Tabelle hat das gewünschte Schema, aber keine Daten.  Die andere Tabelle hat die Daten, aber nicht wünschenswertes schema.

GOAL:  
(1) wie erhalte ich das Schema von der leeren Tabelle, vorbei auf die volle Tabelle,
~or~
(2) wie ich gelange die Daten, von der vollen Tabelle, vorbei an das leere Tabelle?

ACTIONS GENOMMEN: Ich sichergestellt l, dass alle gleichen Spalten und Datenarten jetzt auf beiden Tabellen zusammenpassen (und dem Primärschlüssel außerdem).

PROBLEM:  Einsatz in bearbeitet nicht und zurückbringt die Störung „dort ist bereits ein genannter Gegenstand… in der Datenbank r. „

Antwort : SQL 2008: wie man Schema oder Daten von einer Tabelle zu anderer kopiert, die BEREITS existiert?

dieses versuchen,

Er benutzt Spalte nur A und benutzte Entdeckung, um macthing Reihen (eine oder mehrere) in OpenItaly schnell zu finden und zu löschen

Der schnelle Entdeckungcode basiert auf http://www.experts-exchange.com/A_29119.html

Beifall

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:

Privates VorWorksheet_Change (ByVal Ziel als Strecke)
    Schwaches WS als Arbeitsblatt
    Schwaches rng1 als Strecke
    Schwaches rng2 als Strecke
    Schwaches cel1 als Strecke

    Wenn ist Application.Intersect (Spalten („A“), Ziel) nichts dann, Unterseeboot herausnehmen

    Mit Anwendung
        .ScreenUpdating = falsch
    Ende mit

    Einstellen WS = Blätter („OpenItaly“)
    Einstellen rng1 = WS. Strecke (WS. [a2], WS. Zellen (Rows.Count, „A“). Ende (xlUp))
    Einstellen cel1 = rng1.Find (Target.Value, die xlValues, xlWhole, xlByRows, falsch)
    Wenn nicht cel1 nichts dann ist
        Einstellen rng2 = cel1
        strFirstAddress = cel1.Address
        Tun
            Einstellen cel1 = rng1.FindNext (cel1)
            Einstellen rng2 = Anschluss (rng2.EntireRow, cel1)
        Schlingen während strFirstAddress <> cel1.Address
    Beenden wenn

    Wenn nicht rng2 nichts dann rng2.EntireRow.Delete ist
    Application.ScreenUpdating = ausrichten en
 
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us