Schnittstellenanbindung MySQL - Clipper - Flagship.

[Manfred Schwab]

Hallo Dirk,
Hier habe ich noch etwas für unsere FAQ.

Schnittstellenanbindung MySQL - Clipper / Flagship.

Unter dem Bestriebsystem MS-DOS gibt es eine sehr leistungsfähige
Programmiersprache namens Dbase die auch SQL Statements verarbeiten
kann. Die logische Fortführung davon mit einem schnellen Compiler war
Clipper der Firma Nantucket und später CA.

Auf der Linuxseite hat sich FlagShip etabliert, eine Kombination aus
Clipperfunktionalität und objektorentierten Eigenschaften. FLagShip ist
fast syntaxkompatibel mit Clipper und wirklich sehr schnell beim Suchen
und Finden von Daten in DBF Dateien. 

Leider konnte man SQL Datenbanken wie MySQL, ADABAS, IBM DB2 und
ähnliches bisher mit dieser Sprache nicht bearbeiten,

Mit einem kürzlich erschienenen Update eines spezielle RDD Drivers wird
diesem unbefriedigenden Zustand Abhilfe geschaffen und es nun auch
möglich  MySQL einzubinden.

Fernandez Herrero hat sein neues Toolkit in der Version SQLmy0.08.tgz
mittlerweile freigegeben und damit ist es nun auch für FlagShip
Programmierer möglich auf MySQL Datenbanken schreibend und lesend
zuzugreifen.

Der Quellcode dafür kann heruntergeladen werden von folgender Seite :

ftp://fship.com/pub/multisoft/flagship/tools/SQLmy.0.08.tgz

Nähere Informationen in Form einer README finden sich in o.a. Datei.


Ein kleines Beispiel veranschaulicht den Zugriff 


// Farbeinstellungen
set color to w+b,gr+r
clear


//Systemeinstellungen FlagShip
FS_SET("setenvir","MY_RETRIEVE_DIR", "./")
FS_SET("setenvir","MY_LEVEL_VERBOSITY", "3")
FS_SET("setenvir","MY_ERROR_LOG", "error.log")

*---------------------- Connect to think__tank  -------------------

// Die Datenbank heisst thinktank, 
// der User Manfred und das Passowrt lautet blumenstrauss
ret := open_my("think_tank","","manfred","blumenstrauss")

public tfile:=""
public fieldnum:=0

// SQL Statement formulieren und absenden.
ret:=ret_mem_my("select * from to_do_list",1,_(at)_tfile,_(at)_fieldnum)


// Gelesene Daten stehen im Array ret[x,x] und werden dargestellt.
nfields=len(ret)
nrows=len(ret[1,3])
for j=1 to nrows
    _(at)_ j,0 say ret[1,3,j]
    _(at)_ j,2 say ret[2,3,j]
    _(at)_ j,60 say ret[3,3,j]
    _(at)_ j,65 say ret[4,3,j]
next 

close_my()
inkey(0)


// Voila !!!!!!!

---
!!NEU!!
Fragen und Antworten zu MySQL und dieser Liste unter
-->>  http://www.4t2.com/mysql