LUG Krefeld: RebolMysqlExample1

This page (revision-4) was last changed on 19-Dec-2012 15:36 by Markus Monderkamp

This page was created on 19-Dec-2012 15:15 by Markus Monderkamp

Only authorized users are allowed to rename pages.

Only authorized users are allowed to delete pages.

Version	Date Modified	Size	Author	Changes ...	Change note
4	19-Dec-2012 15:36	1 KB	Markus Monderkamp	to previous	Feinschliff für mysql-protokoll-Kommentar
3	19-Dec-2012 15:33	1017 bytes	Markus Monderkamp	to previous \| to last	Quelle für Scrollsyntax
2	19-Dec-2012 15:21	932 bytes	Markus Monderkamp	to previous \| to last	Tag rebol ergänzt
1	19-Dec-2012 15:15	875 bytes	Markus Monderkamp	to last	Mysql-Beispielcode mit GUI für Rebol in knapp 30 Zeilen

Incoming links	Outgoing links
RebolMysqlExample1 Rebol	RebolMysqlExample1

Difference between version and

!! 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"
]

<<do %mysql-protocol.r
db: open mysql://(db-user):(db-pwd)@(db-host):(db-port)/(db-name)

>>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 [
<< ~~;http://www.softinnov.org/rebol/mysql.shtml~~
>>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
}}}
<<
[{Tag Datenbank rebol}]