*****************************************************
'作用：打开数据库连接。
'**********************************************************
On Error GoTo Error_handler
If mstrDbName = "" Then GoTo Error_handler
If mAdoConn.State = adStateOpen Then mAdoConn.Close
mAdoConn.ConnectionString = "DRIVER={SQL Server};SERVER=(local);UID=sa;PWD=;WSID=JIA;DATABASE=" & mstrDbName
mAdoConn.ConnectionTimeout = 15
mAdoConn.Open
Exit Sub
Error_handler:
Call HandleError
End Sub
Public Sub CreateTempImageFile(ByVal ImageId As Integer)
Dim strImageType As String
Dim i As Integer
'**********************************************************
'作用：打开记录集，提取二进制数据，并把数据存入文件。注意文件名使用图片ID生成。
'输入：图片ID。
'***********页码：[1] [2] [3] [4] [5] [6] [7] [8] [9] 第5页、共9页 |
