String type + Image type concatenation problem

[manum79]

i am developing a form where i am collecting personal information such as name, address and signature of the person as a bmp file........ i am saving the data in the SQL Server 2005

i am building a SQL query to insert the record.......
the prob that i m facing is that i cannot concatenate the image type with the SQL string that i m building

the insert works fine if i dont try to insert the image

the image is saved in a column of datatype "IMAGE"

plz help

thanks,
Manu

 

[DSummZZZ]

But there is no 'IMAGE' data type in VFP.

You may be able to read the image in using something like SomeVar = FILETOSTR('ImageFile'), then insert the image into SQL using SomeVar. I can't test it myself though.


-Dave Summers-

Even more Fox stuff at:

http://www.davesummers.net/foxprolinks.htm

 

[Mike Lewis]

Hi Manu,

You can't update an Image field directly. You have to do it either using text pointers (see the SQL Server Help on TEXTPRT()) or the TEXTCOPY utility (see

http://www.databasejournal.com/features/mssql/article.php/1443521).

Mike


__________________________________
Mike Lewis (Edinburgh, Scotland)

My sites:
Visual FoxPro (www.ml-consult.demon.co.uk)
Crystal Reports (www.ml-crystal.com)

 

[bborissov]

If I remember well (not sure at all) you must do something like:

lcContent = "0x"+strconv(FileToStr("somepicturefile.jpg"),15)
SQLEXEC(sqlH,[INSERT INTO SQLTable (ImageField) VALUES (?m.lcContent)])

Borislav Borissov

 

[manum79]

thanks guys for all the replies .......

i tried the below code

lcContent = "0x" + strconv(FileToStr(FilePath) ,15)

and tried inserting it.......it did insert the image into the table but next time when i tried to retrieve the image its giveing me the following error message

OLE object is invalid or corrupted.
Unbinding object 'controlname'

i m displaying the image in an OLE object

thanks
manu

 

[manum79]

Hello Borislav Borissov, I tried as you said, but my data is getting corrupted.
here is the code please help...

lcCurrDir = SYS(5) + SYS(2003)
lcFile = GETFILE("BMP")
IF !EMPTY(lcFile)

lcContent = "0X" + STRCONV(FILETOSTR(lcFile),15)
lcsql = "Update tblusers set us_gsignature = " + lcContent + " where Us_nid =" + ALLTRIM(STR(thisform.txtnId.value))

DO sqlreturncursor WITH lcsql, "check123"
ENDIF
SET DEFAULT TO (lcCurrDir)