在VFP中读取SQL

01:函数readimagefromsql
002:*-传递参数:员工的工号、是否使用本地临时照片文件
003: LPARAMETERS tcPerCode、tlUseLocalPhoto
004:
005:本地loConn、loRS、loStream
006:本地lcDriverName、lcServerName、lcDatabaseName、lcUserName、lcPassword
007:本地lcConnectStringBMP "
011:
012:*-如果使用本地照片，则在本地查找
013:IF tluselocalphoto
014:IF FILE(" & lcTempImageFile ")
015:RETURN lcTempImageFile
016:ENDIF
017:ENDIF
018:
019:loConn = CREATEOBJECT(" adoConnection")
020: loRS？= createobject(" adodb . recordset ")
021:lostream = createobject(" adodb . stream ")
022:
023:*-连接字符串
024: lcDriverName？= " { SQL Server } "
025:LC servername？= ReadIni("ServerSetting "，" ServerName "，100)
026: lcDatabaseName？= ReadIni("ServerSetting "，" DatabaseName "，100)
027: lcUserName？= ReadIni("ServerSetting "，" SystemAdmin "，100)
028: lcPassword？= ReadIni("ServerSetting "，" Password "，100)
029: lcConnectString？= ;
030:" DRIVER = "+lcDriverName+"；"+ ;
031:" SERVER = "+LC servername+"；"+ ;
032:" DATABASE = "+LC databasename+"；"+ ;
033:" UID = "+LC username+"；"+ ;
034:" PWD = "+LC password
035:
036:如果！目录(" & lcPhotoPath ")
037:MD lcPhotoPath
038:ENDIF
039:
040:loConn。ConnectionString = lcConnectString
041:loConn。打开
042:
043:lor。active connection = loConn
044:loRS。LockType= 2？& & adlockpersistic
045:lor。CursorType= 3？& & adOpenStatic
046:loRS . source = " select ID，per_code，photo from personal where per _ code = ' "+tcPerCode+" ' "
047:loRS。open
048:
049:luPhotoData = loRS。字段(“照片”)。值
050:lor。Close
051: loConn。关闭
052:
053:如果！is null(luPhotoData)Then
054:loStream。type = 1 & & adtype binary
055:loStream。Open
056: loStream。write(luPhotoData)
057:loStream。SaveToFile(lcTempImageFile，2)
058:Else
059:lcTempImageFile = " "
060:EndIf
061:
062:RETURN lcTempImageFile
063: