On Delete Cascade

Computer: Software & Programmierung SQL & Datenbank - Programmierung
#1

Hallo,
ich will per VB Code auf dem SQL Server eine neue Tabelle anlegen, die eine Löschweitergabe besitzt.
(Wenn in der Tabelle PK ein Satz gelöscht wird, soll der referenzierte Satz in der Tabelle PKAnhang auch gelöscht werden)

Ohne die Löschweitergabe funktioniert dieser Code.
SQL = „Create table PKAnhang (id int Not NULL IDENTITY (1, 1) primary key, IDPK int Default 0 , constraint FKPKAnhangIDPK foreign key (IDPK) references PK )“

Mit der Löschweitergabe erhalte ich jedoch eine Fehlermeldung in der Nähe von ‚ON‘
SQL = „Create table PKAnhang (id int Not NULL IDENTITY (1, 1) primary key, IDPK int Default 0 , constraint FKPKAnhangIDPK foreign key (IDPK) references PK on delete cascade)“

kann mir jemand helfen?
Auf einer Access Datenbank funktioniert dieser Code!

Danke im voraus
Thomas

#2

hi!

Mit der Löschweitergabe erhalte ich jedoch eine Fehlermeldung
in der Nähe von ‚ON‘
SQL = „Create table PKAnhang (id int Not NULL IDENTITY (1, 1)
primary key, IDPK int Default 0 , constraint FKPKAnhangIDPK
foreign key (IDPK) references PK on delete cascade)“

letzte zeile eventuell

foreign key (IDPK) references () on delete cascade)
??

grüße,
tomh

#3

Hallo,
es geht so auch nicht.
Vielleicht hat es was mit dem SQl Server zu tun?
Ich habe den SQL Server 7.0
Geht es da vielleicht grundsätzlich nicht?

Gruß
Thomas

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#4

Also Dein Code ist absolut in Ordnung!!! Habe ihn im Query Analyzer und in VB6/ADO2.6 gestestet.

Vielleicht solltest Du mal den Error posten!

VG/SF

#5

Testumgebung:
Microsoft Visual Basic 6
Microsoft ActiveX Data Objects 2.6 Library
Microsoft SQL Server 2000 Developer Edition

Private Sub Command1\_Click()

 Dim adoCnn As New ADODB.Connection
 Dim adoRst As New ADODB.Recordset

 With adoCnn
 .ConnectionString = "driver={SQL Server};" & \_
 "server=localhost;" & \_
 "uid=sa;" & \_
 "pwd=;" & \_
 "database=tempdb"
 .CursorLocation = adUseClient
 .Open
 .Execute "Create table PK(" & \_
 "id int not null identity primary key, " & \_
 "idpk int not null)"
 .Execute "Create table PKAnhang(" & \_
 "id int Not NULL IDENTITY (1, 1) primary key, " & \_
 "IDPK int Default 0, " & \_
 "constraint FKPKAnhangIDPK foreign key (IDPK) references PK on delete cascade)"
 .Close
 End With

End Sub
#6

Geht DOCH! Bei mir leider nicht!
Hallo,
Hier meine Fehlermeldung von VB 6
Falsche Syntax in der Nähe von Schlüsselwort ‚on‘.

Hier die Fehlermeldung im Query Analyzer
Server: Nachr.-Nr. 156, Schweregrad 15, Status 1, Zeile 1
Falsche Syntax in der Nähe von Schlüsselwort ‚on‘.

Bei mir mit folgender Konfiguration
'Microsoft Visual Basic 6 SP 5
'Microsoft ActiveX Data Objects 2.7 Library
'Microsoft SQL Server Standard Edition 7.0 auf Win 2000 installiert

Gruß
Thomas

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#7

Bitte probieren!!
Probiere mal bitte den Code, den ich unter „Testumgebung“ gepostet habe!

VG/SF

#8

Habs schon probiert
Hallo,
hab ich schon pobiert, kein Erfolg
Dazu war auch schon mein letztes posting(Habs leider vergessen zu erwähnen)
Kanns an dem SQL Server liegen. Du hast den 2000 ich nur den 7.0???

Gruß
Thomas

Probiere mal bitte den Code, den ich unter „Testumgebung“
gepostet habe!

VG/SF

#9

Hallo,
hab ich schon pobiert, kein Erfolg
Dazu war auch schon mein letztes posting(Habs leider vergessen
zu erwähnen)
Kanns an dem SQL Server liegen. Du hast den 2000 ich nur den
7.0???

Muss wohl so sein. Habe leider keine Doku zum MSSQL7 mehr.