R
ralli
Guest
Zur Abwechslung habe ich heute Nachmittag mal die Datenbankprogrammierung mit sqlite3 durchgearbeitet. Hier das Ergebnis:
Ich habe das script kommentiert, es ist selbsterklärend, es wird eine Verbindung zu sqlite3 aufgebaut und eine neue Datenbank probe.db erstellt. Danach wird mittels einer query eine neue Tabelle adressen erstellt, 2 Datensätze hinzugefügt und danach angezeigt. Schlußendlich wird die Verbindung geschlossen. Ich hänge mal die das Script hier an.
Es ist ein erster kleiner Einstieg in die Datenbankprogrammierung und es funktioniert:
habe fun
#lang racket
(require db)
; Prüfen, ob sqlite3 verfügbar ist (liefert #t, wenn wahr)
; (sqlite3-available?)
; Verbindung zur Datenbank probe.db öffen
; Datenbank probe.db wird im mode create neu erstellt
(define verbindung (sqlite3-connect
#:database "probe.db"
#:mode 'create))
; Abfrage erstellt Tabelle adressen
(query-exec verbindung "CREATE TABLE adressen(
nachname VARCHAR(30) NOT NULL,
vorname VARCHAR(30) NOT NULL)")
; Alle Tabellen der Datenbank probe.db anzeigen
;(displayln (query-rows verbindung "select * from sqlite_master"))
; Tabelle adressen löschen (query-exec verbindung "DROP TABLE adressen"
;Tabelle adressen Datensätze hinzufügen
(query-exec verbindung "INSERT INTO adressen (nachname,vorname) VALUES
('Duck','Donald')")
(query-exec verbindung "INSERT INTO adressen (nachname,vorname) VALUES
('Mouse','Micky')")
; Alle Datensätze der Tabelle adressen anzeigen
displayln (query-rows verbindung "select * from adressen")
; Verbindung schließen
(disconnect verbindung)
(require db)
; Prüfen, ob sqlite3 verfügbar ist (liefert #t, wenn wahr)
; (sqlite3-available?)
; Verbindung zur Datenbank probe.db öffen
; Datenbank probe.db wird im mode create neu erstellt
(define verbindung (sqlite3-connect
#:database "probe.db"
#:mode 'create))
; Abfrage erstellt Tabelle adressen
(query-exec verbindung "CREATE TABLE adressen(
nachname VARCHAR(30) NOT NULL,
vorname VARCHAR(30) NOT NULL)")
; Alle Tabellen der Datenbank probe.db anzeigen
;(displayln (query-rows verbindung "select * from sqlite_master"))
; Tabelle adressen löschen (query-exec verbindung "DROP TABLE adressen"
;Tabelle adressen Datensätze hinzufügen
(query-exec verbindung "INSERT INTO adressen (nachname,vorname) VALUES
('Duck','Donald')")
(query-exec verbindung "INSERT INTO adressen (nachname,vorname) VALUES
('Mouse','Micky')")
; Alle Datensätze der Tabelle adressen anzeigen
displayln (query-rows verbindung "select * from adressen")
; Verbindung schließen
(disconnect verbindung)
Ich habe das script kommentiert, es ist selbsterklärend, es wird eine Verbindung zu sqlite3 aufgebaut und eine neue Datenbank probe.db erstellt. Danach wird mittels einer query eine neue Tabelle adressen erstellt, 2 Datensätze hinzugefügt und danach angezeigt. Schlußendlich wird die Verbindung geschlossen. Ich hänge mal die das Script hier an.
Es ist ein erster kleiner Einstieg in die Datenbankprogrammierung und es funktioniert:
habe fun