bisa. klo aku pake object ADODB.Stream.
ini contoh function ku :
Public Function BLOBUploadFile(ByVal valueIDFile As Integer, ByVal
NamaFileYgMauDiupload As String, _
ByVal NamaTabel As String, _
ByVal NamaFields_ID As String, _
ByVal NamaFields_Filename As String, _
ByVal NamaFields_BLOB As String, _
Optional ByVal NamaFields_FileSize As String)
As Integer
Dim rs As New ADODB.Recordset
Dim BlobValue As New ADODB.Stream
Dim iIDFile As Integer
Dim sSQL As String
Dim isPakeFileSize As Boolean
If IsMissing(NamaFields_FileSize) = True Then
isPakeFileSize = False
Else
isPakeFileSize = True
End If
If valueIDFile = 0 Then
'kirim file baru
If Trim(NamaFileYgMauDiupload) <> "" Then
BlobValue.Type = adTypeBinary
If isPakeFileSize = True Then
sSQL = "SELECT " & NamaFields_ID & ", " & _
NamaFields_Filename & ", " & _
NamaFields_BLOB & ", " & _
NamaFields_FileSize & " " & _
"FROM " & NamaTabel & " WHERE 1=0"
Else
sSQL = "SELECT " & NamaFields_ID & ", " & _
NamaFields_Filename & ", " & _
NamaFields_BLOB & " " & _
"FROM " & NamaTabel & " WHERE 1=0"
End If
iIDFile = AutoNumber("", 0, NamaTabel, NamaFields_ID, True)
rs.Open sSQL, db, adOpenKeyset, adLockOptimistic
rs.AddNew
BlobValue.Open
BlobValue.LoadFromFile ValidStr(NamaFileYgMauDiupload)
rs(0) = iIDFile
rs(1) = FilePart(NamaFileYgMauDiupload, NameExt)
rs(2) = BlobValue.Read
If isPakeFileSize = True Then
rs(3) = BlobValue.Size
End If
rs.Update
BlobValue.Close
'beri nilai balik berupa ID File Baru....
BLOBUploadFile = iIDFile
rs.Close
Set rs = Nothing
Set BlobValue = Nothing
End If
Else
'update file
If Trim(NamaFileYgMauDiupload) <> "" Then
iIDFile = CInt(valueIDFile)
BlobValue.Type = adTypeBinary
If isPakeFileSize = True Then
sSQL = "SELECT " & NamaFields_ID & ", " & _
NamaFields_Filename & ", " & _
NamaFields_BLOB & ", " & _
NamaFields_FileSize & " " & _
"FROM " & NamaTabel & " WHERE " & NamaFields_ID & " = " & iIDFile
Else
sSQL = "SELECT " & NamaFields_ID & ", " & _
NamaFields_Filename & ", " & _
NamaFields_BLOB & " " & _
"FROM " & NamaTabel & " WHERE " & NamaFields_ID & " = " & iIDFile
End If
rs.Open sSQL, db, adOpenKeyset, adLockOptimistic
BlobValue.Open
BlobValue.LoadFromFile ValidStr(NamaFileYgMauDiupload)
rs(1) = FilePart(NamaFileYgMauDiupload, NameExt)
rs(2) = BlobValue.Read
If isPakeFileSize = True Then
rs(3) = BlobValue.Size
End If
rs.Update
BlobValue.Close
rs.Close
Set BlobValue = Nothing
Set rs = Nothing
End If
End If
End Function
coba dipelajari, n sesuaikan dengan kebutuhan.
beberapa function laen yg "kepake" di function itu :
1. AutoNumber --> utk ndetek nilai auto_increment (eksekusi query SELECT
Max(id) + 1 FROM nama_tabel)
2. ValidStr --> utk nambah escape_character (backslash) klo utk beberapa
karakter spesial macam quote, double-quote, backslash,
ampersand, chr(0)
3. Filepart --> utk nge-extract namafile dan extension nya aja dari
full-path file yg mo di-upload (yg di simpan di tabel cuman namafile+ext
doank)
oke? klo ada pertanyaan silakan reply aja imel ini di sini. peace!
--
wassalam,
Rizky Prihanto
http://www.software-arsitek.web.id
On 5/16/08, SuDeSoft <[EMAIL PROTECTED]> wrote:
>
> Numpang tanya ya kawan2....
> Tipe field BLOB di mysql bisa untuk nyimpan data selain image gak?
> Kalo bisa caranya bagaimana?
> Saya sudah coba pake appendchunk dan getchunk tapi gak bisa...
> Soalnya pada saat diupdate, data yang masuk ke field BLOB itu otomatis
> berubah, tapi actualsizenya bener...
>
> Tolong bantu yach...
> Makasih...
>
>
>
[Non-text portions of this message have been removed]
