Beispiel für einen Mysql-Client in rebol/view#

Voraussetzung: entpackter Rebol Treiber (mysql-protocol.r) von http://softinnov.org/rebol/mysql.shtml im gleichen Verzeichnis

Inhalt von mysql_test_gui.r:

REBOL [
	Title: "MySQL Test"
	Author: "M.M. / KR"
	Email: yes
	Web: no
	Date: 19/12/2012
	File: %mysql-test.r
	Version: 1.2.1
	Purpose: "TestingMySQL Driver for REBOL"
]

view-data: does [
	view layout [
		across
		;Slidersyntax unter http://www.codeconscious.com/rebol/view-notes.html#Scrollpara
		msg-area: area 500x100 mold gather-data
		sldrvertikal: slider 16x100 [scroll-para msg-area sldrvertikal]
		below
		sldrhorizontal: slider 500x16 [scroll-para msg-area sldrhorizontal]
		button "Schließen" [unview]
	]
]

gather-data: does [
    send-sql db "SELECT * FROM Schallplatten;"
]

;Mysql-Treiber und Infos dazu für Rebol von http://www.softinnov.org/rebol/mysql.shtml
do %mysql-protocol.r
db: open mysql://(db-user):(db-pwd)@(db-host):(db-port)/(db-name)
view-data
close db