VFP ·R¥ÎªÌªÀ°Ï ­º­¶ VFP ·R¥ÎªÌªÀ°Ï
¥»°Q½×°Ï¬° Visual Foxpro ·R¥ÎªÌ¸gÅç¥æ¬yªº¦a¤è, ½Ð¦h¦h§Q¥Î"·j´M"ªº¥\¯à, ¥ý¬d¬Ý¬Ý¦³µL«e¨Ò¥i´`, ¦pªGÁÙ¦³¤£À´ªº¦Aµo°Ý. ³¡¥÷¥DÃD¦³ªþ¥[ÀÉ®×, ¶·¥ýµù¥U¦¨¬°ªÀ°Ï©~¥Á¤~¥i¥H¤U¸ü.
 
 ±`¨£°ÝÃD±`¨£°ÝÃD   ·j´M·j´M   ·|­û¦Cªí·|­û¦Cªí   ·|­û¸s²Õ·|­û¸s²Õ   ·|­ûµù¥U·|­ûµù¥U 
 ­Ó¤H¸ê®Æ­Ó¤H¸ê®Æ   µn¤JÀˬd±zªº¨p¤H°T®§µn¤JÀˬd±zªº¨p¤H°T®§   µn¤Jµn¤J

±N¹ÏÀɦs¤J¸ê®Æªí¤¤(Âà¶K)

 
µoªí·s¥DÃD   ¦^ÂÐ¥DÃD    VFP ·R¥ÎªÌªÀ°Ï ­º­¶ -> VFP °Q½×°Ï
¤W¤@½g¥DÃD :: ¤U¤@½g¥DÃD  
µoªí¤H ¤º®e
Ruey



µù¥U®É¶¡: 2003-03-12
¤å³¹: 1698
¨Ó¦Û: tunglo

²Ä 1 ¼Ó

µoªíµoªí©ó: ¬P´Á¤» ¤­¤ë 24, 2003 4:29 pm    ¤å³¹¥DÃD: ±N¹ÏÀɦs¤J¸ê®Æªí¤¤(Âà¶K) ¤Þ¨¥¦^ÂÐ

¥DÁ¿¤H:À¹¤lÖp

1.¦bVFP¤¤¦p¦ó±N¼v¹³ÀÉ©ÎÁn­µÀÉÀx¦s¦Ü SQL Server¤WªºImage«¬§OªºÄæ¦ì? VFP­n¦p¦ó¨ÓŪ¨ú¦bSQL Server¤WImage«¬§OÄæ¦ìªº¸ê®Æ?

¥»´Áªº¥DÃD¬O¥Ñ·|­û³Å¥ò¹F¥ý¥Í©Ò¸ß°Ýªº°ÝÃD¡A³o¬O¤@­ÓÆZ¤NÆp§Þ¥©¡A®tÂI§â­¸ª°³Õ¤hµ¹¦Ò­Ë¤F¡A¥H¤U¬°¦U¦ì·|­û¸Ñ»¡³o­Ó°ÝÃD­I«áªº§Þ³N¤Î­«ÂI¡C
­I´º
SQL Server´£¨Ñ¤@­ÓImageªº¸ê®Æ«¬§O¡A¤¹³\¨Ï¥ÎªÌ§âbinaryªº¸ê®Æ¥i¥H¦s©ñ¦bTable¤º¡AÁ|¤ZÁn­µ¡B¼v¹³µ¥¡A³£¥i¥H«Ü«K§Qªº¨Ó³z¹L¸ê®Æ®w¨ÓºûÅ@¡A¦]¦¹«Ø¥ß¤@­ÓClient/Server¯Åªº¼v¹³¸ê®Æ®w¨Ã«DÃø¨Æ¡C
VFP¤]´£¨Ñ¤@­ÓGeneral«¬§OªºÄæ¦ì¡A¯à°÷Åý§Ú­Ì§âOLEªº¸ê®ÆÀx¦s¦ÜVFPªºTable¤º¡A¥Ñ©óVFP¬O³Ì¨Îªº«eºÝ¶}µo¤u¨ã¤§¤@¡A©Ò¥H¦pªG±z¨«ªº¬OClient/Server¬[ºcªº¸Ü¡A«Ü¥i¯à±z·|§âÄÝ©ó¼v­µªº¸ê®Æ¡A¥þ³¡©ñ¦b«áºÝ¡A¦Ó¥ÑVFP¦b»Ý­n®É¡A¤~¤©¥HŪ¨ú¡A´î¤Öºô¸ô¤Wªº¶Ç¿é¡C
§Þ³N»¡©ú
¦³Ãö©óVFP¦p¦ó³z¹LODBC»PSQL Server¤Wªº¸ê®Æ®w³sµ²¡A­¸ª°³Õ¤h°²³]±z³£¤w¸gÁA¸Ñ¡A¦b¦¹¤£¦AÂØ­z¡C
­n§âbinary¸ê®Æ¸g¥ÑVFP Àx¦s¦Ü«áºÝªºSQL Server¡A±z»Ý­n¥ý¦bVFP¤¤§Q¥ÎGeneralÄæ¦ì¨ÓÀx¦s±zªº¼v­µ¸ê®Æ¡AµM«á§Q¥ÎSQL Pass Throughªº¤è¦¡¡A°õ¦æSQL ServerªºINSERT INTO <table> ªº«ü¥O¨Ó§¹¦¨¡C¦ý³Ì­«­nªº§Þ¥©¦b©ó¡A±z¤£¯àª½±µ§â¼v­µÀɪºÀɦWª½±µ¶Çµ¹SQL Server¡A¦]¬°SQL Server®Ú¥»µLªk¥h¿ëÃѮ榡¡A±z¥²¶·§Q¥ÎVFP¤¤ªºGeneralÄæ¦ì¡A§â¸ê®Æ°e¦Ü«áºÝ¡A¦]¬°³o¬OSQL Server»P«eºÝ°ß¤@¬ù©wªº¸ê®Æ¶Ç¿é¤è¦¡¡C¥H¤UÁ|¨Ò»¡©ú:
¦b«áºÝªºSQL Server¤W¦³¤@­Ó¤H¨Æ¸ê®ÆÀÉ¡AÀɦW¬° employee¡A³o­ÓÀɦ³3­ÓÄæ¦ì:
Äæ¦ì¦WºÙ ¸ê®Æ«¬§O »¡©ú
emp_id int ­û¤u½s¸¹
name char(10) ­û¤u©m¦W
photo image ­û¤u¬Û¤ù
¦Ó¦b«eºÝ¦³¤@­ÓVFPªº TABLE¡AÀɦW¬°vfp_table¡A¨ä¤¤¦³¤@­ÓÄæ¦ì¦WºÙ¬°general_fld¡A«¬§O¬° General¡C
µ{¦¡½d¨Ò
nSql_Handle = SQLConnect( …}. )
=SQLEXEC( nSql_Handle , " INSERT INTO employee( emp_id , emp_name , photo ) VALUES( '003' , '­¸ª°³Õ¤h' , ?vfp_table.general_fld)" )
½ÐŪªÌª`·Nµ§ªÌ¬O¦p¦ó§âgeneral_fldªº¤º®e·í°µ°Ñ¼Æ¶Ç°eµ¹SQL Server:
?vfp_table.general_fld




2.¦p¦ó§â .WAVÀÉ©ñ¤JVFPªºTABLE¤¤
¦pªG§Æ±æ§Q¥Î¼È¦sÀɨӦs©ñ .WAV©Î.GIFªº¸ê®Æ¡A½Ð§Q¥Î¤U§Qªº§Þ¥©:
CREATE CURSOR temp_ole ( g_fld G) && «Ø¥ß¤@­Ó¨ã¦³GeneralÄæ¦ìªºcursor
APPEND BLANK
APPEND GENERAL g_fld FROM "C:\Windows95\media\mypic.gif"
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
Ruey



µù¥U®É¶¡: 2003-03-12
¤å³¹: 1698
¨Ó¦Û: tunglo

²Ä 2 ¼Ó

µoªíµoªí©ó: ¬P´Á¤» ¤K¤ë 02, 2003 8:39 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

myf1 deln

§Ú¤]¦³eggta2003¥X现ªº这Ïú±¡况¡C

§Ú¬d¤F¤@¤U©Ò¦³关¤_SQL ¦sIMAGESªº贴¤l¡A¦b¥L们ªº帮§U¤U¡A§Ú§ï变¤F§â图¤ù¦s¤J¨ìªí¤¤ªº°µªk¡C

§Ú¬O这样°µªº¡A¦bªí¤¤¨ú®øIMAGESªº¦r¬q¡A¼W¤@¤UFILNAMEªº¦r¬q¡A¥D­n¬O¥Î来记录图¤ùªº¤å¥ó¦W©M¸ô径¡C¦bªí¤¤¼W¤@个IMAGES±±¥ó¡A¨äPICTUREªº属©Ê«ü¦V¤å¥ó¦W¡C

¦n¡A§â§Ú­ì¥N码贴¤W¡G
[¥H¤U¬O贴¤W图¤ùCOMMAND]¤WªºCLICK¨Æ¥óªº¥N码¡G
IF gclevel<'8'.AND.gcname<>THISFORM.txt¾Þ§@员.value
MESSAGEBOX('对¤£°_¡A§A无权¾Þ§@¦¹条记录,请ÉO¨t统ºÞ²z员联¨t¡I',16,'ĵ§i¡I')
RETURN
ENDIF

olddefa=SYS(5)+SYS(2003) &&«O¯d­ì¥ýªº¸ô径

IF EMPTY(gcdefa)
SET DEFAULT TO c:ELSE
SET DEFAULT TO gcdefa &&gcdefa¬O¤@个变¶q¡A¦bªí单ªºINI¨Æ¥ó¤¤­n¥ý¥Ó©ú
ENDIF

filename=GETPICT( )
IF EMPT(filename)
SET DEFAULT TO &olddefa
RETURN
ENDIF

IF RIGHT(filename,3)="BMP".OR.RIGHT(filename,3)="JPG".OR.RIGHT(filename,3)="GIF".OR.RIGHT(filename,3)="ANI"
ELSE
WAIT WIND "±z选择ªº¤£¬O图¤ù¤å¥ó!" NOWA
SET DEFAULT TO &olddefa
RETU
ENDIF

endfile=RIGHT(ALLTRIM(filename),3)
imafile=olddefa+'\IMAGES\'+ALLTRIM(cpmlb.ª«®Æ¥N码)+'.'+endfile
LcImaFile='\IMAGES\'+ALLTRIM(cpmlb.ª«®Æ¥N码)+'.'+endfile
IF FILE(imafile)
ok=MESSAGEBOX('¤w¦s¦b这样ªº¤å¥ó¡A¬O§_ÂÐ盖¡H',33,'´£¥Ü')
IF ok<>1
SET DEFAULT TO &olddefa
RETURN
ENDIF
ENDIF
THISFORM.image1.PICTURE =filename
err=0
ON ERROR err=1
COPY FILE &filename TO (imafile)
IF err=1
MESSAGEBOX('对¤£°_¡A¥i¯à¦³¨ä¥L¤H¥¿¦b处²z这个¤å¥ó¡A请µy­Ô¦A试¡I',16,'ĵ§i')
SET DEFAULT TO &olddefa
RETURN
ENDIF
REPLACE ¸ô径 WITH (LcImaFile)
isok=TABLEUPDATE(.T.)
=CheckIsok()
gcdefa=SYS(5)+SYS(2003)
SET DEFAULT TO &olddefa
THISFORM.REFRESH

¦bªí单ªºREFRESH¨Æ¥ó¤¤写¤W¥H¤U¥N码¡G

lendfile=SYS(5)+SYS(2003)+aLLTRIM(cpmlb.¸ô径)
If !empty(lendfile) and !isnull(lendfile)
Thisform.Image1.picture=(lendfile)
Thisform.Image1.visible=.T.
Else
Thisform.Image1.picture=""
Thisform.Image1.visible=.F.
Endif

说©ú¡G¥H¤W¥N码¦³¥Î¨ì¥»¤H写ªº¤@¨Ç¦Û©w义¨ç数¡A¦U¦ìªB¤Í¥iÓì当§ó§ï¡C


----------------------------------------------
§ï变¦Û¤v¡A从现¦b开©l¡I

_________________
#############################
§Ö¼Ö¶ý«}¨t¦C©¯ºÖ¦v°t,³Ü¤Q¥þÂû´ö~­ì¨Ó©¯ºÖ¨º»ò²³æ!!

¾Ç·|VFP¨Ï¥ÎªÌªÀ°Ïªº·j´M,Code¤~·|§ó¦³½ì~
#############################
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
Ruey



µù¥U®É¶¡: 2003-03-12
¤å³¹: 1698
¨Ó¦Û: tunglo

²Ä 3 ¼Ó

µoªíµoªí©ó: ¬P´Á¤» ¤K¤ë 02, 2003 8:40 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

myf1 luweikan

请¤ñ较¤U­z¤èªk¡G
1¡B¥Î远µ{视图¡G
Local my_file,my_memo
my_file=UPPER(GETFILE())
If EMPTY(my_file)
Retu
Endif
my_memo=PADR(JUSTFNAME(my_file),128," ")+FILETOSTR(my_file)
sele 视图1
Repl ·Ó¤ù WITH my_memo

****测试数Õu写¤J¦¨¥\

2¡B¥Î SPT 语¥y¡A¦ý¨Ï¥Î³q¥Î«¬¦r¬q photo

gSqlHandle=SQlSTRINGCONNEC('driver=sql server;server=zgk1;uid=sa;pwd=;database=test')

If gSqlHandle<0
Messagebox("¥¼连±µ¨ì数Õu库¡I ",0+48+0,"´£¥Ü")
Retu
Endif
Local my_file,my_text,my_memo,retvalue
Sele test && ³q¥Î«¬¦r¬q photo ©Ò¦b数Õuªí
retvalue=SQLEXEC(gSqlHandle,'INSERT mytable(·Ó¤ù) values(?test.photo)')

Wait CLEAR
If retvalue<>1
Messagebox("数Õu写¤J¥¢败¡I ",0+48+0,"´£¥Ü")
Else
Messagebox("数Õu写¤J¦¨¥\¡I",64,"´£¥Ü")
Endif

sqldisconnect(gSqlHandle)
Wait clear

**测试数Õu写¤J¦¨¥\

3¡B测试¥Î SPT 语¥y写 ¤G进¨î数Õu

gSqlHandle=SQlSTRINGCONNEC('driver=sql server;server=zgk1;uid=sa;pwd=;database=test')

If gSqlHandle<0
Messagebox("¥¼连±µ¨ì数Õu库¡I ",0+48+0,"´£¥Ü")
Retu
Local my_file,my_text,my_memo,retvalue

my_file=UPPER(GETFILE())
If EMPTY(my_file)
sqldisconnect(gSqlHandle)
Retu
Endif
my_memo=PADR(JUSTFNAME(my_file),128," ")+FILETOSTR(my_file)
For i=1 to 1000
lcmemo=subst(my_memo,1,i)
lcxh=strtran(str(i,10)," ","0")
retvalue=SQLEXEC(gSqlHandle,'INSERT mytable(·Ó¤ù) values(?lcxh,?lcmemo)')
If retvalue<>1
Thisform.edit1.value=Thisform.edit1.value+chr(13)+"¥¢败¡G "+str(i,10)
Else
Thisform.edit1.value=Thisform.edit1.value+chr(13)+"¦¨¥\¡G "+str(i,10)
Endif
Endfor

sqldisconnect(gSqlHandle)


***** 当 i>254 时¡A§¡显¥Ü写¤J数Õu¥¢败


测试环¹Ò¡G VFP 6.0 + SQL SERVER 7.0 + win2000

_________________
#############################
§Ö¼Ö¶ý«}¨t¦C©¯ºÖ¦v°t,³Ü¤Q¥þÂû´ö~­ì¨Ó©¯ºÖ¨º»ò²³æ!!

¾Ç·|VFP¨Ï¥ÎªÌªÀ°Ïªº·j´M,Code¤~·|§ó¦³½ì~
#############################
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
Ruey



µù¥U®É¶¡: 2003-03-12
¤å³¹: 1698
¨Ó¦Û: tunglo

²Ä 4 ¼Ó

µoªíµoªí©ó: ¬P´Á¤@ ¤K¤ë 01, 2005 4:05 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

¸É¥R¤å¥ó:

http://www.sou3w.com/database14/database234275.htm
http://fox.wikis.com/wc.dll?Wiki~ImageData~VFP

_________________
#############################
§Ö¼Ö¶ý«}¨t¦C©¯ºÖ¦v°t,³Ü¤Q¥þÂû´ö~­ì¨Ó©¯ºÖ¨º»ò²³æ!!

¾Ç·|VFP¨Ï¥ÎªÌªÀ°Ïªº·j´M,Code¤~·|§ó¦³½ì~
#############################
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
bin1x



µù¥U®É¶¡: 2004-08-27
¤å³¹: 462


²Ä 5 ¼Ó

µoªíµoªí©ó: ¬P´Á¥| ¥|¤ë 12, 2007 5:48 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

¸Õ¤£¥X¨Ó
¤£¾å±o¬°¤°»ò remote view ¦s³q¥Î¸ê®Æ«¬ºA¦³°ÝÃD
¨SÃö«Y
¤s¤£Âà¸ôÂà
§Ú¥Î¤@­Ótable ·í¤¤Ä~
±µµÛ©O,¥Î³o­Ó¤¤Ä~ªº³q¥Î«¬ºA,¸gspt ¤èªk ¤W¥h¦Ü sql

µ²ªG´N¬O,«Ü..........ºC,¹Ï¤ù¸ÑªR«×¦³ÂI°ª
¦ý¤W­±ªº¤èªk,§Ú¤@­Ó³£¸Õ¤£¥X¨Ó,«¢
°ÝÃD¬O remote view µLªk¨Ï¥Î³q¥Îªº¸ê®Æ«¬ºA¶Ü?
«ÜºÃ°Ý???
ÁÙ¬O"³q¥Î"­n¥Î¤Oªºµ¹¥¦¬A¸¹°_¨Ó<>¬A¸¹¥i¯à¤]¤£¿ù,«¢«¢......
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§ µo°e¹q¤l¶l¥ó °ÑÆ[µoªí¤Hªº­Ó¤Hºô¯¸ MSN Messenger
impotence



µù¥U®É¶¡: 2005-02-21
¤å³¹: 135
¨Ó¦Û: Hong Kong

²Ä 6 ¼Ó

µoªíµoªí©ó: ¬P´Á¤­ ¥|¤ë 13, 2007 9:03 am    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

thx for your sharing ~~~
_________________
¤@­Ó±`±`§Ñ°O Command ªº¤H !
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
±q¤§«eªº¤å³¹¶}©lÅã¥Ü:   
µoªí·s¥DÃD   ¦^ÂÐ¥DÃD    VFP ·R¥ÎªÌªÀ°Ï ­º­¶ -> VFP °Q½×°Ï ©Ò¦³ªº®É¶¡§¡¬° ¥x¥_®É¶¡ (GMT + 8 ¤p®É)
²Ä1­¶(¦@1­¶)

 
«e©¹:  
±z µLªk ¦b³o­Óª©­±µoªí¤å³¹
±z µLªk ¦b³o­Óª©­±¦^ÂФ峹
±z µLªk ¦b³o­Óª©­±½s¿è¤å³¹
±z µLªk ¦b³o­Óª©­±§R°£¤å³¹
±z µLªk ¦b³o­Óª©­±¶i¦æ§ë²¼
±z µLªk ¦b³o­Óª©­±ªþ¥[ÀÉ®×
±z µLªk ¦b³o­Óª©­±¤U¸üÀÉ®×


Powered by phpBB © 2001, 2005 phpBB Group
¥¿Å餤¤å»y¨t¥Ñ phpbb-tw ºûÅ@»s§@