--My SQL script for table CREATE TABLE AKTDOCX ( AK800 char(10) NOT NULL, AK803 LONGBLOB NULL, constraint PK_AKTDOC primary key (AK800) ) DEFAULT CHARSET=cp1250 ;
lihdbc=SQLSTRINGCONNECT("uid=uid;pwd=pwd;driver={MySQL ODBC 3.51 Driver};"+; "Database=test;SERVER=localhost;PORT=3406;OPTION=0;STMT=SET NAMES cp1250") CREATE CURSOR xxc (xx000 W) APPEND BLANK REPLACE xx000 WITH filetostr("any file.doc") ?SQLEXEC(lihdbc,"INSERT INTO AKTDOCX (AK800,AK803) VALUES ('xxxxx',?xxc.xx000)") ?CURSORSETPROP("MapBinary" ,.T.,0) ?SQLEXEC(lihdbc,"SELECT AK803 FROM AKTDOCX","xxb") ?CURSORSETPROP("MapBinary" ,.F.,0) STRTOFILE(ak803,"c:\test.doc") =SQLDISCONNECT(lihdbc)MartinaJ