MS ACCESS MAILING LIST: Re: [belajar-access] Re: Upload Attachment dengan Script

Dear Mas Narupi, penjelasan mengenai data type attachment, salah satunya bisa kunjungi: http://www.access-freak.com/tutorials.html#Tutorial07

Untuk melihat PDF di Access, bisa kunjungi webnya Mas Sumiyanto, berikut linknya: http://cakyanto.wordpress.com/2012/06/25/open-pdf-inside-access-form/

Mungkin data type attachment lebih baik dari OLE Object, karena dengan attachment, kita bisa memasukan lebih dari satu file.

Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
http://imopi.wordpress.com | http://trendmuslim.com

----- Original Message -----

From: Narupi@infineon.com

To: belajar-access@yahoogroups.com

Sent: Thursday, September 06, 2012 8:31 AM

Subject: RE: [belajar-access] Re: Upload Attachment dengan Script

Mas Sofyan dan semuanya,

Saya sudah coba dan berhasil. Tapi ada beberapa hal lain yang jadi pertanyaan

1.       Apa bedanya (kelebihannya) jika di banding metode attachment

2.       Bagaimana untuk menampilkan semua halaman data yang attachment yang mana filenya itu lebih dari 1 halaman

3.       Kalau untuk script upload attachment bagaimana ya?

Maaf banyak sekali

Thanks and regards

Narupi

IFBT OP ATP PO DSO IEP SS

From: belajar-access@yahoogroups.com [mailto:belajar-access@yahoogroups.com] On Behalf Of Sofyan Efendi
Sent: Monday, September 03, 2012 4:40 PM
To: belajar-access@yahoogroups.com
Subject: [belajar-access] Re: Upload Attachment dengan Script

Dear Pak Narupi, untuk upload bisa menggunakan kode berikut:

Public Function GetDataFromFile(FileName As String, fieldName As String) As Boolean
Dim b() As Byte, i&, rst As DAO.Recordset, fLen&
On Error GoTo err_GetDataFromFile
fLen = FileLen(FileName)
ReDim b(fLen - 1)
Open FileName For Binary Access Read As #1
Get #1, , b
Set rst = CurrentDb.OpenRecordset("dbSetup")
With rst
If .RecordCount = 0 Then
.AddNew
Else
.MoveFirst
.Edit
End If
.Fields(fieldName).AppendChunk b
.Update
End With
rst.Close
Set rst = Nothing
GetDataFromFile = True
exit_GetDataFromFile:
Set rst = Nothing
Close
Exit Function
err_GetDataFromFile:
GetDataFromFile = False
Resume exit_GetDataFromFile
End Function

Contoh penggunaan:

'?GetDataFromFile("E:\My Documents\opi.pdf","SetupFile")
Akan memasukan file opi.pdf ke table "dbSetup" di field "SetupFile", dengan data type OLE Object.

Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
http://imopi.wordpress.com | http://trendmuslim.com

--- In belajar-access@yahoogroups.com, <Narupi@...> wrote:
>
> Mas Sofyan,
>
> Untuk filenya bertype attachment (.pdf)
>
> Thanks and regards
>
> Narupi
> IFBT OP ATP PO DSO IEP SS
>
> From: belajar-access@yahoogroups.com [mailto:belajar-access@yahoogroups.com] On Behalf Of Sofyan Efendi
> Sent: Monday, September 03, 2012 3:33 PM
> To: belajar-access@yahoogroups.com
> Subject: Re: [belajar-access] RE: Upload Attachment dengan Script
>
>
> Dear Pak Narupi, yg dimaksud upload attachment ini, apakah dimasukan ke field bertype attachment atau bertype OLE Object ya?
>
> Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> Sofyan Efendi
> http://imopi.wordpress.com | http://trendmuslim.com
> ----- Original Message -----
> From: Narupi@...<mailto:Narupi@...>
> To: belajar-access@yahoogroups.com<mailto:belajar-access@yahoogroups.com>
> Sent: Thursday, August 02, 2012 7:28 AM
> Subject: [belajar-access] RE: Upload Attachment dengan Script
>
> Hallo All,
>
> Ada yang bisa bantu masalah saya di bawah? Saya perlu sekali. Karena file yang mau di upload banyak dan rutinitas.
>
> Thanks and regards
>
> Narupi
> IFBT OP ATP PO DSO IEP SS
>
> From: Narupi (IFBT OP BE POB LOG)
> Sent: Thursday, July 26, 2012 12:42 PM
> To: belajar-access@yahoogroups.com<mailto:belajar-access@yahoogroups.com>
> Subject: Upload Attachment dengan Script
>
> Hallo para access mania....
> Langsung saja ya.
> Saya mau mengupload attachment (pdf) kedalam data base dengan menggunakan VB. Bagaimana ya caranya?
> Mengapa saya melakukan ini.
>
> 1. Karena file yang akan di upload lumayan banyak dan rutinitas
>
> 2. Karena file yang akan di upload harus menyesuaikan antara nama file dengan id yang ada di database.
> Contohnya:
> Saya mempunyai 10 file dengan nama 1,2,3 .. dst
> Dan saya punya database dengan id 1,2,3 .. dst
> Yang saya harapkan dengan cukup klick satu tombol maka akan upload file secara otomatis sesuai dengan id database.
>
> Thanks and regards
>
> Narupi
> Infineon Batam
>