데이터베이스에 그림을 추가하는 방법은 무엇입니까?

Question

BLOB 데이터 유형의 한 열을 포함하는 테이블 mypics를 만들었습니다.

SQL> 내림차순 mypics 이름 널 ...

는 지금은이 표에/삽입/업데이트 데이터를 선택하는 VB6 코드를 구현해야하지만 나는 BLOB 열 처리하는 방법을 모르겠어요 ?

이

Answer 1

도와주세요

---

PID NOT NULL NUMBER (38)

PNAME CHAR (10)

이미지 BLOB를 입력 한 다음은 시작하는 몇 가지 예제 코드입니다. 3 개의 필드가있는 tblImages라는 테이블을 가정합니다.

 
Field  Data Type  Size 
Picture   Image   
ID    Int   4 

는 디스크 파일에 데이터베이스에서 파일을 추출하려면 데이터베이스

Set strStream = New ADODB.Stream 
strStream.Type = adTypeBinary 
strStream.Open 
strStream.LoadFromFile strFileName 

strSQL = "SELECT ID, Picture FROM tblImages" 
Set rs = New ADODB.Recordset 
With rs 
    .ActiveConnection = cn 
    .Source = strSQL 
    .CursorType = adOpenKeyset 
    .LockType = adLockOptimistic 
    .Open 
End With 

rs.AddNew 
rs.Fields("ID").Value = ID 
rs.Fields("Picture").Value = strStream.Read 
rs.Update 
rs.Close 
Set rs = Nothing 

에 디스크에있는 파일에서 이미지를 추가하려면 :

strSQL = "SELECT Picture FROM tblImages WHERE ID = " & ID    
Set rs = New ADODB.Recordset 
With rs 
    .ActiveConnection = cn 
    .Source = strSQL 
    .Open 
End With 

If Not (rs.BOF And rs.EOF) Then 
    Set strStream = New ADODB.Stream 
    strStream.Type = adTypeBinary 
    strStream.Open  
    strStream.Write rs!Picture 
    strStream.SaveToFile TempPath, adSaveCreateOverWrite   
    strStream.Close 
    Set strStream = Nothing   
End If  
rs.Close 
Set rs = Nothing 

도움이 되었기를 바랍니다.