<\/p>\n
Datenbanken per SQL erstellen Dazu gibt es doch die Access-Benutzeroberfläche! Das hilft Ihnen aber wenig weiter, wenn Sie eine Anwendung für einen Kunden entwickelt haben und änderungen am Datenmodell vornehmen müssen, ohne vor Ort zu sein, oder den Kunden fernsteuern möchten. Es gibt doch auch noch die Fernwartung Klar, aber wenn die Software nicht nur bei einem, sondern bei vielen Kunden in Betrieb ist …<\/b><\/p>\n
Am offenen Herzen<\/p>\n
Es ist technisch kein Problem, einem Kunden eine neue Version der Benutzeroberfläche seiner Datenbank zukommen zu lassen, wenn diese sauber vom Backend getrennt ist. Altes Backend wegsichern, neues an die gewünschte Stelle kopieren, vielleicht noch automatisiert die Tabellen einbinden, fertig.<\/p>\n
Aber was, wenn änderungen am Datenmodell, also am Backend, notwendig werden Das Backend austauschen Wie denn Dazu müsste man zum Beispiel das Backend umbenennen, das neue Backend hinzufügen, die Daten aus dem alten Backend in das neue Backend importieren oder das Backend mit den aktuellen Daten vom Kunden schicken lassen, die änderungen in Windeseile vornehmen und das Backend wieder zurückschicken. Beides ist keine optimale Lösung. Viel schöner wäre es doch, wenn man einfach zum Kunden fährt und dort von Hand mal eben eine Tabelle hinzufügt, einen Felddatentyp ändert oder andere Anpassungen durchführt. Aber wie bereits erwähnt, macht das auf Dauer keinen Spaß, wenn Sie vielleicht mehrere Kopien der Software bei weit verstreuten Kunden laufen haben.<\/p>\n
Da aber Access jede Aktion, die man mit der Benutzeroberfläche durchführt, genau wie Datenabfragen oder -änderungen auch irgendwie an die Jet Engine kommunizieren muss, scheint es logisch, dass es auch hierfür passende SQL-Abfragen gibt. Und genau das ist der Fall: SQL teilt sich in zwei Teile auf, nämlich in DML (Data Manipulation Language) und DDL (Data Definition Language). DML umfasst die Befehle zum Abfragen und zum ändern der in den Tabellen enthaltenen Daten und DDL liefert die Anweisungen zum Manipulieren des Datenmodells – genau genommen können Sie damit sogar komplette Datenbanken anlegen (wobei das Anlegen selbst per DAO geschieht).<\/p>\n
Sie werden nun zunächst von einer bestehenden Datenbank aus eine neue Datenbank anlegen (das könnten Sie theoretisch auch in einem VBScript oder von einer anderen Anwendung mit VBA-Entwicklungsumgebung erledigen, aber wir wollen ja kein Auswärtsspiel). Dies funktioniert unter Access für JET-Datenbanken nicht wie bei anderen Datenbanksystemen mit der CREATE DATABASE<\/b>-Anweisung, sondern Sie müssen die CreateDatabase<\/b>-Methode des DBEngine<\/b>-Objekts zu Hilfe nehmen:<\/p>\n Diese Anweisung legt eine neue Datenbankdatei namens Suedsturm.mdb <\/b>im Verzeichnis der aktuellen Datenbank an und legt mit ihren Optionen fest, dass die Spracheinstellungen für Deutschland und einige weitere Länder verwendet werden und eine Datenbank für die Verwendung mit Jet 4.0 erzeugt wird. dbLangGeneral <\/b>ist eine Konstante mit dem Inhalt ;LANGID=0x0409;CP=1252;COUNTRY=0<\/b>, der Sie beispielsweise noch einen Ausdruck wie pwd=kennwort <\/b>hinzufügen können, um ein Kennwort festzulegen. Mit dem Wert dbEncrypt <\/b>können Sie die Datenbank zusätzlich verschlüsseln.<\/p>\n Tabellen legen wir aber nun per SQL an. Dazu verwenden Sie die CREATE TABLE<\/b>-Anweisung, die den Tabellennamen und zumindest die Angabe eines Felds erwartet (es funktioniert auch ohne Feld, aber diese Tabelle lässt sich anschließend nicht im Entwurf öffnen). Bauen wir eine Tabelle namens tblKategorien <\/b>(siehe Bild 1). Das Grundgerüst erstellt die folgende SQL-Anweisung:<\/p>\n Bild 1: Die Tabelle tblKategorien der Südsturm-Datenbank<\/span><\/b><\/p>\n Neben dem Tabellennamen geben Sie also die Felder gefolgt vom Datentyp in Klammern in einer durch Kommata getrennten Liste an.<\/p>\n Die Datentypen finden Sie übrigens in Tab. 1, zusammen mit den jeweils entsprechenden Datentypen für den Tabellenentwurf.<\/p>\n Das Ergebnis ist noch nicht ganz befriedigend: Es fehlen noch die Primärschlüsseleigenschaften des Felds KategorieID<\/b>. Was tun Es gibt zwei Möglichkeiten: Entweder, Sie löschen die Tabelle noch einmal und geben die erforderlichen Informationen beim erneuten Anlegen mit ein, oder Sie reichen die Primärschlüssel-Eigenschaften so nach.<\/p>\n Tabelle löschen<\/p>\n Die erste Variante erfordert zunächst das Löschen der Tabelle, die dazu geschlossen sein muss:<\/p>\n Anschließend statten Sie die CREATE TABLE<\/b>-Anweisung so aus: <\/p>\n Alternativ fügen Sie diesen sogenannten CONSTRAINT<\/b> an das bestehende Feld an, wobei PK <\/b>der Name des dadurch erzeugten Index für das Feld KategorieID ist:<\/p>\n Fehlt noch die Autowert-Eigenschaft. Dafür brauchen Sie einfach nur das Schlüsselwort COUNTER <\/b>statt des Datentyps INT <\/b>anzugeben:<\/p>\n Mit dem CONSTRAINT<\/b>-Schlüsselwort lassen sich nicht nur Primärschlüssel, sondern auch sonstige Indexfelder festlegen. Sollte das Feld Kategoriename<\/b> beispielsweise wie in Bild 2 indiziert werden, fügt man einen Index wie folgt hinzu:<\/p>\n Bild 2: Feld mit einem einfachen Index<\/span><\/b><\/p>\n <\/p>\n Einen einfachen Index können Sie nicht direkt beim Anlegen der Tabelle hinzufügen.<\/p>\n Eine eindeutige Indizierung können Sie sowohl beim Anlegen der Tabelle als auch nachträglich festlegen. Die Version beim Anlegen sieht so aus:<\/p>\n Das nachträgliche Hinzufügen geschieht so:<\/p>\n Beide wirken sich wie in Bild 3 aus.<\/p>\n Bild 3: Ein eindeutiger Index im Indizes-Fenster<\/span><\/b><\/p>\n Darf ein Feld keine Nullwerte enthalten, fügen Sie ihm beim Anlegen die Klausel NOT NULL <\/b>hinzu:<\/p>\n Auf diese Weise stellen Sie die Eigenschaft Eingabe erforderlich <\/b>der Entwurfsansicht auf Ja <\/b>ein.<\/p>\n Beziehungen werden in relationalen Datenbanken durch Fremdschlüsselfelder definiert.<\/p>\n Daher legen Sie nun gleichzeitig eine neue Tabelle namens tblArtikel<\/b> an und fügen dieser ein Fremdschlüsselfeld namens KategorieID <\/b>hinzu, das mit dem Primärschlüsselfeld der Tabelle tblKategorien <\/b>verknüpft werden soll:<\/p>\n Zusammen mit der Tabelle tblKategorien <\/b>ergibt sich das Bild aus Bild 4.<\/p>\n Bild 5: Beziehung mit aktivierter Aktualisierungs- und Löschweitergabe<\/span><\/b><\/p>\n Mit obiger Anweisung legen Sie eine Beziehung mit referentieller Integrität an. Zusätzlich können Sie Lösch- und Aktualisierungsweitergabe wie in Bild 5 definieren. Dies funktioniert, weil es sich um eine JET4-Erweiterung handelt, nur unter ADO:<\/p>\n Bild 4: Beziehung zwischen zwei Tabellen<\/span><\/b><\/p>\n Die in Klammern befindlichen Punkte stehen für das folgende SQL-Statement:<\/p>\n Im eigenen Interesse sollten Sie auf zusammengesetzte Primärschlüssel verzichten. Eine Tabelle sollte immer einen aus einem einzigen Feld bestehenden Primärschlüssel besitzen.<\/p>\n Wenn Sie eine Verknüpfungstabelle zur Herstellung einer m:n-Beziehung benötigen, dann legen Sie eine Tabelle an, die einen eindeutigen Primärschlüssel ohne Geschäftsdaten besitzt, und erstellen einen weiteren eindeutigen Schlüssel über die an der Beziehung beteiligten Fremdschlüsselfelder.<\/p>\n Als Beispiel dient die Tabelle tblPositionen<\/b>. Zusammen mit den beiden Tabellen tblBestellungen <\/b>und tblArtikel <\/b>sieht diese im Datenmodell aus wie in Bild 6.<\/p>\n Bild 6: Tabellen in einer m:n-Beziehung<\/span><\/b><\/p>\n Um dies zu erreichen, ist der Code aus Listing 1 notwendig. Die Routine legt zunächst die beiden zu verknüpfenden Tabellen tblArtikel <\/b>und tblBestellungen <\/b>mit einigen Beispielfeldern und dann die Verknüpfungstabelle tblPositionen <\/b>mit den beiden Fremdschlüsseln an.<\/p>\n Listing 1: Diese Routine erstellt drei per m:n-Beziehung verknüpfte Tabellen.<\/p>\n Interessant ist hier die letzte CONSTRAINT<\/b>-Anweisung: Sie legt den zusammengesetzten eindeutigen Index an, den Sie in Bild 7 erkennen können.<\/p>\n Bild 7: Zusammengesetzter eindeutiger Schlüssel<\/span><\/b><\/p>\n änderungen an Tabellen erledigt man mit der ALTER<\/b>-Anweisung gefolgt vom Tabellennamen und den gewünschten änderungen.<\/p>\n Um der Tabelle tblPositionen <\/b>ein Währungsfeld namens Einzelpreis hinzuzufügen, verwenden Sie beispielsweise die folgende SQL-Anweisung:<\/p>\n Weitere Eigenschaften geben Sie wie beim Anlegen von Feldern innerhalb einer CREATE TABLE<\/b>-Anweisung an, also zum Beispiel so:<\/p>\n Felder löschen Sie innerhalb einer ALTER TABLE<\/b>-Anweisung mit dem Schlüsselwort DROP COLUMN<\/b>:<\/p>\n Auf diese Weise können Sie auch bestehende Felder ändern. Wenn Sie den im vorigen Beispiel angelegten eindeutigen Index wieder entfernen möchten, verwenden Sie die folgende Anweisung:<\/p>\n Wenn Sie einfach nur den Datentyp ändern möchten, setzen Sie diese Anweisung ein:<\/p>\n Schwieriger wird es, wenn Sie den Namen ändern möchten. Dazu müssen Sie das Feld löschen und dann neu anlegen. Prinzipiell kein Problem, aber wenn das zu ändernde Feld schon Daten enthält, müssen Sie diese zwischendurch umkopieren.<\/p>\n Im Detail kann das wie folgt aussehen:<\/p>\n Fehlt noch das Löschen eines Index. Dies erledigen Sie mit der DROP INDEX<\/b>-Anweisung, die einen Index namens PK<\/b> aus der Tabelle tblPositionen <\/b>entfernt:<\/p>\n Das Festlegen eines Standardwerts für ein Feld ist ebenfalls möglich. Allerdings handelt es sich hierbei um eine JET4-Erweiterung, die nur im Rahmen einer ADODB-Connection verwendet werden kann:<\/p>\n Wenn der Standardwert keine Leerzeichen enthält, können Sie ihn auch ohne Hochkommata angeben. Bild 8 zeigt den Standardwert in der Entwurfsansicht der Tabelle.<\/p>\n Bild 8: Standardwert in der Entwurfsansicht<\/span><\/b><\/p>\n Wer mit den DDL-Befehlen von SQL das Datenmodell einer Anwendung anpasst, möchte gegebenenfalls auch die eine oder andere Tabelle per Code füllen – interessant wäre dies vor allem für Lookup-Tabellen wie etwa eine Tabelle zum Speichern von Anreden.<\/p>\n Eine solche Tabelle erstellen Sie mit der folgenden Routine und legen dazu noch einige Datensätze an:<\/p>\n Vielleicht möchten Sie auch noch eine der Access-Spezialitäten einsetzen – zum Beispiel in Form von Gültigkeitsregel\/-meldung oder einem Nachschlagefeld für ein Fremdschlüsselfeld<\/p>\n Dies funktioniert leider nicht per SQL\/DDL, sondern erfordert den Einsatz von DAO. Mit der folgenden Routine lernen Sie alle Eigenschaften von Tabellen und Feldern der im Parameter angegebenen Tabelle kennen:<\/p>\n Dort erfahren Sie zum Beispiel, dass es Eigenschaften namens ValidationRule <\/b>und ValidationText <\/b>gibt. Mit der folgenden Routine stellen Sie diese Eigenschaften ein:<\/p>\n Auf die gleiche Weise können Sie auch die anderen Eigenschaften anpassen, um etwa ein Nachschlagefeld einzurichten.<\/p>\n Dieser Beitrag liefert die Grundlagen für die automatisierte Anpassung des Datenmodells. In einem weiteren Beitrag erfahren Sie, wie Sie das Datenmodell einer bestehenden Anwendung anpassen und wie Sie ermitteln, welche Elemente der Anwendung geändert werden müssen.<\/p>\n","protected":false},"excerpt":{"rendered":" Datenbanken per SQL erstellen Dazu gibt es doch die Access-Benutzeroberfläche! Das hilft Ihnen aber wenig weiter, wenn Sie eine Anwendung für einen Kunden entwickelt haben und Änderungen am Datenmodell vornehmen müssen, ohne vor Ort zu sein, oder den Kunden fernsteuern möchten. Es gibt doch auch noch die Fernwartung Klar, aber wenn die Software nicht nur bei einem, sondern bei vielen Kunden in Betrieb ist …<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[662008,66032008,44000022,44000021],"tags":[],"class_list":["post-55000609","post","type-post","status-publish","format-standard","hentry","category-662008","category-66032008","category-SQL_Server_und_Co","category-Tabellen_und_Datenmodellierung"],"yoast_head":"\nDBEngine.CreateDatabase CurrentProject.Path & "\\Suedsturm.mdb", dbLangGeneral, dbVersion40<\/pre>\n
Tabellen anlegen<\/h2>\n
![\"pic001.tif\"](\"..\/fileadmin\/_temp_\/2008_02\/DDLMitSQL-web-images\/pic001_opt.jpeg\")
<\/p>\nCREATE TABLE tblKategorien(\r\nKategorieID INT,\r\nKategoriename VARCHAR(255),\r\nBeschreibung LONGTEXT,\r\nAbbildung IMAGE)<\/pre>\n
DROP TABLE tblKategorien<\/pre>\n
Primärschlüssel einrichten<\/h2>\n
CREATE TABLE tblKategorien(\r\nKategorieID INT CONSTRAINT PK PRIMARY KEY, ...<\/pre>\n
ALTER TABLE tblKategorien\r\nADD CONSTRAINT PK PRIMARY KEY (KategorieID)<\/pre>\n
Autowert einrichten<\/h2>\n
CREATE TABLE tblKategorien(\r\nKategorieID COUNTER\r\nCONSTRAINT PK PRIMARY KEY, ...<\/pre>\n
Indizes anlegen<\/h2>\n
![\"pic002.tif\"](\"..\/fileadmin\/_temp_\/2008_02\/DDLMitSQL-web-images\/pic002_opt.jpeg\")
<\/p>\nCREATE INDEX I ON tblKategorien(Kategoriename)<\/pre>\n
Eindeutige Indizes<\/h2>\n
CREATE TABLE tblKategorien(...,\r\nKategoriename VARCHAR(255)\r\nCONSTRAINT U UNIQUE, ...)<\/pre>\n
CREATE UNIQUE INDEX U ON tblKategorien(Kategoriename)<\/pre>\n
![\"pic003.tif\"](\"..\/fileadmin\/_temp_\/2008_02\/DDLMitSQL-web-images\/pic003_opt.jpeg\")
<\/p>\nNullwerte verhindern<\/h2>\n
CREATE TABLE tblKategorien(...,\r\nKategoriename VARCHAR(255) NOT NULL, ...)<\/pre>\n
Fremdschlüsselfelder festlegen<\/h2>\n
CREATE TABLE tblArtikel(\r\nArtikelID COUNTER CONSTRAINT PK PRIMARY KEY,\r\nArtikelname VARCHAR(255) NOT NULL,\r\nKategorieID INT,\r\nCONSTRAINT FK FOREIGN KEY(KategorieID)\r\nREFERENCES tblKategorien)<\/pre>\n
![\"pic004.tif\"](\"..\/fileadmin\/_temp_\/2008_02\/DDLMitSQL-web-images\/pic004_opt.jpeg\")
<\/p>\nLöschweitergabe und <\/h2>\n
Aktualisierungsweitergabe aktivieren<\/pre>\n
![\"pic005.tif\"](\"..\/fileadmin\/_temp_\/2008_02\/DDLMitSQL-web-images\/pic005_opt.jpeg\")
<\/p>\nPublic Sub FremdschluesselfeldMitCascade()\r\nDim cnn As ADODB.Connection\r\nDim strSQL As String\r\nstrSQL = "..."\r\nSet cnn = CurrentProject.Connection\r\ncnn.Execute strSQL\r\nSet cnn = Nothing\r\nEnd Sub<\/pre>\n
CREATE TABLE tblArtikel(\r\nArtikelID COUNTER CONSTRAINT PK PRIMARY KEY,\r\nArtikelname VARCHAR(255) NOT NULL,\r\nKategorieID INT,\r\nCONSTRAINT FK1 FOREIGN KEY(KategorieID)\r\nREFERENCES tblKategorien\r\nON UPDATE CASCADE\r\nON DELETE CASCADE)<\/pre>\n
Zusammengesetzte Primärschlüssel<\/h2>\n
Zusammengesetzte eindeutige Schlüssel<\/h2>\n
![\"pic006.tif\"](\"..\/fileadmin\/_temp_\/2008_02\/DDLMitSQL-web-images\/pic006_opt.jpeg\")
<\/p>\nPublic Sub mnBeziehung()\r\nDim cnn As ADODB.Connection\r\nSet cnn = CurrentProject.Connection\r\ncnn.Execute "CREATE TABLE tblArtikel(ArtikelID COUNTER CONSTRAINT PK PRIMARY KEY, " _\r\n& "Artikelname VARCHAR(255) NOT NULL, KategorieID INT, CONSTRAINT FK1 FOREIGN " _\r\n& "KEY(KategorieID) REFERENCES tblKategorien ON UPDATE CASCADE ON DELETE CASCADE)"\r\ncnn.Execute "CREATE TABLE tblBestellungen(BestellungID COUNTER CONSTRAINT PK PRIMARY KEY, " _\r\n& "KundeID INT, Bestelldatum DATETIME, Lieferdatum DATETIME)"\r\ncnn.Execute "CREATE TABLE tblPositionen(PositionID COUNTER CONSTRAINT PK PRIMARY KEY, " _\r\n& "ArtikelID INT, BestellungID INT, " _\r\n& "CONSTRAINT FKArtikel FOREIGN KEY(ArtikelID) REFERENCES tblArtikel, " _\r\n& "CONSTRAINT FKBestellungen FOREIGN KEY(BestellungID) REFERENCES tblBestellungen, " _\r\n& "CONSTRAINT UK UNIQUE(ArtikelID, BestellungID))"\r\nSet cnn = Nothing\r\nEnd Sub<\/pre>\n
![\"pic007.tif\"](\"..\/fileadmin\/_temp_\/2008_02\/DDLMitSQL-web-images\/pic007_opt.jpeg\")
<\/p>\nFeld zu einer Tabelle hinzufügen<\/h2>\n
ALTER TABLE tblPositionen\r\nADD COLUMN Einzelpreis MONEY<\/pre>\n
ALTER TABLE tblPositionen ADD COLUMN Einzelpreis MONEY NOT NULL CONSTRAINT U UNIQUE<\/pre>\n
Feld löschen<\/h2>\n
ALTER TABLE tblPositionen\r\nDROP COLUMN Einzelpreis<\/pre>\n
Feld ändern<\/h2>\n
ALTER TABLE tblPositionen DROP CONSTRAINT U<\/pre>\n
ALTER TABLE tblPositionen\r\nALTER COLUMN Einzelpreis REAL<\/pre>\n
Public Sub FeldnameAendern()\r\nDim db As DAO.Database\r\nSet db = CurrentDb\r\ndb.Execute "ALTER TABLE tblPositionen " _\r\n& "ADD COLUMN Preis MONEY"\r\ndb.Execute "UPDATE tblPositionen " _\r\n& "SET Preis = Einzelpreis"\r\ndb.Execute "ALTER TABLE tblPositionen " _\r\n& "DROP COLUMN Einzelpreis"\r\nEnd Sub<\/pre>\n
Index löschen<\/h2>\n
DROP INDEX PK ON tblPositionen<\/pre>\n
Standardwerte festlegen<\/h2>\n
CREATE TABLE tblStandardwert(\r\nID COUNTER CONSTRAINT PK PRIMARY KEY,\r\nTextfeldMitStandardwert VARCHAR(255)\r\nDEFAULT 'Dies ist ein Standardwert'<\/pre>\n
![\"pic008.tif\"](\"..\/fileadmin\/_temp_\/2008_02\/DDLMitSQL-web-images\/pic008_opt.jpeg\")
<\/p>\nDaten weitergeben<\/h2>\n
Public Sub Anredetabelle()\r\nDim db As DAO.Database\r\nSet db = CurrentDb\r\ndb.Execute "CREATE TABLE tblAnreden(" _\r\n& "AnredeID COUNTER CONSTRAINT PK " _\r\n& "PRIMARY KEY, Anrede VARCHAR(255))"\r\ndb.Execute "INSERT INTO tblAnreden(Anrede)" _\r\n& " VALUES('Herr');"\r\ndb.Execute "INSERT INTO tblAnreden(Anrede)" _\r\n& " VALUES('Frau');"\r\nEnd Sub<\/pre>\nAccess-Besonderheiten<\/h2>\n
Public Sub TabellenUndFeldeigenschaften( _\r\nstrTable as string)\r\nDim db As DAO.Database\r\nDim tdf As DAO.TableDef\r\nDim prp As DAO.Property\r\nDim fld As DAO.Field\r\nSet db = CurrentDb\r\nSet tdf = db.TableDefs(strTable)\r\nOn Error Resume Next\r\nFor Each prp In tdf.Properties\r\nDebug.Print prp.Name, prp.Value\r\nNext prp\r\nFor Each fld In tdf.Fields\r\nDebug.Print fld.Name\r\nFor Each prp In fld.Properties\r\nDebug.Print " " & prp.Name, _\r\nprp.Value\r\nNext prp\r\nNext fld\r\nEnd Sub<\/pre>\n
Public Sub GueltigkeitsregelSetzen()\r\nDim db As DAO.Database\r\nDim tdf As DAO.TableDef\r\nDim fld As DAO.Field\r\nSet db = CurrentDb\r\nSet tdf = db.TableDefs("tblArtikel")\r\nSet fld = tdf.Fields("Einzelpreis")\r\nfld.Properties("ValidationRule") = ">=0"\r\nfld.Properties("ValidationText") = _\r\n& "Bitte geben Sie einen positiven " _\r\n& "Wert ein."\r\nEnd Sub<\/pre>\nZusammenfassung und Ausblick<\/h2>\n