vfpÈçºÎ¶ÁÈ¡SQLServer×Ö¶ÎÖеÄͼƬ£¿
ÔõôÔÚvfpµÄ±íµ¥ÖÐÏÔÏÖ´ÓsqlserverÖÐ×¥¹ýÀ´µÄͼƬ£¿
ÎÒÓõÄÊÇvfp6.0
Ìý˵¿ÉÒÔµ÷ÓÃÆäËûÓïÑÔдµÄdllÀ´ÊµÏÖ£¬
ÎÒ¿ÉÒÔÓÃdelphiдdll³öÀ´£¬
µ«ÊÇÎÒ²»»áÓÃʹÓÃvfpÀ´µ÷ÓÃdll°¡
Õâ¶Î´úÂëÊÇ´ÓSQLSEREVR¡¡IMAGE×Ö¶ÎÖжÁ³öͼƬ£º
001: FUNCTION ReadImagefromSQL
¡¡¡¡002: *-- ´«µÝ²ÎÊý£ºÔ±¹¤¹¤ºÅ£¬ÊÇ·ñʹÓñ¾µØÁÙʱÕÕÆ¬Îļþ
¡¡¡¡003: LPARAMETERS tcPerCode,tlUseLocalPhoto
¡¡¡¡004:
¡¡¡¡005: LOCAL loConn,loRS,loStream
¡¡¡¡006: LOCAL lcDriverName,lcServerName,lcDatabaseName,lcUserName,lcPassword
¡¡¡¡007: LOCAL lcConnectString
¡¡¡¡008: LOCAL lcTempImageFile,luPhotoData,lcPhotoPath
¡¡¡¡009: lcPhotoPath = GETENV("TEMP") + "\HR_Photo\"
¡¡¡¡010: lcTempImageFile = lcPhotoPath + tcPerCode + ".bmp"
¡¡¡¡011:
¡¡¡¡012: *-- Èç¹ûʹÓñ¾µØÕÕÆ¬¾Í´Ó±¾µØÕÒ
¡¡¡¡013: IF tlUseLocalPhoto
¡¡¡¡014: IF FILE("&lcTempImageFile")
¡¡¡¡015: RETURN lcTempImageFile
¡¡¡¡016: ENDIF
¡¡¡¡017: ENDIF
¡¡¡¡018:
¡¡¡¡019: loConn= CREATEOBJECT("Adodb.Connection")
¡¡¡¡020: loRS?= CREATEOBJECT("Adodb.Recordset")
¡¡¡¡021: loStream = CREATEOBJECT("ADODB.Stream")
¡¡¡¡022:
¡¡¡¡023: *-- Á¬½Ó×Ö·û´®
¡¡¡¡024: lcDriverName?= "{SQL Server}"
¡¡¡¡025: lcServerName?= ReadIni("ServerSetting","ServerName",100)
¡¡¡¡026: lcD
Ïà¹ØÎÊ´ð£º
ÔÚSqlServerÖÐÈçºÎ²é¿´ÀúÊ·ÉÏÖ´ÐеĴ洢¹ý³ÌµÄÐÅÏ¢ÄØ£¬È磺´«Èë²ÎÊý£¬Ö´ÐÐʱ¼äµÈµÈ¡£Èç¹û²»Äܲ鿴ÀúÊ·¼Ç¼£¬ÊÇ·ñ¿ÉÒÔ×Ô¼ºÐ´´¥·¢Æ÷Ö®ÀàµÄ£¬È˹¤¿ØÖÆÄØ£¬ÔÚOracleÀïÃæÓж¯Ì¬ÊÓͼ¿ÉÒÔËæÊ±²é¿´ÀúÊ·Ö´ÐеÄsqlÓï¾ä£¬SqlSer ......
ÎÒµÄÊý¾Ý¿âͻȻ±¨Ò»¸öºÜÓôÃÆµÄ´íÎ󣬵¼ÖÂÊý¾ÝÎÞ·¨²é¿´£¬
´íÎóÌáʾΪ£º
ÔÚÎļþ 'G:\data\ÆóÒµ¹ÜÀíÊý¾Ý¿â1_data.n ......
ֻΪ¶úå¦Ä¿È¾£¬ÓÐËù½ø²½£¡
ßµ°Ý£¡
..
ÕâÀï¾ÍÊÇ
ÕâÀï±ÈQQȺÀïÈÈÄÖ
ÎÒÒ²ÏëÕÒÕâô¸öȺ
.
SQL code:
¡£¡£¡£¡£¡£
¡£
ºÇºÇ
ÒýÓÃ
ÕâÀï±ÈQQȺÀïÈÈÄÖ
ͬÒâ
發錯° ......
ÓÃsqlserver 2000 agent Éú³ÉÒ»¸öjob£¬¸ÄjobÀïÃæÓе÷ÓÃÒ»¸öÓ¦ÓóÌÐò£¬¸ÃÓ¦ÓóÌÐò»áÈ¥µ÷´òÓ¡»ú´òÓ¡
µ¥¶ÀÅÜÕâ¸öÓ¦ÓóÌÐòµ÷´òÓ¡»úÊÇÕýÈ·µÄ£¬ È»ºóÓÃsqlserver 2005ÀïµÄagentÈ¥µ÷Ò²ÊÇ¿ÉÒÔÕý³£´òÓ¡µÄ¡£¡£ ......
±ísinger£º
singerID£¬singerName
1£¬ÁõµÂ»ª
2£¬ÕÅѧÓÑ
3£¬¹ù¸»³Ç
4£¬ÀèÃ÷
±ísong£º
songID£¬songName£¬singerID
1£¬ÍüÇéË®£¬1
2£¬ÖйúÈË£¬1
3£¬ÎDZð£¬2
4£¬¶ÔÄã°®²»Í꣬3
......