|
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¸ü.
|
¤W¤@½g¥DÃD :: ¤U¤@½g¥DÃD |
µoªí¤H |
¤º®e |
Ruey
µù¥U®É¶¡: 2003-03-12 ¤å³¹: 1698 ¨Ó¦Û: tunglo
²Ä 1 ¼Ó
|
µ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ªºÄæ¦ì? VFPn¦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Ó°ÝÃDI«áªº§Þ³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" |
|
¦^³»ºÝ |
|
|
Ruey
µù¥U®É¶¡: 2003-03-12 ¤å³¹: 1698 ¨Ó¦Û: tunglo
²Ä 2 ¼Ó
|
µ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¥Dn¬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¤~·|§ó¦³½ì~
############################# |
|
¦^³»ºÝ |
|
|
Ruey
µù¥U®É¶¡: 2003-03-12 ¤å³¹: 1698 ¨Ó¦Û: tunglo
²Ä 3 ¼Ó
|
µoªí©ó: ¬P´Á¤» ¤K¤ë 02, 2003 8:40 pm ¤å³¹¥DÃD: |
|
|
myf1 luweikan
请¤ñ较¤Uz¤èª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¤~·|§ó¦³½ì~
############################# |
|
¦^³»ºÝ |
|
|
Ruey
µù¥U®É¶¡: 2003-03-12 ¤å³¹: 1698 ¨Ó¦Û: tunglo
²Ä 4 ¼Ó
|
|
¦^³»ºÝ |
|
|
bin1x
µù¥U®É¶¡: 2004-08-27 ¤å³¹: 462
²Ä 5 ¼Ó
|
µ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¯à¤]¤£¿ù,«¢«¢...... |
|
¦^³»ºÝ |
|
|
impotence
µù¥U®É¶¡: 2005-02-21 ¤å³¹: 135 ¨Ó¦Û: Hong Kong
²Ä 6 ¼Ó
|
µoªí©ó: ¬P´Á¤ ¥|¤ë 13, 2007 9:03 am ¤å³¹¥DÃD: |
|
|
thx for your sharing ~~~ _________________ ¤@Ó±`±`§Ñ°O Command ªº¤H ! |
|
¦^³»ºÝ |
|
|
|
|
±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§@
|