SaveToAdoField 메서드 |
BLOB 데이터를 ADO Field로 저장합니다.
objBlob.SaveToAdoField(BlobData, AdoField)
objBlob
Required. Blob 오브젝트
BlobData
Variant. 저장할 BLOB 데이터
AdoField
Object. ADO Filed 오브젝트
BLOB 데이터를 데이터베이스 필드에 저장합니다.
Dim Blob, Conn, Rs, BlobData Set Blob = Server.CreateObject("TABSUpload4.Blob") BlobData = Blob.LoadFromFile("D:Upload\Sample.zip") Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open "UploadFile", ConnStr, 1, 3 Rs.AddNew Rs("filename") = "Sample.zip" Blob.SaveToAdoField BlobData, Rs("filedata") Rs.Update Rs.Close Set Blob = Nothing