MSSQL70数据库里面怎么存照片？数据库字段设置为什么型式？

Question

请问大家：
MSSQL70数据库里面怎么存照片？数据库字段设置为什么型式？
请把原码贴出来好吗？详细一些！先谢谢了！
或者
[email protected]

Answer 1

Public Sub SaveToDB(ByRef Fld As ADODB.Field, DiskFile As String) '存图像
    Dim byteData() As Byte  '定义数据块数组
    Dim NumBlocks As Long   '定义数据块个数
    Dim FileLength As Long  '标识文件长度
    Dim LeftOver As Long    '定义剩余字节长度
    Dim SourceFile As Long  '定义自由文件号
    Dim i As Long           '定义循环变量
    Const BLOCKSIZE = 4096 '每次读写块的大小
    
 If DiskFile <> "" Then
    SourceFile = FreeFile '提供一个尚未使用的文件号
    Open DiskFile For Binary Access Read As SourceFile '打开文件
    FileLength = LOF(SourceFile) '得到文件长度
    If FileLength = 0 Then '判断文件是否存在
        Close SourceFile
        MsgBox DiskFile & " 无 内 容 或 不 存 在 !"
    Else
        NumBlocks = FileLength \ BLOCKSIZE '得到数据块的个数
        LeftOver = FileLength Mod BLOCKSIZE '得到剩余字节数
        Fld.Value = Null
        ReDim byteData(BLOCKSIZE - 1) '重新定义数据块的大小
        For i = 1 To NumBlocks
            Get SourceFile, , byteData() ' 读到内存块中
            Fld.AppendChunk byteData() '写入FLD
        Next i
        If LeftOver <> 0 Then
        ReDim byteData(LeftOver - 1) '重新定义数据块的大小
        End If
        Get SourceFile, , byteData() '读到内存块中
        Fld.AppendChunk byteData() '写入FLD
        Close SourceFile '关闭源文件
    End If
 End If
End Sub

Answer 2

[email protected]
这是MSN 也可以是 邮箱 是二用的。

Answer 3

sqlserver可以设置为image类型,好象最大可支持2G的图象文件
Access可以设置为二进制类型
oracle可以设置为BLOB类型
至于怎么读写thelostland(落日忍者)的方法不错。。